EXCEL选择性粘贴宏

Question

求一个EXCEL粘贴选项宏
因为经常要把SHEET2里的上千单位数据（包括重复单位），粘贴到sheet1里各单位汇总数据，所有经常使用 复制， 选择性粘贴--数值--加， 确定 这一步骤，望大家发个“选择性粘贴--数值--加，确定”的宏，谢谢大家
有别的好方法的，也可以，我对录制宏不熟悉。

Answer 1

为如下宏创建一个快捷键、或加一个工具栏图标，需要时，先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!

Answer 2

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

自己录制一个就可以了啊