如何在excel vba中获取二维数组中选定行的值？
如何在excel vba中获取二维数组中选定行的值？
提问于 2018-07-05 02:36:46
我想将所选行的值存储在一个动态的二维数组中。
Dim values() As Variant
values=ActiveCell.EntireRow.Select我是VBA.I的新手，我有行和列的数据，我想将特定选定行的所有值存储在一个数组中，然后计划进一步使用这些值。
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-07-05 03:40:37
下面这样的代码应该能起到作用：
Sub Test()
Dim COL As Long, X As Long, Y As Long
Dim MyArray() As Variant
COL = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
For X = 1 To COL
ReDim Preserve MyArray(Y)
MyArray(Y) = Cells(ActiveCell.Row, X).Value
Y = Y + 1
Next X
For X = LBound(MyArray) To UBound(MyArray)
Debug.Print MyArray(X)
Next X
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51179384
复制相关文章
相似问题