Excelで数値の複数行のセルをフォーマットするにはどうすればよいですか？

私は唯一の方法はマクロを使っていると思います。値を読み取り、各行を分割し、フォーマットし、結合する。

ALT+F11, insert -> module and add;

Public Function FORMATLINES(cell As Range) As String
Dim data() As String, i As Long
data = Split(cell.Text, vbLf)
にとって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