วิธีค้นหาและแทนที่ชื่อแท็บแผ่นงานใน Excel

ค้นหาและแทนที่ค่าในเซลล์ใน Excel ได้ง่าย แต่มีวิธีใดบ้างในการค้นหาและแทนที่ชื่อแผ่นงานใน Excel ตัวอย่างเช่นภาพหน้าจอด้านล่างนี้คุณมีแผ่นงานหลายแผ่นซึ่งมี“ KTE (Sales) xxx” ในชื่อแผ่นงานและตอนนี้คุณต้องแทนที่“ KTE (Sales)” ทั้งหมดด้วย“ KTE” ในชื่อแผ่นงานที่เกี่ยวข้องทั้งหมด คุณทำได้ไหม บทความนี้จะแนะนำวิธีการ VBA เพื่อให้บรรลุ

ค้นหาและแทนที่ชื่อแท็บแผ่นงานด้วยรหัส VBA

ค้นหาและแทนที่ชื่อแท็บแผ่นงานด้วยรหัส VBA

โปรดใช้รหัส VBA ด้านล่างเพื่อค้นหาและแทนที่ชื่อแท็บแผ่นงานใน Excel กรุณาดำเนินการดังนี้

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

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

รหัส VBA: ค้นหาและแทนที่ชื่อแท็บแผ่นงานใน Excel

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

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

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

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

จากนั้นคำที่เกี่ยวข้องทั้งหมดในชื่อแท็บแผ่นงานจะถูกแทนที่ด้วยคำที่ระบุตามภาพด้านล่างที่แสดง

หมายเหตุ: รหัสด้านบนเป็นกรณีที่สำคัญ

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

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

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