Question

我需要为一个简单的副本创建一个宏，并为我的一个项目粘贴Special。

只是打破它。

我有两张excel电子表格（HK Maintenance BAU）和（样本宏表）
我需要将HK Maintenance 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

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的其他选项

在两个电子表格上复制并选择粘贴

1 个答案: