วิธีแบ่งตามตัวคั่นและเปลี่ยนเซลล์ใน Excel
ในบทความนี้ฉันแนะนำวิธีการแบ่งช่วงโดยใช้ตัวคั่นเฉพาะแล้วเปลี่ยนเป็น Excel ตามภาพหน้าจอด้านล่าง หากคุณสนใจงานนี้โปรดไปที่รายละเอียดด้านล่าง
แยกและเปลี่ยนด้วย Kutools for Excel
แยกและเปลี่ยนด้วย VBA
ไม่มีวิธีโดยตรงในการแยกและเปลี่ยนข้อมูลโดยใช้ตัวคั่นเฉพาะ แต่ฉันสามารถแนะนำรหัส VBA เพื่อช่วยคุณแก้ปัญหานี้ได้อย่างรวดเร็ว
1 กด Alt + F11 ปุ่มเพื่อแสดง Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในไฟล์ โมดูล หน้าต่าง
VBA: แยกและเปลี่ยน
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub3 กด F5 กุญแจสำคัญในการเรียกใช้โค้ดกล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกช่วงที่จะแยกและเปลี่ยน
4 คลิก OK. กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกตำแหน่งที่จะวางข้อมูล
5 คลิก OKและส่วนที่เลือกถูกแบ่งและเปลี่ยนตำแหน่งด้วยลูกน้ำ
แยกและเปลี่ยนด้วย Kutools for Excel
กับ Kutools สำหรับ Excelคุณสามารถใช้ไฟล์ แยกเซลล์ ก่อนอื่นให้แบ่งเซลล์ด้วยตัวคั่นจากนั้นจึงใช้ไฟล์ ช่วงการแปลง ยูทิลิตี้ในการแปลงเซลล์เป็นคอลัมน์เดียว
| Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจากการติดตั้ง Kutools สำหรับ Excel โปรดทำดังนี้ :(ดาวน์โหลด Kutools for Excel ได้ฟรีทันที!)
1. เลือกเซลล์ที่คุณต้องการแยกแล้วคลิก Kutools > ผสานและแยก > แยกเซลล์. ดูภาพหน้าจอ:
2 ใน แยกเซลล์ โต้ตอบตรวจสอบ แยกเป็นคอลัมน์ จากนั้นระบุตัวคั่นที่คุณต้องการแยกตามคลิก Ok. และเลือกเซลล์ว่างเพื่อวางผลลัพธ์ในวินาที แยกเซลล์ ไดอะล็อก ดูภาพหน้าจอ:
3 คลิก OKจากนั้นเซลล์จะถูกแบ่งออกเป็นคอลัมน์จากนั้นคลิก Kutools > พิสัย > ช่วงการแปลง. ดูภาพหน้าจอ:
4 ใน ช่วงการแปลง โต้ตอบตรวจสอบ ช่วงเป็นคอลัมน์เดียวคลิก Okและเลือกเซลล์เพื่อวางผลลัพธ์ ดูภาพหน้าจอ:
5 คลิก OKตอนนี้ช่วงถูกเปลี่ยนเป็นคอลัมน์เดียว
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
