大师你好！如何向二维数组添加行。谢谢！

HHAAMM

16楼代码 “Range("d10").Resize(n, 7) = Application.Transpose(arr2)”这句换为
Range("d10").Resize(7, n) = arr2
运行下，可能有助于你的理解

fsydw

原帖由 HHAAMM 于 2010-4-26 00:32 发表
16楼代码 “Range("d10").Resize(n, 7) = Application.Transpose(arr2)”这句换为
Range("d10").Resize(7, n) = arr2
运行下，可能有助于你的理解

有劳版主大师了！我再琢磨琢磨......晚安！！！！！！！！！

aidixiao

用copymemory或借用javascrip中的数组功能，可能能实现楼主要的功能。见狼版和figifg大师实现过类似的功能。

seven102

学习，学习

Weisend

原帖由 fsydw 于 2010-4-25 22:37 发表

谢谢大师赐教！
一行的数据，需要一列、一列的赋值吗？想当于一个单元格、一个单元格地赋值啊！！？？？必须的吗？没有按一行赋值的代码吗？谢谢！

option base 1
dim arr,ii
arr=array(3,5,6)
for ii=1 to 3
for i=1 to 7
  arr2(arr(ii), i)=arr1(arr(ii), i)
next i
next ii

fsydw

原帖由 Weisend 于 2010-4-26 16:56 发表

option base 1
dim arr,ii
arr=array(3,5,6)
for ii=1 to 3
for i=1 to 7
  arr2(arr(ii), i)=arr1(arr(ii), i)
next i
next ii

谢谢大师赐教！
option base 1 是什么意思？有什么作用？