如何在Excel中格式化数字的多行单元格？

Question

给定一个包含多行的Excel单元格（文本换行）。

E.g。

5501.700
640.8690
1081.45600
41.100

我想格式化所有数字（此单个单元格中的 ）以包含2个小数位和千位分隔符。我有什么选择来完成这项任务？

Answer 1

我认为唯一的方法是使用宏;读取值，拆分每一行，格式化，加入。

ALT + F11，插入 - ＆gt;模块和添加;

Public Function FORMATLINES(cell As Range) As String
Dim data() As String, i As Long
data = Split(cell.Text, vbLf)
For i = 0 To UBound(data)
    If IsNumeric(data(i)) Then data(i) = FormatNumber(data(i), 2, vbTrue, vbFalse, vbTrue)
Next
FORMATLINES = Join(data, vbLf)
End Function

对于

=FORMATLINES(A1)

给我;

5,501.70
640.87
1,081.46
41.10