Question

我有一个代码，我正在运行以复制并粘贴到tabele （表1）。每次运行代码时我都会收到错误，你能否就我的代码错误提出建议？

Sub CopyData1()
Dim tbl As ListObject
Set tbl = Sheets("Tracker").ListObjects("Table1")
With Sheets("Sheet1")
    .Range("C1").Copy Destination:=tbl.Range("C").Rows.Count.End(xlUp).Offset(1)
 End With
End Sub

宏的目标是粘贴到下一个可用行中。

Answer 1

以下代码将粘贴＆＃34; C1＆＃34;到＆＃34;表1和＃34;中的下一个可用行对象（在＆＃34; Sheet1＆＃34;），在列＃34; C＆＃34;：

Option Explicit

Sub CopyData1()

Dim tbl As ListObject
Dim LastRow As Long

Set tbl = Sheets("Tracker").ListObjects("Table1")
LastRow = tbl.Range.Rows.Count ' get number of rows in "Table1" object

With Sheets("Sheet1")
    .Range("C1").Copy Destination:=tbl.Range(LastRow, "C").Offset(1)
End With

End Sub

Answer 2

我努力将数据正确添加到表的第一个空行中，或者在表为空的情况下添加数据。找到了一种适用于两种情况的简单解决方案：

LastRow = yoursheet.ListObjects("yourtable").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0).Row

在表格中查找最后一行并粘贴

2 个答案: