ฉันจะแยกรายการที่คั่นด้วยเครื่องหมายจุลภาคเป็นสองคอลัมน์ใน 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. ไปที่ ข้อมูล & gt; ข้อความเป็นคอลัมน์ .
3. เลือก ที่คั่น . คลิก ต่อไป .
4. เลือก จุลภาค . คลิก ต่อไป .
5. เลือก ทั่วไป หรือ ข้อความ แล้วแต่จำนวนใดที่คุณต้องการ
6. ออกจาก ปลายทาง ตามที่เป็นอยู่หรือเลือกคอลัมน์อื่น คลิก เสร็จสิ้น .

คุณสามารถใช้สองสูตรในคอลัมน์แยกกันสองคอลัมน์

วิธีรับค่าทางด้านซ้ายของเครื่องหมายจุลภาค:

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

ในการรับค่าทางด้านขวาของเครื่องหมายจุลภาค:

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

ที่ไหน K1 มีสตริงเริ่มต้นเช่น 401.50,0.027

** 0+ ก่อนสูตรจะแปลงสตริงย่อยที่แยกเป็นข้อมูลตัวเลข

คัดลอก / วางข้อความในโปรแกรมแก้ไขข้อความ แทนที่อักขระช่องว่างทั้งหมดด้วย carriagereturn / linefeeds บันทึกเป็นไฟล์ 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