excel - 如何引用 Excel 表格中的特定行

Question

我正在尝试引用 Excel 表中的特定行，但出现“应用程序定义或对象定义错误”。这是行：

ActiveWorkbook.Worksheets("MatchedDeals").Cells(i, "A") = _
    ActiveWorkbook.Worksheets("Data"). _
    Range("Table_ExternalData_1[[" & iStartingRow & "],[TransID]]")

其中iStartingRow包含要引用的行号，并TransID表示列。我究竟做错了什么？

Answer 1

不要通过范围寻址表，而是尝试寻址表（在 VBA 中它是 a ListObject）：

ActiveWorkbook.Worksheets("MatchedDeals").Cells(i, "A") = _
    ActiveWorkbook.Worksheets("Data"). _
    ListObjects("Table_ExternalData_1")._
    ListColumns("TransID").DataBodyRange(iStartingRow)

Answer 2

试试下面的代码

Sub sample()

    iStartingRow = 2
    Set d = Sheets("Data").ListObjects("Table_ExternalData_1")
    Worksheets("MatchedDeals").Cells(i, "A")  = d.ListRows(1).Range.Cells(iStartingRow, 1)

End Sub