✨ VBA数组赋值小技巧：轻松搞定一维数组！ ✨

发布时间：2025-03-22 05:59:45来源：

如果你正在用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 编程数组操作

标签：

免责声明：本答案或内容为用户上传，不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。如遇侵权请及时联系本站删除。