全解vba初学者编程代码大全 vba编程代码大全( 二 ) _生活百科

End Sub
9删除指定名字的sheet
Sub te()
Dim Arr1
On Error Resume Next
Application.DisplayAlerts = False
Arr1 = Range(Cells(1, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3))’指定arr1内的名字将其删除
For Each i In Arr1
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
11创建指定名字的sheet
Sub 创建工作表()
Dim i As Integer
i = 2
Do While Sheets(1).Cells(i, 1)“”
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(1).Cells(i, 1)
i = i + 1
Loop
End Sub

文章插图
10 EXCEL文件中每个工作表的A1单元格填a
Sub tt()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Cells(1, 1).Value = https://www.fajihao.com/i/“a”
Next
End Sub
12如何通过Excel VBA判断单元格内是否包含某字符
关于这个问题本文分享两段VBA代码，都可实现该功能，以判断单元格中是否包含”?”为例，具体代码如下。

If cells(1,1) Like “*?*” Then
2. If InStr(1, cells(1,1), “?”) = 0 Then
用VBA判断EXCEL元素是否包含特定字符的情况较为常用，且多放在循环语句中，从运行效率来讲，第二种方法优于第一种，当然，如果把所有cells里的信息，在第一时间都抓到内存中，运行速度会更快。

13循环填单元格
Sub test()
Dim x As Long
Dim y As Integer
Dim tt As Single
tt = Timer
For x = 4 To 2000 Step 3
For y = 1 To Int(x / 3)
Cells(x, 1).Resize(3, 1) = Cells(1, 1) + y
Next y
Next x
MsgBox “ok,用时” & Timer – tt & “秒!”
End Sub

文章插图
14隔一行插入一行空白行
Sub Macro1()
Dim n As Long
n = Range(“a65536”).End(xlUp).Row
For i = n – 1 To 1 Step -1
Cells(i + 1, 1).EntireRow.Insert Shift:=xlDown
Next
End Sub
15隔2行插入2行
Sub Macro2()
Dim n As Long
n = Range(“a65536”).End(xlUp).Row
For i = n + 1 To 2 Step -2
Rows(i & “:” & i + 2).Insert
Next
End Sub
16删除空白行
Sub aa()
maxh = Sheet1.Range(“a65536”).End(3).Row
Range(“a1:a” & maxh).SpecialCells(xlCellTypeBlanks).select
selection.entirerow.delete
End Sub
17VBA批量删除excel指定行（Excel奇数行）
Sub test()
Dim begin As Integer
Dim endValue As Integer
Dim jg As Integer
begin = 3 ‘开始行
endValue = https://www.fajihao.com/i/493 ‘结束行
jg = 1 ‘间隔 ‘千万不要以为是2，因为当第3行被删除后，第5行已经变成了第4行
Dim i As Integer
For i = begin To endValue Step jg
Range(“A” & i).EntireRow.Delete
Next i
End Sub

注：Range(“A1”).EntireColumn.Delete 这样是删除A1整列
Range(“A1”).EntireRow.Delete 这样是删除A1整行
Range(“A1”).Delete 这是删除A1单元格 A2单元格会移上去
上述命令就好像你选中A1单元格后，右击选择 -》删除，在弹出对话框中有四个选项

18Excel多个sheet中删除固定区域的行数据
Public Sub delete()
Dim i As Integer, j As Integer
j = Worksheets.Count
For i = 1 To j
Sheets(i).Rows(“2:5”).delete Shift:=xlUp
Next
End Sub
19Excel多个sheet中删除符合条件的行数据
Sub delete()
Dim y As Long
y = Sheets.Count
For s = 2 To y
For x = 1 To Sheets(1).[a65536].End(3).Row
For i = 1 To Sheets(s).[j65536].End(3).Row
If Sheets(s).Cells(i, 10) = Sheets(1).Cells(x, 1)Then ‘Sheets(i).属性(方法) 中的i指的不是你为工作表标签设置的名称.指的是工作表在当前工作薄中的序号.
Sheets(s).Rows(i).delete
End If
Next i
Next x
Next s
End Sub
（根据sheets1A列单元格的值在其他sheets里面找到对应单元格的值的行删除）
20数组举例

文章插图
Sub r()
Dim arr, arr1()
Dim x As Integer
arr = Range(“a1:a10”)
m = Application.CountIf(Range(“a1:a10”), “>10”)
ReDim arr1(1 To m)
For x = 1 To 10
If arr(x, 1) > 10 Then
k = k + 1
arr1(k) = arr(x, 1)
End If
Next x
Cells(1, 2).Resize(m, 1) = Application.WorksheetFunction.Transpose(arr1)
End Sub