Làm cách nào để tách danh sách được phân tách bằng dấu phẩy thành hai cột trong Excel?

Tôi có một danh sách dài được phân tách bằng dấu phẩy giống như trong 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  

Có một cách đơn giản để chuyển đổi này thành hai cột riêng biệt? Có hơn 800 giá trị và tôi thực sự không mong muốn tách riêng chúng ra.

Bạn đã thử sử dụng Text to Cột chưa?

1. Đánh dấu cột có chứa danh sách của bạn.
2. Chuyển đến Dữ liệu > Văn bản thành Cột .
3. Chọn Delimited . Nhấn Next .
4. Chọn dấu phẩy . Nhấn Next .
5. Chọn Chung hoặc Văn bản , tùy theo bạn thích.
6. Để lại đích như là, hoặc chọn một cột khác. Nhấp vào Kết thúc .

Bạn cũng có thể sử dụng hai công thức trong hai cột riêng biệt.

Để lấy các giá trị ở bên trái dấu phẩy:

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

Để có được các giá trị ở bên phải dấu phẩy:

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

nơi K1chứa chuỗi ban đầu, chẳng hạn như401.50,0.027

** 0+trước khi các công thức chuyển đổi các chuỗi con được trích xuất thành dữ liệu số.

Sao chép / Dán văn bản vào trình soạn thảo văn bản Thay thế tất cả các ký tự khoảng trắng bằng carriagereturn / linefeed Lưu dưới dạng tệp TXT. Mở tệp trong Excel.

viết một chút vba để xử lý danh sách của bạn

Điều này giả định danh sách các giá trị nằm trong một ô duy nhất và được chọn. Đưa kết quả vào các ô sau

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