วิธีการแปลงการขนส่งกลับเป็นลูกน้ำใน Excel

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

การแปลงค่าขนส่งกลับเป็นเครื่องหมายจุลภาคด้วยสูตร

การแปลงค่าขนส่งกลับเป็นจุลภาคด้วยฟังก์ชัน Find and Replace

การแปลงค่าขนส่งกลับเป็นลูกน้ำด้วยรหัส VBA

การแปลงค่าขนส่งกลับเป็นเครื่องหมายจุลภาคด้วยสูตร

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

1. โปรดพิมพ์สูตรนี้ลงในเซลล์ว่างนอกเหนือจากข้อมูลของคุณ: = SUBSTITUTE (A1, CHAR (10), ",") (A1 ระบุเซลล์ที่คุณต้องการแทนที่การคืนค่าขนส่งและเครื่องหมายจุลภาคระหว่างเครื่องหมายคำพูดคืออักขระที่คุณต้องการใช้คุณสามารถเปลี่ยนได้ตามต้องการ) ดูภาพหน้าจอ:

2. จากนั้นลากจุดจับเติมไปยังช่วงที่คุณต้องการใช้สูตรนี้และคุณจะได้รับผลลัพธ์ต่อไปนี้ที่การส่งคืนค่าขนส่งจะถูกแทนที่ด้วยลูกน้ำ

การแปลงค่าขนส่งกลับเป็นจุลภาคด้วยฟังก์ชัน Find and Replace

ฟังก์ชั่นค้นหาและแทนที่ยังช่วยให้คุณสามารถแปลงค่าขนส่งกลับเป็นจุลภาคได้ในครั้งเดียว กรุณาดำเนินการดังนี้:

1. เลือกช่วงข้อมูลที่คุณต้องการแปลงการส่งคืนค่าขนส่ง

2. คลิก หน้าแรก > ค้นหาและเลือก > แทนที่ หรือใช้ทางลัด Ctrl + H คีย์เพื่อเปิด ค้นหาและแทนที่ กล่องโต้ตอบดูภาพหน้าจอ:

3. ตัว Vortex Indicator ได้ถูกนำเสนอลงในนิตยสาร ค้นหาและแทนที่ ในกลองโตตอบ สิ่งที่ค้นหา กรุณากด Ctrl + J คีย์และในไฟล์ แทนที่ด้วย ฟิลด์พิมพ์อักขระที่คุณต้องการในกรณีนี้ฉันจะพิมพ์ลูกน้ำ (,) ดูภาพหน้าจอ:

4. จากนั้นคลิก แทนที่ทั้งหมด ปุ่มและกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่ามีการเปลี่ยนกี่ครั้ง ดูภาพหน้าจอ:

5. จากนั้นคลิก OK และปิด ค้นหาและแทนที่ กล่องโต้ตอบการส่งคืนแคร่ทั้งหมดจะถูกแทนที่ด้วยเครื่องหมายจุลภาค

การแปลงค่าขนส่งกลับเป็นลูกน้ำด้วยรหัส VBA

หากคุณสนใจรหัส VBA ฉันสามารถแนะนำรหัสเพื่อแก้ปัญหานี้ได้

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส VBA: แปลงค่าขนส่งกลับเป็นจุลภาค

Sub ReplaceCarriage()
'Update 20141023
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Replace(Rng.Value, Chr(10), ",")
Next
End Sub

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้ ดูภาพหน้าจอ:

4. จากนั้นคลิก OKและการคืนค่าขนส่งจะถูกแปลงเป็นเครื่องหมายจุลภาคทันที

หมายเหตุ:

ในโค้ดด้านบนคุณสามารถเปลี่ยนเครื่องหมายจุลภาค "," ภายใน Rng.Value = แทนที่ (Rng.Value, Chr (10), ",") สคริปต์กับตัวละครอื่น ๆ ตามที่คุณต้องการ

บทความที่เกี่ยวข้อง:

วิธีลบเส้นแบ่งอย่างรวดเร็วใน Excel

วิธีการแบ่งเซลล์ออกเป็นหลายคอลัมน์หรือหลายแถวโดยการกลับรถ?