Excel/VBA检查另一个工作表上是否存在整行

Sub CheckEntireRow()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rowToCheck As Range, rng As Range
    Dim isRowExists As Boolean
    
    ' 设置需要检查的工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1") ' 想要检查的工作表
    Set ws2 = ThisWorkbook.Worksheets("Sheet2") ' 包含要检查的行的工作表
    
    ' 设置要检查的整行范围
    Set rowToCheck = ws1.Rows(2) ' 您要检查的行
    
    ' 在工作表2中搜索整行范围
    Set rng = ws2.Cells.Find(What:=rowToCheck.Value, _
                             LookIn:=xlValues, _
                             LookAt:=xlWhole, _
                             SearchOrder:=xlByRows, _
                             SearchDirection:=xlNext, _
                             MatchCase:=False)
    
    ' 检查是否找到匹配的整行范围
    If rng Is Nothing Then
        isRowExists = False
    Else
        isRowExists = True
    End If
    
    ' 显示结果
    If isRowExists Then
        MsgBox "整行存在于工作表2中。"
    Else
        MsgBox "整行不存在于工作表2中。"
    End If
End Sub