excel - 在两个电子表格上复制和选择性粘贴

Question

我需要为我的一个项目创建一个简单的复制和粘贴特殊宏。

只是为了打破它。

我有两个 excel 电子表格(香港维护 BAU)和(示例宏表)

我需要从 HK Maintenance BAU 复制并粘贴特殊到 Sample Macro Sheet

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

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

任何回应将不胜感激。我是 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

Answer 1

改变这个:

'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如你所愿