如果你正在用VBA处理数据，可能会遇到需要将Excel中的一列数据快速赋值到数组的情况。今天就来分享一个简单又实用的方法，让你事半功倍！🚀

假设你有一列数据（比如A1:A10），想要把这些数据一次性放入数组中，可以用以下代码：

```vba

Sub AssignArray()

Dim arr() As Variant

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称

arr = Application.Transpose(ws.Range("A1:A10").Value) ' 将A1:A10范围的数据赋值给数组

Debug.Print arr(1) ' 测试输出第一个元素

End Sub

```

💡 小贴士：

- 使用`Application.Transpose`可以轻松将垂直数据转为一维数组，非常适合处理列数据。

- 如果数据是横排的（如A1:J1），直接使用`.Value`即可。

学会这个方法后，你会发现处理大数据集变得轻而易举！💪 所以，赶紧试试吧，让VBA成为你工作的得力助手吧！💫

VBA Excel 编程 数组操作