Excel 在两个电子表格上复制并粘贴特殊数据

我需要为我的一个项目创建一个简单的复制和粘贴专用宏

只是为了打破它

我有两个excel电子表格（HK维护BAU）和（宏表样本）

我需要复制和粘贴特别从香港维护BAU的样品宏表

我想复制到最新的空单元格

下面是代码，但我只能复制和粘贴，但不能粘贴特殊

如有任何回应，将不胜感激。我是VBA的新手。再次表示感谢

Sub test()
    Application.ScreenUpdating = False

    Dim s1 As Excel.Worksheet
    Dim s2 As Excel.Worksheet
    Dim iLastCellS2 As Excel.Range
    Dim iLastRowS1 As Long

    Set s1 = Sheets("HK Maintenance BAU")
    Set s2 = Sheets("Sample Macro Sheet")

    'get last row number of J in HK Maintance BAU Sheet'
    iLastRowS1 = s1.Cells(s1.Rows.Count, "G").End(xlUp).Row

    'get last AVAILABLE cell to paste into'
    Set iLastCellS2 = s2.Cells(s2.Rows.Count, "A").End(xlUp).Offset(1, 0)

    'copy&paste into Sample Macro Sheet'
    s1.Range("G1", s1.Cells(iLastRowS1, "G")).Copy iLastCellS2

    Application.ScreenUpdating = True
End Sub

更改此项：

'copy&paste into Sample Macro Sheet'
s1.Range("G1", s1.Cells(iLastRowS1, "G")).Copy iLastCellS2

为此：

'copy&paste into Sample Macro Sheet'
    s1.Range("G1", s1.Cells(iLastRowS1, "G")).Copy
    iLastCellS2.PasteSpecial xlPasteValues

---

然后，您可以根据需要为

xlPasteValues

使用其他选项

签出。我应该在路上帮你。@Peter嗨，我应该在哪里换车？我尝试了不同的方法，但没有奏效。