Copy + Paste大法,其实自己个录个宏就行的
Range("C18").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
代码自己手工改改,如下:
Sheet1.Range("C18").Copy
Sheet1.Range("C18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
说说另一种方法,也是我很喜欢用的,关键是简单:
Sheet1.Range("P1").Value =Sheet1.Range("P1").Value
'对的,就这么一句,自己理解下,Value代表里面的值,Value=Value,然后就没有然后了
Sheet1.Range("P1:S50").Value =Sheet1.Range("P1:S50").Value
'这是多个单元格的用法