Excel VBA 2工作表比较，如为空则填写

Sub CompareWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim cell1 As Range, cell2 As Range, rng1 As Range, rng2 As Range
    Dim diffCount As Integer
    
    ' 设置要比较的工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")
    
    ' 设置要比较的数据范围
    Set rng1 = ws1.Range("A1:D10")
    Set rng2 = ws2.Range("A1:D10")
    
    ' 清空目标工作表
    ws3.Cells.Clear
    
    ' 遍历数据范围
    For Each cell1 In rng1
        For Each cell2 In rng2
            ' 比较两个单元格的值
            If cell1.Value <> cell2.Value Then
                ' 如果值不相等，则在目标工作表中填写
                ws3.Cells(cell1.Row, cell1.Column).Value = cell1.Value
                diffCount = diffCount + 1
            End If
        Next cell2
    Next cell1
    
    ' 显示比较结果
    MsgBox "共有 " & diffCount & " 个不同的单元格。"
End Sub