2范圍內的維數陣列我在單元格中的Excel工作表中有文本數據B6:H14。有些行有2個單元格有內容，有些行有4個，有些行有7個。如何將這些復制到2維數組？我已經知道尺寸了，所以我很擅長尺寸沒有被聲明為動態代碼。我是否需要使用循環（我目前正計劃使用）？或者是更容易/更優雅的方式？
1 回答
狐的傳說
TA貢獻1804條經驗 獲得超3個贊
假設您的電子表格看起來像這樣
有一種非常簡單的方法可以將其粘貼在2D陣列中
Dim arr as Variantarr = Range("B6:H14").Value將此數組打印回電子表格的最簡單方法
Sub PrintVariantArr()
Dim arr As Variant
arr = Range("B6:H14")
Range("B16").Resize(UBound(arr, 1), UBound(arr, 2)) = arrEnd Sub或者您可以迭代/循環數組
Sub RangeToArray()
Dim arr As Variant
arr = Range("B6:H14").Value Dim r As Long, c As Long
r = 16
c = 2
Dim i, j For i = LBound(arr, 1) To UBound(arr, 1)
For j = LBound(arr, 2) To UBound(arr, 2)
Cells(r, c) = arr(i, j)
c = c + 1
Next j
c = 2
r = r + 1
Next iEnd Sub并且您的陣列打印回電子表格
添加回答
舉報
0/150
提交
取消