无法获得Range类的RowDifference属性怎么办??

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (105)

我在活动电子表格中有以下数据:

A    B
---  ---
a    a
b
c
d
e

B1当前活动单元格在哪里。

“调试”窗格中的以下代码:

Dim rng As Range
Set rng = ActiveSheet.Range("A1:A5").RowDifferences(ActiveCell)

这失败了:

运行时错误'1004':无法获取Range类的RowDifference属性

RowDifferences的正确用法是什么?

使用ColumnDifferences上述数据时出现同样的错误。

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

即使我转置数据:

A   B   C   D   E
--- --- --- --- ---
a   b   c   d   e
a

并设置A2为活动单元格,我得到相同的错误:

Set rng = ActiveSheet.Rows(1).RowDifferences(ActiveCell)
提问于
用户回答回答于

行差异

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行,按行比较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”不同。

用户回答回答于

你可能在寻找ColumnDifferences

是MSDN文档RowDifferences

在这里它是ColumnDifferences

你应该得到类似的东西:

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

所属标签

可能回答问题的人

  • 找虫虫

    0 粉丝0 提问5 回答
  • 骑牛看晨曦

    4 粉丝522 提问4 回答
  • 爸爸

    腾讯 · 客户端安全 (已认证)

    3 粉丝4 提问4 回答
  • 不吃貓的鱼oo

    5 粉丝466 提问4 回答

扫码关注云+社区

领取腾讯云代金券