Question

我正试图从另一张纸张中拉出一个二维数组，并且我在下一行中不断收到错误：

FD_arr = FD.Range(Cells(2, 3), Cells(FD_TotalRows, 4)).Value

我无法弄清楚它有什么问题。

Sub Combine()

    Dim FD_strArray As Variant
    Dim FD_TotalRows As Long

    Set FD = ThisWorkbook.Sheets("FD")

    FD_TotalRows = FD.Rows(Rows.Count).End(xlUp).Row
    FD_arr = FD.Range(Cells(2, 3), Cells(FD_TotalRows, 4)).Value
    MsgBox FD_arr(4, 1) & " " & FD_arr(4, 2)

End Sub

Answer 1

您还需要使用工作表限定单元格调用。

FD_strArray = FD.Range(FD.Cells(2, 3), FD.Cells(FD_TotalRows, 4)).Value

为什么不从另一张纸上拉出一个阵列？

1 个答案: