วิธีแทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวจากเซลล์ใน Excel
สมมติว่าฉันมีรายการสตริงข้อความที่มีช่องว่างหลายช่องตอนนี้ฉันจำเป็นต้องแทนที่ช่องว่างเหล่านี้ด้วยช่องว่างเดียวระหว่างสตริงข้อความเพื่อแยกคำตามภาพหน้าจอต่อไปนี้ ฉันจะแทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวพร้อมกันได้อย่างไรโดยไม่ต้องลบทีละช่อง
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้สูตร
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้ Kutools for Excel
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้รหัส VBA
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้สูตร
ใน Excel คุณลักษณะค้นหาและแทนที่ปกติอาจทำงานได้ไม่ดีสำหรับเราในการแก้ปัญหานี้ดังนั้นเราจึงสามารถใช้สูตรง่ายๆเพื่อจัดการกับมันได้ กรุณาทำตามนี้:
1. ใส่สูตรนี้: = TRIM (แทนที่ (A2, CHAR (32), "")) ลงในเซลล์ว่างนอกเหนือจากค่าเซลล์ของคุณดูภาพหน้าจอ:
2. จากนั้นกด เข้าสู่ เพื่อรับผลลัพธ์และเลือกเซลล์ B2 จากนั้นลากจุดจับเติมไปยังเซลล์ช่วงที่คุณต้องการใช้สูตรนี้และช่องว่างพิเศษทั้งหมดจะถูกลบออกจากสตริงข้อความและจะมีเพียงช่องว่างเดียวเท่านั้น ข้อความ. ดูภาพหน้าจอ:
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้ Kutools for Excel
หากคุณมีช่องว่างประเภทอื่นที่จำเป็นต้องลบออกเช่นการลบช่องว่างนำหน้าช่องว่างต่อท้ายช่องว่างทั้งหมดของข้อความฉันจะแนะนำเครื่องมือที่มีประสิทธิภาพ -Kutools สำหรับ Excel กับของตน ลบ Spaces อรรถประโยชน์คุณสามารถลบช่องว่างได้ตามต้องการเช่นช่องว่างชั้นนำช่องว่างต่อท้ายช่องว่างทั้งหมด ...
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เลือกช่วงข้อมูลที่คุณต้องการลบช่องว่าง
2. คลิก Kutools > ข้อความ > ลบ Spacesดูภาพหน้าจอ:
3. ใน ลบ Spaces ให้เลือก ช่องว่างส่วนเกินทั้งหมด จาก ประเภทช่องว่าง และคุณสามารถดูผลลัพธ์จากไฟล์ ดูตัวอย่าง บานหน้าต่างดูภาพหน้าจอ:
4. จากนั้นคลิก Ok or สมัครสมาชิก ปุ่มช่องว่างพิเศษทั้งหมดถูกลบออกจากเซลล์และเหลือเพียงช่องว่างเดียวในข้อความ
คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!
แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดียวโดยใช้รหัส VBA
หากคุณสนใจรหัส VBA ฉันสามารถสร้างรหัสเพื่อให้คุณแทนที่ช่องว่างหลายช่องด้วยช่องเดียวได้โปรดดำเนินการดังนี้:
1. กรุณากดค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แทนที่ช่องว่างหลายช่องด้วยช่องว่างเดี่ยว
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการลบช่องว่างเพิ่มเติมดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มช่องว่างส่วนเกินทั้งหมดถูกแทนที่ด้วยช่องว่างเดียวระหว่างข้อความ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!