วิธีค้นหาและแทนที่ค่าในไฟล์ Excel หลายไฟล์ (3 วิธี)

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

คุณสามารถดำเนินการนี้กับสมุดงานได้มากเท่าที่คุณต้องการ

อ่านเพิ่มเติม: วิธีค้นหาและแทนที่โดยใช้สูตรใน Excel (4 ตัวอย่าง)

การอ่านที่คล้ายกัน:

• วิธีการแทนที่ข้อความในสูตร Excel (7 วิธีง่ายๆ)
• วิธีค้นหาและแทนที่อักขระดอกจัน (*) ใน Excel
• ค้นหาและแทนที่ข้อความในช่วงที่มี Excel VBA (มาโครและ UserForm)
• วิธีค้นหาและแทนที่ในคอลัมน์ Excel (6 วิธี)
• วิธีค้นหาและแทนที่ภายในส่วนที่เลือกใน Excel (7 วิธี)

3. ฝัง VBA เพื่อค้นหาและแทนที่ค่าใน Open Workbook ใน Excel

คุณสามารถทำทั้งหมดที่กล่าวถึงในหัวข้อก่อนหน้านี้โดยใช้ VBA รหัส. หากคุณเป็นผู้ใช้ Excel ขั้นสูง ส่วนนี้เหมาะสำหรับคุณ การใช้งาน VBA เป็นวิธีที่มีประสิทธิภาพ รวดเร็วที่สุด และปลอดภัยที่สุดในการรันการดำเนินการใดๆ ใน Excel คุณสามารถ ค้นหาและแทนที่ค่าจากแผ่นงานทั้งหมดของสมุดงาน ใน Excel มาดูวิธีการทำกับ VBA มาโคร

ขั้นตอน:

• ในตอนแรก ให้กด Alt + F11 บนแป้นพิมพ์ของคุณหรือไปที่แท็บ นักพัฒนา -> Visual Basic เพื่อเปิด Visual Basic Editor .

• ถัดไป ในหน้าต่างรหัสป๊อปอัป จากแถบเมนู ให้คลิก แทรก -> โมดูล .

• จากนั้น คัดลอก รหัสต่อไปนี้และ วาง ลงในหน้าต่างโค้ด

Sub MultipleFindAndReplace()
Dim iSheet As Worksheet
Dim OldValue As Variant
Dim NewValue As Variant
Dim i As Long
OldValue = Array("John", "Roman", "Dean", "Seth", "Finn")
NewValue = Array("Ben", "Alex", "Joe", "Chris", "Josh")
  For i = LBound(OldValue) To UBound(OldValue)
      For Each iSheet In ActiveWorkbook.Worksheets
        iSheet.Cells.Replace What:=OldValue(i), Replacement:=NewValue(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
      Next iSheet
  Next i
End Sub

ตอนนี้รหัสของคุณพร้อมใช้งานแล้ว

โค้ดนี้จะแทนที่อาร์เรย์ของค่า “John, Roman, Dean, Seth, Finn” ด้วยค่า “เบ็น อเล็กซ์ โจ คริส จอช” .

• ตอนนี้ กด F5 บนแป้นพิมพ์หรือจากแถบเมนู ให้เลือก เรียกใช้ -> เรียกใช้ Sub/UserForm . คุณยังสามารถคลิกที่ไอคอนการวิ่งขนาดเล็ก ในแถบเมนูย่อยเพื่อเรียกใช้มาโคร

หลังจากรันโค้ดแล้ว ดูภาพด้านล่างเพื่อดูผลลัพธ์

ค่าทั้งหมด (“John, Roman, Dean, Seth, Finn” ) ที่คุณป้อนในรหัสของคุณเพื่อแทนที่ด้วยค่า (“Ben, Alex, Joe, Chris, Josh” ) ถูกแทนที่เรียบร้อยแล้ว

คุณยังสามารถรันโค้ดนี้เพื่อค้นหาและแทนที่ค่าต่างๆ จากหลายเวิร์กชีตในหลายๆ เวิร์กบุ๊ก .

• หลังจากเรียกใช้แมโครในเวิร์กบุ๊กหนึ่ง ตอนนี้เพียง วางเมาส์เหนือเวิร์กบุ๊กอื่น . จากนั้นไปที่ Developer -> Macros .
• A มาโคร กล่องป๊อปอัปจะปรากฏขึ้น ที่นั่น เลือกชื่อมาโครแล้วคลิกเรียกใช้ .

คุณจะเห็นว่าผลลัพธ์เดียวกันนี้จะถูกนำไปใช้กับเวิร์กบุ๊กที่คุณเปิดในภายหลัง การค้นหาและแทนที่ค่าที่คุณป้อนในโค้ดจะช่วยให้ค้นหาและแทนที่คำเหล่านั้นได้สำเร็จ

คำอธิบายโค้ด VBA

Dim iSheet As Worksheet
Dim OldValue As Variant
Dim NewValue As Variant
Dim i As Long

การกำหนดตัวแปร

OldValue = Array("John", "Roman", "Dean", "Seth", "Finn")
NewValue = Array("Ben", "Alex", "Joe", "Chris", "Josh")

ตั้งค่าเพื่อค้นหาใน OldValue ตัวแปรและตั้งค่าที่จะแทนที่ใน NewValue ตัวแปร

  For i = LBound(OldValue) To UBound(OldValue)
      For Each iSheet In ActiveWorkbook.Worksheets
        iSheet.Cells.Replace What:=OldValue(i), Replacement:=NewValue(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
      Next iSheet
  Next i

โค้ดนี้จะวนซ้ำในแต่ละรายการในรายการ Array ก่อน จากนั้นวนซ้ำแต่ละแผ่นงานใน ActiveWorkbook หลังจากสแกนแล้วจะแทนที่ OldValue ด้วย NewValue เมื่อมันพบการจับคู่ หลังจากการวนซ้ำในแผ่นงานหนึ่ง แผ่นงานจะย้ายไปยังแผ่นงานถัดไปและเริ่มดำเนินการวนซ้ำอีกครั้ง

อ่านเพิ่มเติม: ค้นหาและแทนที่ค่าหลายค่าใน Excel (6 วิธีด่วน)

บทสรุป

สรุป บทความนี้แสดงวิธีการต่างๆ ในการค้นหาและแทนที่ค่าในหลายแผ่นงานและไฟล์ ใน Excel ด้วย ค้นหาและแทนที่ เครื่องมือและ มาโคร VBA . ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับคุณมาก อย่าลังเลที่จะถามคำถามใด ๆ เกี่ยวกับหัวข้อนี้

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

• เทคนิคการล้างข้อมูลใน Excel:การเพิ่มข้อความลงในเซลล์
• วิธีการเพิ่มข้อความก่อนสูตรใน Excel (4 วิธีง่ายๆ)
• ค้นหาและแทนที่ค่าโดยใช้สัญลักษณ์แทนใน Excel
• วิธีใช้ฟังก์ชันทดแทนใน Excel VBA (3 ตัวอย่าง)
• วิธีการแทนที่อักขระพิเศษใน Excel (6 วิธี)