当比较两个范围的值时，必须确保两个范围的大小相同，否则会生成错误13。以下是一个示例：

Sub CompareRanges()
    Dim Range1 As Range, Range2 As Range
    Set Range1 = Range("A1:A5")
    Set Range2 = Range("B1:B6")
    
    If Range1.Count = Range2.Count Then
        For i = 1 To Range1.Count
            If Range1(i).Value <> Range2(i).Value Then
                MsgBox "Range1 and Range2 are not equal."
                Exit Sub
            End If
        Next i
        MsgBox "Range1 and Range2 are equal."
    Else
        MsgBox "Ranges are not of equal size."
    End If
End Sub

该代码比较了两个范围，如果范围大小相等且范围中的单元格值相等，则提示“Range1和Range2相等”。否则，显示“范围大小不相等”或“Range1和Range2不相等”。