excel - 如何将 a 中的值复制/粘贴到设置的维度数组并在完成后删除

Question

我在制定 vba 代码时遇到问题。

我的整个目标如下：

• 我想将一个 Row 添加到一个命名表（在这种情况下它被命名July2020table）。

• 将值从范围粘贴到此行A20:E20

• 将值A20:E20粘贴到newrow.

这是我目前拥有的。

Sub AddRowtToBudgetTable()

Dim ws As Worksheet
Set ws = ActiveSheet
Dim tbl As ListObject
Set tbl = ws.ListObjects("July2020Table")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add
Range("A20:E20").Copy

此代码当前能够向表中添加一行，但是我无法将值粘贴A20:E20到此表中。

标签： excelvba

Answer 1

正如#teylyn 提议的那样；-)

Option Explicit

Sub AddRowtToBudgetTable()    
Dim ws As Worksheet
    
    Set ws = ActiveSheet
    Dim tbl As ListObject
    Set tbl = ws.ListObjects("July2020Table")
    Dim newrow As ListRow
    Set newrow = tbl.ListRows.Add
    Range("A20:E20").Copy Destination:=newrow.Range
    Range("A20:E20").ClearContents    
End Sub