如图，arr=range("a1:b4")，怎么给c,d列赋值，用到resize函数，不用一个个来
第1个回答 2019-03-09
arr = Range("a1:b4")
[C1].Resize(4, 2) = arr
[C1].Resize(4, 2) = arr
第2个回答 2019-03-08
试试以下代码
for i = 1 to 4for k = 1 to 2
cells(k + 2)=arr(k, i * 2 - 1)
next k
next i
第3个回答 2019-03-11
RESIZE做不到，合并的单元格在系统程序看起来仍然是一大片单元格，只是其中一个遮挡了其它的而已。追问
那不用resize吧
第4个回答 2019-03-08
这个合并单元格，还是一个个赋值吧。
要一起，也是把数组扩大了各行赋值，然后一下子赋值单元格区域。
要一起，也是把数组扩大了各行赋值，然后一下子赋值单元格区域。
第5个回答 2019-03-09
只能一个个赋值吧？
Sub test ()
for i = 1 to 4
for j= 1 to 2
cells(2*i-1,j+3)=Cells(i ,j)
next j
next i
End sub
Sub test ()
for i = 1 to 4
for j= 1 to 2
cells(2*i-1,j+3)=Cells(i ,j)
next j
next i
End sub
