วิธีแบ่งค่าที่คั่นด้วยจุลภาคเป็นแถวหรือคอลัมน์ใน Excel

ในบางกรณีคุณอาจต้องแยกค่าที่คั่นด้วยจุลภาคของเซลล์ที่เลือกออกเป็นแถวหรือคอลัมน์ เราจะแนะนำสามวิธีในการแก้ปัญหานี้โดยละเอียด

แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคเป็นคอลัมน์ด้วยฟังก์ชัน Text to Columns
แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคเป็นแถวด้วยรหัส VBA
แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคออกเป็นแถวหรือคอลัมน์อย่างรวดเร็วด้วย Kutools for Excel

แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคเป็นคอลัมน์ด้วยฟังก์ชัน Text to Columns

คุณสามารถใช้ฟังก์ชัน Text to Columns เพื่อแบ่งค่าที่คั่นด้วยจุลภาคของเซลล์ที่เลือกลงในคอลัมน์ กรุณาดำเนินการดังนี้

1. เลือกช่วงของเซลล์ที่คุณต้องการแบ่งค่าออกเป็นคอลัมน์จากนั้นคลิก ข้อมูล > ข้อความเป็นคอลัมน์. ดูภาพหน้าจอ:

2. ในครั้งแรก แปลงตัวช่วยสร้างข้อความเป็นคอลัมน์ กล่องโต้ตอบเลือกไฟล์ ที่คั่น จากนั้นคลิกตัวเลือก ถัดไป ปุ่ม

3. ในวินาทีที่ แปลงตัวช่วยสร้างข้อความเป็นคอลัมน์ ให้เลือกเฉพาะไฟล์ จุลภาค กล่องใน ตัวคั่น ส่วนและคลิกปุ่ม ถัดไป ปุ่ม

4. ในช่วงสุดท้าย แปลงตัวช่วยสร้างข้อความเป็นคอลัมน์ ไดอะล็อกบ็อกซ์เลือกเซลล์สำหรับค้นหาค่าการแยกในไฟล์ ปลายทาง แล้วคลิกไฟล์ เสร็จสิ้น ปุ่ม. ดูภาพหน้าจอ:

ตอนนี้ค่าทั้งหมดในเซลล์ที่เลือกซึ่งคั่นด้วยเครื่องหมายจุลภาคจะถูกแบ่งไปยังคอลัมน์ต่างๆตามที่แสดงภาพหน้าจอร้อง

แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคเป็นแถวด้วยรหัส VBA

สำหรับการแยกค่าที่คั่นด้วยลูกน้ำออกเป็นแถวคุณสามารถใช้รหัส VBA ต่อไปนี้

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: แบ่งค่าที่คั่นด้วยจุลภาคเป็นแถว

Sub SplitAll()
	Dim xRg As Range
	Dim xRg1 As Range
	Dim xCell As Range
	Dim I As Long
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim xRet As Variant
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Columns.Count > 1 Then
			MsgBox "You can't select multiple columns", , "Kutools for Excel"
			Exit Sub
			End If
			Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
			Set xRg1 = xRg1.Range("A1")
			If xRg1 Is Nothing Then Exit Sub
				xUpdate = Application.ScreenUpdating
				Application.ScreenUpdating = False
				For Each xCell In xRg
					xRet = Split(xCell.Value, ",")
					xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
					I = I + UBound(xRet, 1) + 1
				Next
				Application.ScreenUpdating = xUpdate
			End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools for Excel กล่องโต้ตอบเลือกเซลล์ที่คุณต้องการแยกจากนั้นคลิกที่ไฟล์ OK ปุ่ม

4. ในวินาทีที่โผล่ขึ้นมา Kutools for Excel ไดอะล็อกบ็อกซ์เลือกเซลล์สำหรับค้นหาค่าการแยกจากนั้นคลิก OK.

จากนั้นคุณจะเห็นค่าที่คั่นด้วยเครื่องหมายจุลภาคในเซลล์ที่เลือกถูกแบ่งออกเป็นแถวตามภาพหน้าจอร้อง

แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคออกเป็นแถวหรือคอลัมน์อย่างรวดเร็วด้วย Kutools for Excel

The แยกเซลล์ ประโยชน์ของ Kutools for Excel สามารถช่วยคุณแยกค่าที่คั่นด้วยจุลภาคออกเป็นแถวหรือคอลัมน์ได้อย่างง่ายดาย

1. เลือกเซลล์ที่คุณต้องการแยกจากนั้นคลิก Kutools > ผสานและแยก > แยกเซลล์. ดูภาพหน้าจอ:

2 ใน แยกเซลล์ ใหเลือก แบ่งเป็นแถว or แยกเป็นคอลัมน์ ใน ชนิดภาพเขียน ตามที่คุณต้องการ และใน ระบุตัวคั่น เลือก ทัวร์ ป้อนสัญลักษณ์ลูกน้ำลงในกล่องข้อความจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

3. จากนั้นกล่องพรอมต์อื่นจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์เพื่อแสดงผลลัพธ์ดูภาพหน้าจอ:

4 คลิก OK คุณจะเห็นผลลัพธ์ตามภาพหน้าจอด้านล่างที่แสดง

แยกเป็นคอลัมน์

แบ่งเป็นแถว

การสาธิต: แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคออกเป็นแถวหรือคอลัมน์อย่างรวดเร็วด้วย Kutools for Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

	คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
	การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
	รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
	ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
	คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
	ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...

---

Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...