blocks|key|2605869|text|正如@BigBen在评论中所说，你可能会在这里寻找ColumnDifferences。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2605870|Here是用于RowDifferences的MSDN文档。|2605871|这是为ColumnDifferences准备的|2605872|你应该会得到类似这样的结果：|2605873|Set+rng+=+ActiveSheet.Columns("A").ColumnDifferences(ActiveCell)|code-block|syntax|javascript|2605874|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-rowdifferences-method-excel^0|P|H|0|7|E|0|4|0|0|3|H|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@$9|Z|A|10|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|11|8|@$9|12|A|13|B|C]]|D|@$9|14|A|15|1|16]]|E|$]]|$1|H|3|I|5|6|7|17|8|@$9|18|A|19|B|C]]|D|@]|E|$]]|$1|J|3|K|5|6|7|1A|8|@]|D|@]|E|$]]|$1|L|3|M|5|N|7|1B|8|@]|D|@]|E|$O|P]]|$1|Q|3|-4|5|6|7|1C|8|@]|D|@]|E|$]]]|R|$S|$5|T|U|V|E|$W|X]]]]

As @BigBen said in the comments, you might be looking for <code>ColumnDifferences</code> here.

<a href="https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-rowdifferences-method-excel" rel="nofollow noreferrer">Here</a> is the MSDN documentation for <code>RowDifferences</code>

And <a href="https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-columndifferences-method-excel" rel="nofollow noreferrer">here</a> it is for <code>ColumnDifferences</code>

You should end up with something like:

<pre><code>Set rng = ActiveSheet.Columns("A").ColumnDifferences(ActiveCell)
</code></pre>

blocks|key|85568|text|type|unstyled|depth|inlineStyleRanges|entityRanges|data|85569|使用ColumnDifferences，因为Range("A1:A5")在本例中是一个列。|ordered-list-item|offset|length|style|CODE|85570|如果您使用的是RowDifferences或ColumnDifferences，则比较单元格必须位于您要比较的D10中，例如使用D11而不是D11|BOLD|85571|85572|为了进一步演示，我在B1:B5中添加了其他值。使用A1作为比较单元，下面是RowDifferences和ColumnDifferences的结果(Select在结果中)。|85573|行差异|85574|Sub+TestRowDiff()
++++Dim+rng+As+Range

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

++++rng.Select
End+Sub|code-block|syntax|javascript|85575|​|85576|📷|atomic|85577|85578|此处选择了B1:B5+-B1:B5检查第1-+5行，逐行比较列A和列B中的单元格。字母"f“与"a”不同，"g“与"b”不同，以此类推。|85579|列差异|85580|Sub+TestColDiff()
++++Dim+rng+As+Range

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

++++rng.Select
End+Sub|85581|85582|85583|85584|这里选择A2:B5是因为"b“到"e”不同于"a"，并且"g“到"j”不同于"f“。|85585|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/13bf2f95a080793a9d3d133489383efc.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/8a90cb6ceb0f93ae8e4147757b4a0775.png^0|0|2|H|M|E|0|7|E|M|H|1A|R|0|0|0|2D|A|5|P|2|11|E|1G|H|21|6|0|0|3|0|0|0|1|0|0|1|0|1|0|0|0|1|0|0|1W|5|5|C|5|0|0|3|0|0|4O|0|0|1|0|0|1|0|1|1|0|0|1|0|0|16|4|5|0^^$0|@$1|2|3|-4|4|5|6|1M|7|@]|8|@]|9|$]]|$1|A|3|B|4|C|6|1N|7|@$D|1O|E|1P|F|G]|$D|1Q|E|1R|F|G]]|8|@]|9|$]]|$1|H|3|I|4|C|6|1S|7|@$D|1T|E|1U|F|G]|$D|1V|E|1W|F|G]|$D|1X|E|1Y|F|J]]|8|@]|9|$]]|$1|K|3|-4|4|5|6|1Z|7|@]|8|@]|9|$]]|$1|L|3|M|4|5|6|20|7|@$D|21|E|22|F|J]|$D|23|E|24|F|G]|$D|25|E|26|F|G]|$D|27|E|28|F|G]|$D|29|E|2A|F|G]|$D|2B|E|2C|F|G]]|8|@]|9|$]]|$1|N|3|O|4|5|6|2D|7|@$D|2E|E|2F|F|J]]|8|@]|9|$]]|$1|P|3|Q|4|R|6|2G|7|@]|8|@]|9|$S|T]]|$1|U|3|V|4|5|6|2H|7|@$D|2I|E|2J|F|J]]|8|@]|9|$]]|$1|W|3|X|4|Y|6|2K|7|@$D|2L|E|2M|F|J]]|8|@$D|2N|E|2O|1|2P]]|9|$]]|$1|Z|3|V|4|5|6|2Q|7|@$D|2R|E|2S|F|J]]|8|@]|9|$]]|$1|10|3|11|4|5|6|2T|7|@$D|2U|E|2V|F|J]|$D|2W|E|2X|F|G]|$D|2Y|E|2Z|F|G]]|8|@]|9|$]]|$1|12|3|13|4|5|6|30|7|@$D|31|E|32|F|J]]|8|@]|9|$]]|$1|14|3|15|4|R|6|33|7|@$D|34|E|35|F|J]]|8|@]|9|$S|T]]|$1|16|3|V|4|5|6|36|7|@$D|37|E|38|F|J]]|8|@]|9|$]]|$1|17|3|X|4|Y|6|39|7|@$D|3A|E|3B|F|J]]|8|@$D|3C|E|3D|1|3E]]|9|$]]|$1|18|3|V|4|5|6|3F|7|@$D|3G|E|3H|F|J]]|8|@]|9|$]]|$1|19|3|1A|4|5|6|3I|7|@$D|3J|E|3K|F|J]|$D|3L|E|3M|F|G]]|8|@]|9|$]]|$1|1B|3|-4|4|5|6|3N|7|@]|8|@]|9|$]]]|1C|$1D|$4|1E|1F|1G|9|$1H|1I|1J|-4]]|1K|$4|1E|1F|1G|9|$1H|1L|1J|-4]]]]

<ol>
<li>Use <code>ColumnDifferences</code> since <code>Range("A1:A5")</code> is a column in this case.</li>
<li>If you're using <code>RowDifferences</code> or <code>ColumnDifferences</code>, the comparison cell must be located in the <code>Range</code> you are comparing, e.g. use <code>A1</code> and not <code>B1</code>.</li>
</ol>

To demonstrate further, I added additional values in <code>B1:B5</code>. With <code>A1</code> as the comparison cell, here are the results of <code>RowDifferences</code> and <code>ColumnDifferences</code> (<code>Select</code>ing the result).

Row Differences

<pre><code>Sub TestRowDiff()
 Dim rng As Range

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

 rng.Select
End Sub
</code></pre>

<a href="https://i.stack.imgur.com/o5kfQ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/o5kfQ.png" alt="enter image description here"></a>

Here <code>B1:B5</code> is selected - Excel checks rows 1 - 5, comparing the cells in Column A to Column B, by row. The letter "f" is not the same as "a", "g" is not the same as "b" and so on.

Column Differences

<pre><code>Sub TestColDiff()
 Dim rng As Range

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

 rng.Select
End Sub
</code></pre>

<a href="https://i.stack.imgur.com/AArwL.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/AArwL.png" alt="enter image description here"></a>

Here <code>A2:B5</code> are selected since "b" through "e" are not the same as "a", and "g" through "j" are not the same as "f".

I have the following data in the active spreadsheet:

<pre><code>A B
--- ---
a a
b
c
d
e
</code></pre>

where <code>B1</code> is currently the active cell.

The following code in the Debug pane:

<pre><code>Dim rng As Range
Set rng = ActiveSheet.Range("A1:A5").RowDifferences(ActiveCell)
</code></pre>

fails with:

<blockquote>
 Run-time error '1004': Unable to get the RowDifference property of the Range class
</blockquote>

What is the proper usage of the <code>RowDifferences</code> property?

<hr>

Update

I get the same error when using <code>ColumnDifferences</code> for the above data.

<pre><code>Set rng = ActiveSheet.Columns("A").ColumnDifferences(ActiveCell)
</code></pre>

Even when I transpose the data:

<pre><code>A B C D E
--- --- --- --- ---
a b c d e
a
</code></pre>

and set <code>A2</code> as the active cell, I get the same error for:

<pre><code>Set rng = ActiveSheet.Rows(1).RowDifferences(ActiveCell)
</code></pre>

Unable to get the RowDifferences property of the Range class

我在活动电子表格中有以下数据：A    B---  ---a    abcde其中B1是当前活动的单元格。“调试”窗格中的以下代码：Dim rng As RangeSet rng = ActiveSheet.Range("A1:A5").RowDifferences(ActiveCell)失败，出现以下错误：运行时错误...

问无法获取Range类的RowDifferences属性
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问无法获取Range类的RowDifferences属性EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问无法获取Range类的RowDifferences属性
EN