如何在Excel VBA中的多个工作表中选择相同的范围？

Sub SelectSameRangeInWorksheets()
    Dim ws As Worksheet
    Dim rng As Range
    Dim firstRange As Range
    Dim sameRange As Range
    
    ' 设置要比较的范围
    Set firstRange = Worksheets(1).Range("A1:B10")
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过第一个工作表
        If ws.Index <> 1 Then
            ' 在当前工作表中查找相同范围
            Set rng = ws.Range("A1:B10")
            
            ' 检查范围是否相同
            If IsRangeSame(firstRange, rng) Then
                ' 将相同范围添加到选择范围中
                If sameRange Is Nothing Then
                    Set sameRange = rng
                Else
                    Set sameRange = Union(sameRange, rng)
                End If
            End If
        End If
    Next ws
    
    ' 选中相同范围
    If Not sameRange Is Nothing Then
        sameRange.Select
    End If
End Sub

Function IsRangeSame(rng1 As Range, rng2 As Range) As Boolean
    ' 检查范围的行数和列数是否相同
    If rng1.Rows.Count <> rng2.Rows.Count Or rng1.Columns.Count <> rng2.Columns.Count Then
        IsRangeSame = False
        Exit Function
    End If
    
    ' 检查范围内的值是否相同
    Dim cell1 As Range
    Dim cell2 As Range
    For Each cell1 In rng1
        Set cell2 = rng2.Cells(cell1.Row, cell1.Column)
        If cell1.Value <> cell2.Value Then
            IsRangeSame = False
            Exit Function
        End If
    Next cell1
    
    IsRangeSame = True
End Function