如何用数组表示某一列数据

withmelian

我是初学VBA的菜鸟，现在有一个问题是这样的，我定义了一个数组，把表格中A1至D50斌值给了数组，现在想用数组表示A列，请教高手如何表示；

liulang0808

Application.WorksheetFunction.Index(Arr, 0, 1)
ARR为数组

cjc209

for i=1 to 50
brr(n)=arr(i,1)
end if
循环出来的都是a列的数据

withmelian

cjc209 发表于 2019-1-21 14:09
for i=1 to 50
brr(n)=arr(i,1)
end if

不用循环可以吗？数据量有点大。

lsdongjh

1. Sub Test()
   
2.     Dim arr As Variant
   
3.     Dim brr As Variant
   
4.    
   
5.     arr = Sheet1.Range("A1:A50")
   
6.    
   
7.     ReDim brr(1 To 50, 1 To 1)
   
8.     Sheet1.Range("A1:A50") = brr
   
9.    
   
10. End Sub

复制代码

cjc209

那就试试 range("e1").Resize(50,1)=arr

dsmch

1. Sub 宏1()
   
2. arr = [a1:d50]
   
3. brr = Application.Index(arr, 0, 1)
   
4. End Sub

复制代码

MOY838840554

一列有1048576行，没必要吧？
直接赋值有数据的区域不就好了
arr=range("A1:A" & CELLS(rows.count,"A").END(3).ROW)

liulang0808

需要审核的，这次截图

withmelian

liulang0808 发表于 2019-1-21 14:34
需要审核的，这次截图

解决了，非常感谢！