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

Question

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

E.g.

5501.700 
640.8690 
1081.45600 
41.100 

我想格式化所有数字（在这个单细胞）有2位小数和千个分隔符。我有什么选择来完成这项任务？

Answer 1

我认为唯一的方法是用宏;读取值，分割每一行，格式，连接。

ALT + F11，插入 - >模块并添加;

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