[已解决]解释下代码？

fdsfsdfs

Sub 复制()
Dim ar, br, n&
ar = Array("f30:f49", "k30:k49", "m30:m49")
br = Array("e3", "c3", "o3")
For n = 0 To UBound(ar)
   Range(ar(n)).Copy Range(br(n))
Next
End Sub
怎么数组ar和br外面加了个Range单元格对象，这种写法没见过，到底是什么意思？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-11-15 20:40

ar = Array("f30:f49", "k30:k49", "m30:m49")
br = Array("e3", "c3", "o3")
For n = 0 To UBound(ar)
   Range(ar(n)).Copy Range(br(n))

array()组成一个一维数组,把这个数组交给变量ar，它的编号是从0开始的，所以，ar(0)指的是"f30:f49",ar(1)就是“k30:k49",ar(2)就是”m30:m49"。
而br(0)就是e3,br(1)是c3,br(2)是o3.
    整个代码就是循环进行复制粘贴，分别把"f30:f49"复制后粘贴到以e3为顶点的一列单元格区域，再把“k30:k49"复制后粘贴到以c3为顶点的一列单元格区域。

跳转到最佳答案楼层

CheryBTL

ar(n)不就是存在地址的字符串么，也就相当于地址了
这样理解起来就直接了
另外，可以通过F8一步步测试就会更清楚了

0Mouse

1. Sub xqoa()
   
2.     Dim S as string
   
3.     S = "D10"
   
4.     Range(S).Select    '选中D10单元格
   
5. End Sub

复制代码

叫我锁哥

arr(0)=f30:f49 它是一个 string 类型
range(arr(0))=range("f30:f49")
其实就是把单元地址用一个变量来表示了。

yyyydddd8888

ar = Array("f30:f49", "k30:k49", "m30:m49")
br = Array("e3", "c3", "o3")
For n = 0 To UBound(ar)
   Range(ar(n)).Copy Range(br(n))

array()组成一个一维数组,把这个数组交给变量ar，它的编号是从0开始的，所以，ar(0)指的是"f30:f49",ar(1)就是“k30:k49",ar(2)就是”m30:m49"。
而br(0)就是e3,br(1)是c3,br(2)是o3.
    整个代码就是循环进行复制粘贴，分别把"f30:f49"复制后粘贴到以e3为顶点的一列单元格区域，再把“k30:k49"复制后粘贴到以c3为顶点的一列单元格区域。

fdsfsdfs

yyyydddd8888 发表于 2013-11-15 20:40
ar = Array("f30:f49", "k30:k49", "m30:m49")
br = Array("e3", "c3", "o3")
For n = 0 To UBound(ar)

你所说的顶点是什么意思？

yyyydddd8888

fdsfsdfs 发表于 2013-11-15 20:58
你所说的顶点是什么意思？

分别把"f30:f49"复制后粘贴到以e3为顶点的一列单元格区域，再把“k30:k49"复制后粘贴到以c3为顶点的一列单元格区域。

"顶点"的意思就是：以这个单元格为起点，比如："f30:f49"是以E3为顶点的，那么，就是以e3这个单元格为起点，F30就粘贴在e3，后面的内容就粘贴在它的下面。
如果要粘贴的内容不止一列，而是多行多列的单元格区域，那么，顶点单元格就是最左上角的第一个单元格。其它内容就以它为起点，向下，向右填充。

victory610

学习了。