Range("A6").SelectSelection.CopyRange("A10:A60").SelectRange(Selection, Selection.End(xlDown)).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _ :=False, Transpose:=False
已经验证过了,代码可以直接用。