Как форматировать многострочную ячейку чисел в 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