excel 宏 如何 实现只拷贝数值而不带其它公式

只能用Vba实现，比如在sheet1中，打开visual basic编辑器，双击左侧sheet1，然将代码粘贴到右侧，保存即可，不用运行，这是触发事件。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
col = Target.Column
Row = Target.Row
Cells(Row, 3).Value = Cells(Row, 2).Value
Application.EnableEvents = True
End Sub

Sub Macro1()
Columns("B:B").Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Columns("B:B").Delete
End Sub

其实你直接用VBA，将A列的数据提取写入到原来的A列
Sub Macro1()
x = Sheets("sheet1").Range("a56565").End(3).Row
For i = 1 To x
Cells(i, 1).Value = Right(Cells(i, 1), 5)
Next
End Sub

Sub Macro1()
Range("B1:B2").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C11").Select
Application.CutCopyMode = False
End Sub
----------------------------------------
将上述宏复制运行即可。

PS：1.如果想取得数值，最好用公式B1=--RIGHT(A1,5)
2.选择性粘贴-数值好用的。
具体方法:复制B1，然后选A1，右键－选择性粘贴－数值。

祝你成功！