วิธีค้นหาและแทนที่หลายค่าพร้อมกันใน Excel
อย่างที่เราทราบกันดีว่าเราสามารถใช้ฟังก์ชัน Find and Replace เพื่อค้นหาเซลล์เดียวกันหลาย ๆ เซลล์และแทนที่ด้วยค่าตามที่คุณต้องการ แต่บางครั้งคุณต้องใช้การแทนที่แบบกลุ่มต่อหลายคนพร้อมกัน ตัวอย่างเช่นฉันมีข้อมูลจำนวนหนึ่งและตอนนี้ฉันต้องการเปลี่ยนแอปเปิ้ลทั้งหมดเป็นแอปเปิ้ลแดงส้มเป็นส้มเขียวกล้วยเป็นกล้วยเหลืองและอื่น ๆ ตามภาพหน้าจอต่อไปนี้ที่แสดงคุณมีความคิดที่ดีในการแก้ปัญหานี้หรือไม่ Excel?
ค้นหาและแทนที่หลายค่าพร้อมกันด้วยรหัส VBA
หากคุณเบื่อที่จะค้นหาและแทนที่ค่าครั้งแล้วครั้งเล่าโค้ด VBA ต่อไปนี้สามารถช่วยให้คุณแทนที่ค่าหลายค่าด้วยข้อความที่คุณต้องการได้ในคราวเดียว
1. โปรดสร้างเงื่อนไขของคุณที่คุณต้องการใช้ซึ่งประกอบด้วยค่าเดิมและค่าใหม่ ดูภาพหน้าจอ:
2. จากนั้นกดปุ่ม ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications
3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล
รหัส VBA: ค้นหาและแทนที่หลายค่าพร้อมกัน
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้ในกล่องพรอมต์ที่โผล่ออกมาโปรดระบุช่วงข้อมูลที่คุณต้องการแทนที่ค่าด้วยค่าใหม่
5. คลิก OKและกล่องพรอมต์อื่นจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเกณฑ์ที่คุณสร้างขึ้นในขั้นตอนที่ 1 ดูภาพหน้าจอ:
6. จากนั้นคลิก OKค่าเฉพาะทั้งหมดจะถูกแทนที่ด้วยค่าใหม่ตามที่คุณต้องการทันที
บทความที่เกี่ยวข้อง:
จะค้นหาและแทนที่ข้อความเฉพาะในกล่องข้อความได้อย่างไร?
วิธีค้นหาและแทนที่ข้อความในชื่อแผนภูมิใน Excel
วิธีค้นหาและแทนที่ข้อความภายในความคิดเห็นใน Excel
วิธีเปลี่ยนเส้นทางการเชื่อมโยงหลายมิติพร้อมกันใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!