Question

如何将单元格值恢复到Variant数组的范围？我得到运行时错误9下标超出范围错误。 cellPosition包含值（B9，C10，F6 ......）

For i = LBound(cellPositions) To UBound(cellPositions)
    save_fix_general_data(i) = ActualWBK.Worksheets(1).Range(cellPositions(i)).Value
    i = i + 1
Next

Answer 1

这个是自己的工作，你可能会得到意义。它打印第一张纸的A1，A2，A3和A4中的值。

Option Explicit

Sub RangerHarmiony()

    Dim arr(3)          As String
    Dim l_counter       As Long

    arr(0) = "A1"
    arr(1) = "A2"
    arr(2) = "A3"
    arr(3) = "A4"

    For l_counter = LBound(arr) To UBound(arr)
        Debug.Print Range(arr(l_counter)).Value
    Next

End Sub

做你想做的事情就足够了：）

从变体到范围获取单元格值

1 个答案: