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
已经验证过了,代码可以直接用。
excel VBA 将文本数值转换为数字格式(单元格中数据左上角是绿三角,鼠标点上有叹号标示),布布扣,bubuko.com
excel VBA 将文本数值转换为数字格式(单元格中数据左上角是绿三角,鼠标点上有叹号标示)
原文:http://www.cnblogs.com/zigewb/p/3608142.html