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