使用粘贴和插入行将数据从一张纸复制到另一张纸

Question

所以我是 Excel VBA 的新手，我得到了一个需要将数据从工作表 1 复制到新工作簿的项目。问题在于复制、粘贴和插入新行。 （有两个子程序，但第二个子程序差不多，是必须的，请见谅），谢谢。

Sub CopyInfo()
    On Error GoTo Err_Execute

    wb1.Sheets("dataform").Range("L2:N2").Copy
    wb2.Sheets(shtname).Range("A2:C27").Rows("1:1").Insert Shift:=xlDown
    wb2.Sheets(shtname).Range("A2:C28").PasteSpecial (xlPasteValues)


    wb1.Sheets("dataform").Range("B2:B28").Copy
    wb2.Sheets(shtname).Range("D2").Insert Shift:=xlDown

    wb1.Sheets("dataform").Range("D2:D28").Copy
    wb2.Sheets(shtname).Range("F2").Insert Shift:=xlDown

    update

    wb1.Sheets("Setlist").Range("G2").Copy
    wb2.Sheets(shtname).Range("E2:E27").Rows("1:27").Insert Shift:=xlDown
    wb2.Sheets(shtname).Range("E2:E28").Paste1Special

   wb2.Sheets(shtname).Columns().AutoFit

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description

End Sub


Sub update()

    wb1.Sheets("dataform").Range("D2:D28").Copy
    wb1.Sheets("dataform").Range("E2:E28").PasteSpecial
    wb1.Sheets("dataform").Range("F2:F28").PasteSpecial

    wb1.Sheets("dataform").Range("F2:F28").Copy
    wb2.Sheets(shtname).Range("G2").Insert Shift:=xlDown
End Sub

程序需要从当前工作簿表 1 复制到另一个工作簿。第一个工作簿表 1 将有新的行加载项，代码会自动更新它。目前，如果当前工作簿工作表 1 添加新行，我必须手动更新代码。

Answer 1

好的，有几个步骤可以达到您想要的结果。

1. 我假设您的第二个工作簿尚未打开，因此您需要先在 VBA 中打开它，然后才能复制您的范围。 SO和谷歌上有很多答案可以告诉你如何做到这一点。

2. 由于您将向原始工作表添加行，因此您需要一种将其包含在代码中的方法。关于如何做到这一点有几个选择。

   您可以创建一个表并使用Dim As ListObject 声明并在VBA 中设置它。这样，当新行添加到表中时，它们将自动包含在内。第二种方法是使用动态命名范围（请参阅公式选项卡下的名称管理器），其中包括添加新行。

3. 可能最重要的部分是通过声明变量和对象来简化代码。

目前你经常写wb1.Sheets("dataform")。而是使用Dim DataForm as Worksheet 和Set Dataform = wb1.Sheets("dataform")。这样，当使用您的工作表时，您只需写Dataform.Range("A1:A1")。请参阅下面的示例。

    Dim Source As Workbook
    Set Source = ThisWorkbook
    Dim Dataform As Worksheet
    Set Dataform = Source.Sheets("Dataform")

    Dataform.Range("L2:N2").Copy 'See how you can just adress the sheet by name

现在，如果您还将范围声明为表/命名范围，这将使代码更易于处理。由于您还总是在每次操作期间添加一行，因此更有效的方法是使用 for each loop 遍历所有命名范围/表，复制它们，将新行插入目标工作表，然后粘贴。

希望这是一些灵感

Answer 2

Sub CopyInfo()
    On Error GoTo Err_Execute

    dataform.Range("L2:N2").Copy
    wb2.Sheets(shtname).Range("A2").Rows("1:27").Insert Shift:=xlDown
    wb2.Sheets(shtname).Range("A2:C28").PasteSpecial (xlPasteValues)

    dataform.Range("LocationName").Copy
    wb2.Sheets(shtname).Range("D2").Insert Shift:=xlDown

    dataform.Range("Reading").Copy
    wb2.Sheets(shtname).Range("F2").Insert Shift:=xlDown

    update

    wb1.Sheets("Setlist").Range("D2").Copy

    wb2.Sheets(shtname).Range("E2").Rows("1:27").Insert Shift:=xlDown

   wb2.Sheets(shtname).Columns().AutoFit

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description

End Sub

Sub update()   

    dataform.Range("Reading").Copy
    dataform.Range("PreviousReading, Usage").PasteSpecial

    dataform.Range("Usage").Copy
    wb2.Sheets(shtname).Range("G2").Insert Shift:=xlDown
End Sub

（还有更多代码，但我只添加了一半，抱歉造成混淆。如果有有用的链接可以提供帮助。非常感谢。）