如何防止Excel中的数据更改

时间:2016-12-07 09:03:04

标签: excel vba

早上好, 我有数据表。他们中的大多数是数字,但其中一些包含字母。我需要使用" pastespecial"范围内的财产。 问题是,有时我的数字如下: 5924017E7和excel将其转换为59240170000000。

Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "@"

我试图将列定义为" General"," Number"," Text"并将Selection.NumberFormat定义为正确的值,但对于此数字" 5924017E7"它没有用。无论如何都在改变它。 如何防止这种变化?

1 个答案:

答案 0 :(得分:0)

如果你改变了这个:

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False

有了这个:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

应该这样做