วิธีสร้างรหัสแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel

โดยปกติแล้ว เราใช้ฟังก์ชัน Find and Replace ในตัวเพื่อค้นหาและแทนที่ค่าใน Excel ในความเป็นจริง คุณสามารถค้นหาและแทนที่ข้อความใน Excel ได้โดยตรงด้วยโค้ดแมโคร ในบทความนี้ คุณจะได้เรียนรู้วิธีสร้างโค้ดแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel

สร้างรหัสแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel

สร้างรหัสแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel

โปรดทำดังนี้เพื่อสร้างรหัสแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: สร้างรหัสมาโครเพื่อค้นหาและแทนที่ข้อความใน Excel

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

4. ในครั้งแรก Kutools สำหรับ Excel กล่องโต้ตอบป้อนข้อความหรือค่าที่คุณจะค้นหาจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

5. ในวินาทีที่ Kutools สำหรับ Excel กล่องโต้ตอบป้อนข้อความหรือค่าที่คุณจะแทนที่แล้วคลิกไฟล์ OK ปุ่ม

จากนั้นข้อความที่ระบุทั้งหมดจะถูกแทนที่ด้วยข้อความที่คุณต้องการทันที

หมายเหตุ: รหัสนี้ใช้กับแผ่นงานที่ใช้งานอยู่

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

• จะค้นหาและแทนที่เซลล์ว่างทั้งหมดด้วยตัวเลขหรือข้อความใน Excel ได้อย่างไร?
• วิธีแทนที่จุลภาคด้วยการขึ้นบรรทัดใหม่ (Alt + Enter) ในเซลล์ใน Excel
• วิธีค้นหาและแทนที่ชื่อแท็บแผ่นงานใน Excel
• วิธีค้นหาค่าในเซลล์ที่มีรายการคั่นด้วยจุลภาคใน Excel
• วิธีค้นหาจุดตัดของรายการคอลัมน์สองคอลัมน์ใน Excel