Question

问EXCL VBA 中， Rng.Address超长了怎么表示。

dim Rng as range
set Rng=range("a1")
for i=3 to 200 setp 2
set Rng=union(Rng,rang("a"& i))
next
Range("c1")=rng.address

问题是，Range("c1")单元格显示的地址不全，只显示除了246个字符
难道RNG的Address最大字符长度只有246个？？？
问如何取得全的rng.address属性值

Answer 1

是的，Address有长度限制
解决方法：
Sub abc()
Dim Rng As Range, c As Range
Dim s As String

Set Rng = Range("a1")
For i = 3 To 200 Step 2
Set Rng = Union(Rng, Range("a" & i))
Next i

For Each c In Rng
s = s & c.Address & ","
Next c
s = Left(s, Len(s) - 1)
Range("c1") = s
End Sub