我需要在不激活该单元格的情况下将单元格的值返回到表格中的最后一列。我已经让 VBA 返回最后一列。
这不起作用。
WorkPercent = Cells(2, LastCol - 1).Value
请使用 Offset 属性
WorkPercent = Cells(2, LastCol - 1).Offset(1, 0).Value
假设您正在谈论“特定表格下方一行和右侧一列的单元格”,您可以尝试:
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