返回值相對單元格引用

Question

我需要返回一個單元格的值，向下一行返回到表格中的最后一列，而不會使該單元格處於活動狀態。 我已經讓 VBA 返回最后一列。
這不起作用。

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

Answer 1

假設您正在談論“特定表格下方一行和一列右側的單元格”，您可以嘗試：

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

Answer 2

請使用 Offset 屬性

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