[已解决]怎么把二维数组的第一列赋值给工作表的第A列

非池中

如题
只要一列，需要怎样的代码呢？谢谢~~~

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-12 11:17

1. Sub Macro1()
   
2. arr = Range("e1").CurrentRegion
   
3. [a:a] = ""
   
4. Range("a1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 1)
   
5. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. arr = Range("e1").CurrentRegion
   
3. [a:a] = ""
   
4. Range("a1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 1)
   
5. End Sub

复制代码

hwc2ycy

dsmch 发表于 2015-3-12 11:17

可以不用index取第一列。

1. Range("a1").Resize(UBound(arr), 1) =arr

复制代码