Excel'de sayfa sekmesi adlarını nasıl bulur ve değiştiririm?

Excel'de hücrelerdeki değerleri bulmak ve değiştirmek kolaydır. Ancak Excel'de sayfa adlarını bulmanın ve değiştirmenin herhangi bir yolu var mı? Örneğin, aşağıda gösterilen ekran görüntüsü gibi, sayfa adında "KTE (Satış) xxx" içeren birden fazla çalışma sayfanız var ve şimdi tüm "KTE (Satış)" ı tüm ilgili sayfa adlarında "KTE" ile değiştirmeniz gerekiyor. yapabilir misin? Bu makale, bunu başarmak için bir VBA yöntemi tanıtacaktır.

Sayfa sekme adlarını bulun ve VBA kodu ile değiştirin

Sayfa sekme adlarını bulun ve VBA kodu ile değiştirin

Excel'de sayfa sekmesi adlarını bulmak ve değiştirmek için lütfen aşağıdaki VBA kodunu uygulayın. Lütfen aşağıdaki işlemleri yapın.

1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ve sonra, VBA kodunu kod penceresine kopyalayın.

VBA kodu: Excel'de sayfa sekmesi adlarını bulun ve değiştirin

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. Tuşuna basın. F5 kodu çalıştırmak için anahtar.

4. Sonra a Kutools for Excel iletişim kutusu açılır, lütfen değiştireceğiniz sayfa adlarının kelimelerini girin ve OK buton. Ekran görüntüsüne bakın:

5. saniyede Kutools for Excel iletişim kutusunda, değiştireceğiniz kelimeyi girin ve ardından OK düğmesine basın.

Ardından, sayfa sekmesi adlarındaki tüm ilgili kelimeler, aşağıda gösterilen ekran görüntüsü gibi belirtilenlerle değiştirilir.

not: Yukarıdaki kod büyük / küçük harfe duyarlıdır.

İlgili yazılar:

• Tüm boş hücreleri Excel'de belirli sayı veya metinle nasıl bulur ve değiştiririm?
• Excel'deki hücrelerdeki virgülleri yeni satırlarla (Alt + Enter) nasıl değiştirebilirim?
• Excel'de metin bulmak ve değiştirmek için bir makro kodu nasıl oluşturulur?
• Excel'de virgülle ayrılmış liste içeren bir hücrede değer nasıl bulunur?
• Excel'de iki sütun listesinin kesişimini nasıl bulabilirim?