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

Posted 2023-04-14

【中文标题】如何在 Excel 中格式化多行数字单元格？

【英文标题】：How to format multi-line cell of numbers in Excel?

【发布时间】：2012-02-06 12:40:18

【问题描述】：

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

例如

5501.700
640.8690
1081.45600
41.100

我想将所有数字（在这个单个单元格中）格式化为有 2 个小数位和千位分隔符。我有哪些选择来完成这项任务？

【参考方案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

【讨论】：

听起来不错，对于新单元格，我还应该将 Text Wrapping 的 Alignment 选项设置为 true。