方法四:使用 Union 和Delete 方法一次性删除多行 如果你需要删除多行不连续的行,可以先将它们合并到一个 Range 对象中,然后一次性删除。 Sub DeleteMultipleNonContiguousRows() Dim ws As Worksheet Dim rngToDelete As Range Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换 "Sheet1" 为你的工作表名称 ' ...
1. Delete a Specific Row The following code can be used to delete the third row in 'Sheet1' of the dataset : Sub DeleteSpecificRow() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ws.Rows(3).Delete End Sub Press Run or F5 to run the above macro. 2. Removing Rows b...
lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取最后一行的行号 For i = lastRow To 1 Step -1 If Cells(i, "A").Value < 10 Then '根据条件判断是否删除行 Rows(i).Delete End If Next i End Sub 上述代码中,我们首先使用Cells(Rows.Count, "A").End(xlUp).Row获取最后一行的行号。
it did not do actually delete rows (it did nothing, no error thrown). I attached a screen recording of me debugging the Sub. As you will see, the For loop breaks out after only 1 iteration, even though LastRow is 50 (correct value). Would you happen to kno...
Sub mynzDeleteEmptyRows() '此宏将删除特定列中缺失数据行 Dim Counter Dim i As Integer Counter = InputBox("输入要处理的总行数!") ActiveCell.Select For i = 1 To Counter If ActiveCell = "" Then Selection.EntireRow.Delete Counter = Counter - 1 Else ActiveCell.Offset(1, 0).Select End If...
1 打开Excel表格，使用【Alt】+【F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。2 在VBA编辑器的菜单栏上面点击【插入】，【模块】。3 在VBA编辑器的代码框里面输入以下程序：Sub deleterows()Dim i&, k& '定义i，k为长整数On Error Resume ...
ActiveCell.EntireRow.Delete End Sub PrivateSubCommandButton2_Click() DimminY DimmaxY minY=Selection.Row maxY=Selection.Rows.Count+Selection.Row-1 '从光标所在的行到另一个指定的行 'ActiveWorkbook.Worksheets("sheetName").Range("A" & CStr(minY), "A" & CStr(maxY)).EntireRow.Delete ...
方法/步骤 1 如图测试表格中AB两列中有完全相同的行，下面操作就删除重复的行，只保留一条；2 按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【删除重复的行】；3 通过双循环语句逐行遍历数据（For i = 1 To Sheet1.UsedRange.Rows.Count:For j = i + 1 To ActiveSheet.UsedRange.Rows.Count:next:...
方法一：使用Range对象的Delete方法 可以使用Range对象的Delete方法来删除其中一行或多行。具体步骤如下：1. 定义一个Range对象来表示要删除的行，可以使用Range对象的Offset方法定位到要删除的行。例如，要删除第5行，可以使用以下代码：```vba Dim rng As Range Set rng = Rows(5)```2. 调用Range对象的Delete...
For i = 2 To 80000 '共执行这么多行 k = k + 1 '从第二行开始 If mysheet1.Cells(k, 1) = mysheet1.Cells(1, 6) Then '条件判断 mysheet1.Rows(k).Delete shift:=xlUp '删除行 k = k - 1 '如果删除一行,则少一行 End If