วิธีค้นหาและแทนที่ชื่อแท็บแผ่นงานใน 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 Sub3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
4. จากนั้นก Kutools สำหรับ Excel กล่องโต้ตอบปรากฏขึ้นโปรดป้อนคำของชื่อแผ่นงานที่คุณจะแทนที่แล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
5. ในวินาทีที่ Kutools สำหรับ Excel กล่องโต้ตอบป้อนคำที่คุณจะแทนที่จากนั้นคลิกไฟล์ OK ปุ่ม
จากนั้นคำที่เกี่ยวข้องทั้งหมดในชื่อแท็บแผ่นงานจะถูกแทนที่ด้วยคำที่ระบุตามภาพด้านล่างที่แสดง
หมายเหตุ: รหัสด้านบนเป็นกรณีที่สำคัญ
บทความที่เกี่ยวข้อง:
- จะค้นหาและแทนที่เซลล์ว่างทั้งหมดด้วยตัวเลขหรือข้อความใน Excel ได้อย่างไร?
- วิธีแทนที่จุลภาคด้วยการขึ้นบรรทัดใหม่ (Alt + Enter) ในเซลล์ใน Excel
- วิธีสร้างรหัสแมโครเพื่อค้นหาและแทนที่ข้อความใน Excel
- วิธีค้นหาค่าในเซลล์ที่มีรายการคั่นด้วยจุลภาคใน Excel
- วิธีค้นหาจุดตัดของรายการคอลัมน์สองคอลัมน์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
