จะแทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะใน Excel ได้อย่างไร?
ใน Excel เราสามารถแทนที่หรือเติมส่วนที่เลือกด้วยค่าเฉพาะได้อย่างรวดเร็วและง่ายดายโดยการกด Ctrl + Enter คีย์ แต่คุณรู้วิธีแทนที่เซลล์ที่ไม่ว่างเปล่าด้วยค่าที่แน่นอนในช่วงที่คุณเลือกซึ่งมีทั้งเซลล์ว่างและเซลล์ค่า
แทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะโดยใช้คุณลักษณะค้นหาและแทนที่
แทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะโดยใช้รหัส VBA
แทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะโดยใช้คุณลักษณะค้นหาและแทนที่
ใน Excel คุณลักษณะค้นหาและแทนที่สามารถช่วยให้เราค้นหาเซลล์ที่ไม่ว่างทั้งหมดจากนั้นแทนที่ด้วยค่าที่ระบุตามที่คุณต้องการ
1. เลือกช่วงข้อมูลที่คุณต้องการแทนที่เฉพาะเซลล์ค่า
2. จากนั้นกด Ctrl + H เพื่อเปิด ค้นหาและแทนที่ ในกลองโตตอบ ค้นหาและแทนที่ ไดอะล็อกภายใต้ แทนที่ แท็บพิมพ์ * ใน สิ่งที่ค้นหา และป้อนค่าที่คุณต้องการ แทนที่ด้วย กล่องข้อความดูภาพหน้าจอ:
3. จากนั้นคลิก แทนที่ทั้งหมด และกล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกจำนวนเซลล์ที่จะถูกแทนที่ปิดกล่องโต้ตอบจากนั้นค่าทั้งหมดในช่วงที่เลือกจะถูกแทนที่ด้วยข้อมูลที่คุณระบุดูภาพหน้าจอ:
แทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะโดยใช้รหัส VBA
ด้วยการใช้รหัส VBA ต่อไปนี้คุณยังสามารถแทนที่เซลล์ข้อมูลทั้งหมดให้เป็นค่าที่คุณต้องการได้ในครั้งเดียว กรุณาทำตามนี้:
1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: แทนที่เซลล์ที่ไม่ว่างด้วยค่าเฉพาะ
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงที่คุณต้องการแทนที่ข้อมูลดูภาพหน้าจอ:
4. จากนั้นคลิก OKและป้อนค่าเฉพาะของคุณในกล่องพร้อมต์ถัดไปดูภาพหน้าจอ:
5. จากนั้นคลิก OKค่าทั้งหมดในช่วงที่คุณเลือกจะถูกแทนที่ด้วยข้อมูลบางอย่างพร้อมกัน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!