Note: The other languages of the website are Google-translated. Back to English
English English

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

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

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


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

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

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

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

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

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

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

โดยปกติไฟล์ ข้อความเป็นคอลัมน์ feature แบ่งเซลล์ออกเป็นคอลัมน์แยกกันเท่านั้นถ้าคุณต้องการแบ่งเซลล์ออกเป็นแถวคุณจะทำอย่างไร?
ที่นี่ Kutools สำหรับ Excel's แยกเซลล์ ยูทิลิตี้สามารถช่วยให้คุณแบ่งเซลล์ได้อย่างรวดเร็วโดยใช้ช่องว่างจุลภาคบรรทัดใหม่ตัวคั่นอื่น ๆ หรือความกว้างบางอย่างออกเป็นแถวที่คั่นไม่เพียง แต่คอลัมน์ใน Excel ดาวน์โหลด Kutools for Excel ทันที! (เส้นทางฟรี 30 วัน)


แยกค่าที่คั่นด้วยเครื่องหมายจุลภาคเป็นแถวด้วยรหัส 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 สำหรับ Excel กล่องโต้ตอบเลือกเซลล์ที่คุณต้องการแยกจากนั้นคลิกที่ไฟล์ OK ปุ่ม

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

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


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

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

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

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

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

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

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

แบ่งเป็นแถว

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี ยูทิลิตี้ช่วยฉันได้มาก ขอบคุณสำหรับสิ่งนั้น... :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อีกวิธีหนึ่งสำหรับการแยกเป็นแถว ให้ใช้ข้อความเป็นขั้นตอนของคอลัมน์ จากนั้นคัดลอกและวาง ->เปลี่ยนเพื่อเปลี่ยนคอลัมน์ให้เป็นแถว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณเจค! นี่คือสิ่งที่ฉันกำลังมองหา :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันวิเศษมาก ขอบคุณที่ทำให้ฟรีและใช้งานง่าย!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมันช่วย :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไปที่ไฟล์ excel ตัวเลือกข้อมูล -> ข้อความเป็นคอลัมน์ -> คั่น -> เสร็จสิ้น
มันจะคายค่าที่คั่นด้วยจุลภาคลงในแต่ละคอลัมน์
ตัวอย่าง

id ชื่อเพิ่ม

1 Ratnesh myAdd

2,ยอก,มายแอด


เราจะสมัครในเรคคอร์ดที่ 2 มันจะแยกเรคคอร์ดเหมือนเรคคอร์ดที่ 1


ขอบคุณ,
รัตเนศ สาฮู
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไปที่ไฟล์ excel ตัวเลือกข้อมูล -> ข้อความเป็นคอลัมน์ -> คั่น -> เสร็จสิ้น
มันจะคายค่าที่คั่นด้วยจุลภาคลงในแต่ละคอลัมน์
ตัวอย่าง
id ชื่อเพิ่ม
1 Ratnesh myAdd
2,ยอก,มายแอด
เราจะสมัครในเรคคอร์ดที่ 2 มันจะแยกเรคคอร์ดเหมือนเรคคอร์ดที่ 1
ขอบคุณ,
รัตเนศ สาฮู
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันยังไม่สามารถอัปโหลด csv ของฉันไปที่365
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
A jak zmienić kod zeby nie pytał o ustawienie się w A1 ฉัน potem aby wynik był np też od A1 w dół
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีครับ คุณ Bartek
คุณหมายถึงไม่ต้องการเปิดกล่องโต้ตอบที่สองเพื่อเลือกเซลล์เป้าหมาย และต้องการระบุเซลล์เป้าหมายในโค้ดโดยตรงใช่หรือไม่
ถ้าเป็นเช่นนั้น คุณต้องเปลี่ยนบรรทัดต่อไปนี้
ตัวอย่างเช่น คุณต้องเริ่มแสดงผลจาก B1 และกรอกข้อมูลโดยอัตโนมัติ
โปรดเปลี่ยนบรรทัดนี้:
Set xRg1 = Application.InputBox("แยกเป็น (เซลล์เดียว):", "Kutools สำหรับ Excel", , , , , , , 8)
ไปยัง
ตั้งค่า xRg1 = Application.Range("B2")
แล้วลบบรรทัดถัดไป:
ตั้งค่า xRg1 = xRg1.Range("A1")
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ