Range("A2").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _PasteSpecial Paste:=xlPasteValues :=False, Transpose:=False 你要的是这个
点击右键再选粘贴和点击右键再按一下V都是两步啊,没有节省时间,有意义吗
你自己录一个宏就知道了