'以下函数实现在A1:A9999中查询包含varName的行,返回该行的行号.

Function find_row(varName)
  Dim xxx As Object
  Dim yy As String
  Dim xx As Object
    Set xxx = Range("A1:A9999")
    yy = varName
    For Each xx In xxx
        If xx = yy Then
            'Set xx1 = xx.End(xlDown)
            'Range(xx.Address & ":" & xx1.Address).EntireRow.Delete
            find_row = xx.Row
            Exit Function
        End If
    Next
End Function