Excel VBA：如何將值粘貼到表的最后一行的第一個單元格中？

Question

這是我的第一篇文章，我是VBA初學者，所以請原諒新手問題。

我試圖在表的第一列的最后一個單元格中粘貼一個值。 到目前為止，我從未使用過表，並且上面的操作很簡單，因為我只使用了Rows.Count函數。 以下是到目前為止我嘗試過的內容：

Sub Add2_TAP_Tracker()

'\\ Add new line
ActiveSheet.ListObjects("Table4").ListRows.Add AlwaysInsert:=True

'\\ Paste Data in New Row
Range("TAP!$C$8").Copy
ActiveSheet.ListObjects("Table4").ListColumns(3).Range

'-->Something to select the last cell and past it...<--

任何幫助將不勝感激 ！

謝謝，

奧利

Answer 1

Sub Range_End_Method()
'Finds the last non-blank cell in a single row or column

Dim lRow As Long
Dim lCol As Long

'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row

'Find the last non-blank cell in row 1
lCol = Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox "Last Row: " & lRow & vbNewLine & _
        "Last Column: " & lCol

End Sub

現在修改代碼並添加粘貼代碼。

來源： http : //www.excelcampus.com/vba/find-last-row-column-cell/

Answer 2

以下代碼在表中創建新行，然后將數據添加到該行中的特定單元格。 顯然，您更改了列數以匹配表。

Dim oNewRow As ListRow

  Set oNewRow = Worksheets("YourSheet").Range("TableName").ListObject.ListRows.Add(AlwaysInsert:=True)
    oNewRow.Range.Cells(1, 1).Value = 'Some data
    oNewRow.Range.Cells(1, 2).Value = 'Some data
    oNewRow.Range.Cells(1, 3).Value = 'Some data
    oNewRow.Range.Cells(1, 4).Value = 'Some data
    oNewRow.Range.Cells(1, 5).Value = 'Some data
    oNewRow.Range.Cells(1, 6).Value = 'Some data
    oNewRow.Range.Cells(1, 7).Value = 'Some data
    oNewRow.Range.Cells(1, 8).Value = 'Some data

Answer 3

感謝您的答復，我破解了今天早上想做的事情。 下次我將嘗試使用Rows.Count方法，因為我認為自己的方法有點長：

'\\Add New Line
Range("Table4[[#All],[Received]]").Select
Selection.End(xlDown).Select
Selection.ListObject.ListRows.Add AlwaysInsert:=True

'\\Select+Copy Target Data
Sheets("A Sheet").Select
Range("D8").Copy

'\\Paste Into Tracking Table
Sheets("Tracker").Select
Range("Table4[[#All],[Received]]").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues