excel - 如何删除特定行上方的所有行？

Question

我正在编写一些从外部源导入数据的代码；然而，问题是标题行有时在其上方包含空白行。由于这些行是不必要的，我想删除标题行上方的所有行。

目前，我有下面的代码在标题行中寻找一个词（“组织”这个词）并删除上面的行。理想情况下，我想让代码更健壮，因为标题行上方的行数会不时变化。如果我能以某种方式让代码删除标题上方的所有行，我会非常满意。

Option Explicit

Dim wks As Worksheet
Dim strSearch As String
Dim lookUp As Range

Private Sub cmdRefresh_Click()

Set wks = Sheets("Data")
wks.Activate

'Delete rows (if any) above header row
strSearch = "Organization"
Set lookUp = wks.Cells.Find(what:=strSearch, lookat:=xlWhole, searchorder:=xlByRows, MatchCase:=False)
lookUp.Select

If lookUp.Row <> 1 Then
    wks.Range(lookUp, lookUp.Offset(-1)).EntireRow.Delete
End If

End Sub

任何帮助将不胜感激。

标签： excelvbarobustness