<em>Excel</em> <em>VBA</em>中<em&g

Sub Macro1()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

在工具－宏－选项里，为这个宏指定一个快捷键，如Ctrl+J

我的代码中，选择性粘贴、格式语句：

可以按F1获得各种粘贴的代码。

在End Sub前加一句

Application.CutCopyMode = xlCopy

就可以清除剪贴板

附件已上

Sheets("sheet1").Range("D2:D1000,H2:H1000").Copy
Sheets("sheet1").Range("D2:D1000,H2:H1000").PasteSpecial Paste:=xlPasteValues

Sheets("sheet2").Range("E2:E1000,G2:G1000").Copy
Sheets("sheet2").Range("G2:G1000,G2:G1000").PasteSpecial Paste:=xlPasteValues

本文标签：vba excel 选择性粘贴(1)vba选择性粘贴(1)