小数点后如何保持可变的数字量

我正在使用Excel 2007年。我有多个数据集在每行中随机数的字符。 例如：

A1 1.60 A2 0.008 A3 0.900 A4 1.0 A5 0.56 A6 1.703 

我需要在不同的页面上进行不同的顺序，比如

 A1 1.60 A2 0.900 A3 1.0 A4 0.56 A5 1.703 A6 0.008 

不幸的是，每当我把它移动到一个新的页面（例如，我可以移动它= = Page1！A1）数字恢复到

 A1 1.6 A2 0.9 A3 1 A4 0.56 A5 1.703 A6 0.008 

所以我失去了零。

使事情复杂化，每个条目/行/列的字符数在数据集之间变化。 这意味着使用=TEXT(A1,"#.#0") 不能工作 – 有时我的A1可能是1498或其他。

我（可能）正在寻找能够“计数”显示小数的代码，然后自动生成这些代码。 或者其他任何方式来获得我的可变数据正确的小数（或缺less）将做的。 VBA /macros/function？

Answer 1

你可以根据你的情况调整这个代码

 Public Sub MaintainTrailingZeroFormat() Dim s As String Dim lngLength As Long, lngDecimal As Long, lngTrailingZero As Long Dim r As Range ''Grab cell value as text s = ActiveWorkbook.ActiveSheet.Range("A2").Text ''Find decimal from beginning of string lngDecimal = InStr(s, ".") ''Find total length of string lngLength = Len(s) ''Subtract to find number of trailing zeros lngTrailingZero = i - st ''Set destination cell format to 'TEXT' ActiveWorkbook.Sheets(2).Range("A1").NumberFormat = "@" ''Populate cell with text value ActiveWorkbook.Sheets(2).Range("A1") = FormatNumber(s, EX) End Sub