EXCEL选择性粘贴宏

发布网友发布时间：2022-05-16 11:42

共2个回答

热心网友时间：2023-10-21 13:33

为如下宏创建一个快捷键、或加一个工具栏图标，需要时，先Copy一下源数据，再选择好目标位置后，执行之，即可！

Sub 选择性粘贴宏_加()
On Error GoTo ErrorHandler
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Exit Sub
ErrorHandler:
MsgBox "选择性粘贴性失败，请先在Excel中Copy再执行本功能", vbOKOnly + vbCritical, "选择性粘贴"
End Sub

有疑问，请Hi我或给我发百度消息
GoodLuck!

热心网友时间：2023-10-21 13:34

Sub SheetCopy()
Sheets("Sheet2").Select
Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

自己录制一个就可以了啊