打开Excel文件并启用VBA编辑器: 打开你的Excel文件。 按ALT + F11 进入VBA编辑器。编写VBA代码: 在VBA编辑器中,右键点击你的工作簿,选择“插入” > “模块”来插入一个新的模块。在新模块中粘贴以下代码:vba Sub DeleteEmptyRowsInColumnA() Dim ws As Worksheet Dim lastRow As Long Dim i As Long '...
Dimx, y r=TxtRow.Text Dimi '隔r行 删除一行 x=Selection.Row y=Selection.Rows.Count+Selection.Row-1 Fori=xToy i=i+r-1 'ActiveWorkbook.Worksheets("sheetName").Range("A" & i, "A" & i).EntireRow.Delete ActiveSheet.Range("A"&i,"A"&i).EntireRow.Delete Nexti End Sub 精典之作: ...
arr=Sheets("关键词").Range("A1:A3")'循环数组 For j=LBound(arr)ToUBound(arr)'如果单元格包含某个关键词,这样存进来的是二维数组,我们指定第一列arr(j,1)IfRange("F"&i)Like"*"&arr(j,1)&"*"Then'就删除并退出本次对数组的循环Range("F"&i).EntireRow.Delete Exit For End If Next Next'...
Selection.EntireRow.Delete Counter = Counter - 1 Else ActiveCell.Offset(1, 0).Select End If Next i End Sub 本节内容参考程序文件:Chapter04-2.xlsm 我20多年的VBA实践经验,全部浓缩在下面的各个教程中:发布于 2024-05-25 20:56・河北 VBA ...
r = TxtRow.Text Dim i '隔r行 删除一行 x = Selection.Row y = Selection.Rows.Count + Selection.Row - 1 For i = x To y i = i + r - 1 ' ActiveWorkbook.Worksheets("sheetName").Range("A" & i, "A" & i).EntireRow.Delete ...
除了删除指定行,VBA还可以实现根据特定条件删除行的功能。例如,删除某一列中数值小于10的所有行,可以使用以下代码: 代码语言:txt 复制 Sub DeleteRowsWithCondition() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号 ...
.Rows(i).Delete End If Next End With End Sub 代码解析：MyDeleteRow过程删除工作表A列重复单元格所在的整行内容，只保留一行。a) 第5行代码取得工作表中A列的最后一个非空单元格的行号，要注意Range对象的End属性。不知读者是否已经掌握。b) 第6行到第10行代码从最大行数至最小行数循环判断A列单元...
Public Sub 删除为0行() Dim i As Long, H As Long H = Range("a65536").End(xlUp).Row For i = H To 1 Step -1 If Range("A" & i).Value = 0 Then Range("A" & i).EntireRow.Delete End If NextEnd Sub A列为0的行都 删除吗？Sub 宏1()...
1. 按下"Alt+F11",打开VBA编辑器。 2. 在VBA编辑器中,插入一个新的模块。点击“插入”>“模块”。 3. 在新模块中输入以下VBA代码: ```vba Sub 删除特定行() Dim ws As Worksheet Dim lastRow As Long Dim i As Long ' 设置要操作的工作表 ...