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

返回值相对单元格引用Excel VBA

2 个答案: