您如何比較兩個工作表中的列？

Question

有人可以告訴我如何只比較一欄而不是整張紙嗎？ 謝謝。

子Compare（）

 Call compareSheets("Sofon", "Sofontest")

 End Sub


Sub compareSheets(Sofon As String, Sofontest As String)

Dim mycell As Range
Dim mydiffs As Integer

For Each mycell In ActiveWorkbook.Worksheets(Sofontest).UsedRange
    If Not mycell.Value = ActiveWorkbook.Worksheets(Sofon).Cells(mycell.Row, mycell.Column).Value Then

         mycell.Interior.Color = vbYellow
         mydiffs = mydiffs + 1

    End If
Next

MsgBox mydiffs & " differences found", vbInformation

ActiveWorkbook.Sheets(Sofontest).Select

End Sub

Answer 1

Call compareSheets("Sofon", "Sofontest", "B1:B900")

End Sub


Sub compareSheets(Sofon As String, Sofontest As String, sRange as String)

Dim mycell As Range
Dim mydiffs As Integer

For Each mycell In ActiveWorkbook.Worksheets(Sofontest).sRange
    If Not mycell.Value = ActiveWorkbook.Worksheets(Sofon).Cells(mycell.Row, mycell.Column).Value Then

         mycell.Interior.Color = vbYellow
         mydiffs = mydiffs + 1

    End If
Next

MsgBox mydiffs & " differences found", vbInformation


End Sub