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