无法获取Range类的RowDifferences属性

1. 使用 ColumnDifferences 自从 Range("A1:A5") 是本例中的列。
2. 如果你在使用 RowDifferences 或 柱状差异 ,比较单元格 必须 位于 Range 你在比较,例如使用 A1 而不是 B1 是的。

为了进一步演示,我在 B1:B5 是的。与 A1号 作为比较单元,下面是 行差 和 柱状差异 ( Select 结果)。

行差

Sub TestRowDiff()
    Dim rng As Range

    With Sheets("Sheet2")
        Set rng = .Range("A1:B5").RowDifferences(.Range("A1"))
    End With

    rng.Select
End Sub

在这里 B1:B5层 选中-Excel按行检查第1-5行,比较A列和B列中的单元格。字母“f”不等于“a”,“g”不等于“b”等等。

列差异

Sub TestColDiff()
    Dim rng As Range

    With Sheets("Sheet2")
        Set rng = .Range("A1:B5").ColumnDifferences(.Range("A1"))
    End With

    rng.Select
End Sub

在这里 A2:B5 是因为“B”到“E”与“A”不相同,而“G”到“J”与“F”不相同。

正如@bigben在评论中所说,你可能正在寻找 ColumnDifferences 在这里。

Here 是MSDN文档 RowDifferences

以及 here 是为了 柱状差异

你应该得到这样的结果:

Set rng = ActiveSheet.Columns("A").ColumnDifferences(ActiveCell)