excel - 返回值相对单元格引用

Question

我需要在不激活该单元格的情况下将单元格的值返回到表格中的最后一列。我已经让 VBA 返回最后一列。
这不起作用。

WorkPercent = Cells(2, LastCol - 1).Value

Answer 1

请使用 Offset 属性

WorkPercent  = Cells(2, LastCol - 1).Offset(1, 0).Value

Answer 2

假设您正在谈论“特定表格下方一行和右侧一列的单元格”，您可以尝试：

Sub main()
    Dim sheet As Worksheet
    Dim tbl As ListObject
    Dim lastCol As Integer
    Dim lastRow As Integer

    Set sheet = ActiveSheet
    Set tbl = sheet.ListObjects("tbl")

    lastCol = tbl.DataBodyRange.Columns(tbl.DataBodyRange.Columns.Count).Column
    lastRow = tbl.DataBodyRange.Rows(tbl.DataBodyRange.Rows.Count).Row

    MsgBox sheet.Cells(lastRow + 1, lastCol + 1)
End Sub