Как отформатировать многострочную ячейку чисел в Excel?

Question

Учитывая ячейку Excel с несколькими строками (перенос текста).

* 1003 Е.Г. *

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