find一个特定的文本行，删除它，其余4行下面

我想删除1000个文件中的特定单元格区域。

这个单元格区域的位置在每个文件中都不相同。 有的从A12开始，有的从A20开始，A21开始

在一列中有5行（行），我想删除它们。

所以，我需要：

01）find具有特定文本（“VVVV”）的单元格（第一行）。

02）select这个单元格，其余4个（下面）

03）删除，selectSHIFT CELLS UP

起初，我只能select第一行并删除它（shell也向上移动）。 这里是我的代码，现在删除其他行，但有一个问题：

Sub deleteRows() ' ' deleteRows Macro ' ' Keyboard Shortcut: Ctrl+s ' Dim StartRange As String Dim EndRange As String Cells.Find(What:="VVVV").Select StartRange = ActiveCell.Address EndRange = ActiveCell.Address & 4 ActiveSheet.Range(StartRange & ":" & EndRange).Select Selection.Delete Shift:=xlUp End Sub 

它会删除比预期更多的行。 这意味着“EndRange”值存在问题。 也许，我将不得不尝试find一个函数来select范围并删除它。 例如，如果单元格在“A1：B1”中，我想要select“A1：B1”到“A5：B5”。

Answer 1

请试试这个：

  Sub deleteRows() ' ' deleteRows Macro ' ' Keyboard Shortcut: Ctrl+s ' Dim StartRange As String Dim EndRange As String Cells.Find(What:="VVVV").Select StartRange = ActiveCell.Address Selection.Offset(4, 0).Select EndRange = ActiveCell.Address ActiveSheet.Range(StartRange & ":" & EndRange).Select Selection.Delete Shift:=xlUp End Sub 

Answer 2

你可以用一行代码来完成：

 Cells.Find(What:="VVVV").Offset(-4, 0).Resize(5, 1).EntireRow.Delete