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