Excel 删除在另一张图纸上找到的某一行之后的所有行

我正在尝试编写一个VBA来删除工作簿中超过某个数字的所有行。例如，my（在单元格B6的第1页上找到特定行号），VBA将从第1页B6上找到的行号开始删除第2页上的所有行。到目前为止，这就是我所拥有的，但显然不起作用

Sub Button4_Click()
Worksheets("sheet 2").Rows($B$6 & ":" & Worksheets("sheet 2").Rows.Count).Delete
End Sub

线路

Worksheets("Sheet 2").Range("B" & Worksheets("Sheet 1").Range("B6") & ":B" & Worksheets("Sheet 2").Rows.Count).EntireRow.Delete

这会让你明白你的要求，但你应该问问自己，如果删除超过1000000行是否真的有效。您能否通过使用

（xlUp）

或

（xlDown）

方法来定义要删除的较小范围，从而识别

工作表（“表2”）

中最后使用的行

Worksheets("Sheet 2").Range("B" & Worksheets("Sheet 1").Range("B6") & ":B" & Worksheets("Sheet 2").Range("B" & Rows.Count).End(xlUp).Row).EntireRow.Delete

此外，根据您的使用情况判断，删除这些行的唯一目的是清除内容，在这种情况下，使用

.ClearContents

而不是

.Delete

会更快