EXCEL挑选性粘贴宏

Uber

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

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

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