Question

我正在尝试找到一种简单的方法来引用格式化表的名称，并将数据插入到我要引用的表的最后一行之后

目前，我指的是一列-但我想使用表名

Sub lastrow()
    Dim Last1 As Long

    With ThisWorkbook.Sheets("sheet2")
        Last1 = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
End Sub

Answer 1

这是向表/列表对象添加新行的方法

Dim rng as Range
Set rng = ThisWorkbook.Sheets("sheet2").listobjects("tableNameHere").ListRows.Add().Range

'work with rng, which is the newly-added row

Excel VBA引用表名在最后一行之后插入数据

1 个答案: