目的是创建一个数组，其中的项目在声明的范围内。很简单，但我无法正常工作...
'Declaration
Dim Measures As Variant
Dim MeasureRows As Long
'Search and store
Sheets(4).Activate
MeasureRows = Range("A" & Rows.Count).End(xlUp).row
Measures = Range(Cells(2, 1), Cells(MeasureRows, 1)).Value2
MeasureRows可以很好地填充，但是当我检查“度量”时，它为空。例如
?MeasureRows
780
?Measures(MeasureRows) 'Returns "Subscript out of range"
?Measures(1) 'Returns "Subscript out of range"
在谈到VBA时，我非常环保。请原谅。我尝试在网上搜索答案，但无法正常工作。我想我只是不知道搜索词的正确行话。
从图纸读取是二维
Option Explicit
Public Sub test()
Dim Measures As Variant
Dim MeasureRows As Long
With Worksheets("Sheet4")
MeasureRows = .Cells(.Rows.Count, "A").End(xlUp).Row
Measures = .Range(.Cells(2, 1), .Cells(MeasureRows, 1)).Value2
End With
Dim i As Long
For i = LBound(Measures, 1) To UBound(Measures, 1)
Debug.Print Measures(i, 1)
Next
Stop
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句