Bagaimana menemukan dan mengganti nama tab sheet di Excel?
Sangat mudah untuk menemukan dan mengganti nilai dalam sel di Excel. Tetapi apakah ada cara untuk menemukan dan mengganti nama sheet di Excel? Misalnya, seperti gambar di bawah ini, Anda memiliki beberapa lembar kerja yang berisi "KTE (Penjualan) xxx" di nama sheet, dan sekarang Anda perlu mengganti semua "KTE (Penjualan)" dengan "KTE" di semua nama sheet terkait, apa bisa kamu lakukan Artikel ini akan memperkenalkan metode VBA untuk mencapainya.
Temukan dan ganti nama tab lembar dengan kode VBA
Temukan dan ganti nama tab lembar dengan kode VBA
Silakan terapkan di bawah kode VBA untuk menemukan dan mengganti nama tab sheet di Excel. Silakan lakukan sebagai berikut.
1. tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Dan kemudian, salin kode VBA di bawah ini ke jendela kode.
Kode VBA: temukan dan ganti nama tab lembar di 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. tekan F5 kunci untuk menjalankan kode.
4. Kemudian a Kutools untuk Excel kotak dialog muncul, masukkan kata-kata dari nama lembar yang akan Anda ganti, dan klik OK tombol. Lihat tangkapan layar:
5. Di kedua Kutools untuk Excel kotak dialog, masukkan kata yang akan Anda ganti, lalu klik OK .
Kemudian semua kata terkait dalam nama tab lembar diganti dengan yang ditentukan seperti gambar di bawah ini.
Note: Kode di atas case sensitive.
Artikel terkait:
- Bagaimana menemukan dan mengganti semua sel kosong dengan angka atau teks tertentu di Excel?
- Bagaimana cara mengganti koma dengan baris baru (Alt + Enter) di sel di Excel?
- Bagaimana cara membuat kode makro untuk menemukan dan mengganti teks di Excel?
- Bagaimana menemukan nilai dalam sel dengan daftar yang dipisahkan koma di Excel?
- Bagaimana menemukan persimpangan dua daftar kolom di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!