Як розділити список, розділений комами, на два стовпці в Excel?

У мене довгий список, розділений комами, який виглядає так у Excel:

401.50,0.027  
402.00,0.028  
402.50,0.029  
403.00,0.031  
403.50,0.032  
404.00,0.034  
404.50,0.037  

Чи є простий спосіб перетворити це на два окремі стовпці? Є понад 800 значень, і я дійсно не сподіваюся розділити їх усі окремо.

Ви намагалися використовувати текст до стовпців ?

1. Виділіть стовпець, який містить ваш список.
2. Перейдіть до Дані > Текст до стовпців .
3. Виберіть Розмежування . Клацніть Далі .
4. Виберіть Кома . Клацніть Далі .
5. Виберіть Загальне або Текст , що б вам не було зручніше.
6. Залиште пункт призначення таким, який є, або виберіть інший стовпець. Клацніть Готово .

Ви також можете використовувати дві формули у двох окремих стовпцях.

Щоб отримати значення ліворуч від коми:

=0+LEFT(K1,FIND(",",K1)-1)

Щоб отримати значення праворуч від коми:

=0+RIGHT(K1,LEN(K1)-FIND(",",K1))

де K1міститься початкова рядок, така як401.50,0.027

** 0+перед формулами перетворює витягнуті підрядки в числові дані.

Скопіюйте / вставте текст у текстовий редактор. Замініть всі символи пробілу на перевезенні / рядку каналів Зберегти як файл TXT. Відкрийте файл у Excel.

напишіть трохи vba для обробки вашого списку

Це передбачає, що список значень знаходиться в одній комірці і обраний. Закладає результати в наступні комірки

Sub zx()
    Dim a() As String
    Dim v As Variant
    Dim i As Long
    Dim j As Long

    a = Split(ActiveCell.Value, " ")
    ReDim v(1 To UBound(a) + 1, 1 To 2)
    For i = 1 To UBound(a) + 1
        j = InStr(a(i - 1), ",")
        v(i, 1) = Val(Left(a(i - 1), j - 1))
        v(i, 2) = Val(Mid(a(i - 1), j + 1))
    Next

    ActiveCell.Offset(1, 0).Resize(UBound(a) + 1, 2) = v
End Sub