0

我正在尝试将行添加到一个工作表上的表中，其中包含来自不同工作表的数据。下面的代码在一定程度上有效。

我可以让它一次添加一行数据，并确定将数据添加到表中的位置。但是，我希望它添加多行数据，同时仍然能够确定将在表中添加的位置。

我尝试了实现此过程的不同变体，但是，它们似乎都有问题。我可以插入多行，但无法确定它们在表中的位置，或者我无法一次添加多行。

Sub AddData()
 
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim NewRow As ListRow
        
        Set ws = ActiveWorkbook.Worksheets("DATA Member-19")
        Set tbl = ws.ListObjects("MemberInfo19")
        Set NewRow = tbl.ListRows.Add
            
            With NewRow
              .Range(1) = Sheets("Add Members").Range("B4")
            End With
End Sub

新行的范围将从 B4 开始，并且会根据需要添加的数据量而变化。它可能只有一行，但也可能是需要传输的几行数据。

4

0 回答 0