Excel에서 시트 탭 이름을 찾고 바꾸는 방법은 무엇입니까?

Excel의 셀에서 값을 쉽게 찾고 바꿀 수 있습니다. 하지만 Excel에서 시트 이름을 찾고 바꿀 수있는 방법이 있습니까? 예를 들어 아래 스크린 샷과 같이 시트 이름에 "KTE (Sales) xxx"가 포함 된 워크 시트가 여러 개 있으며 이제 모든 관련 시트 이름에서 "KTE (Sales)"를 "KTE"로 바꾸어야합니다. 할 수 있습니까? 이 기사에서는이를 달성하기위한 VBA 방법을 소개합니다.

시트 탭 이름을 찾아 VBA 코드로 바꾸기

시트 탭 이름을 찾아 VBA 코드로 바꾸기

Excel에서 시트 탭 이름을 찾아 바꾸려면 VBA 코드 아래에 적용하십시오. 다음과 같이하십시오.

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. 그런 다음 Excel 용 Kutools 대화 상자가 나타나면 교체 할 시트 이름의 단어를 입력하고 OK 단추. 스크린 샷보기 :

5. 두 번째 Excel 용 Kutools 대화 상자에서 바꿀 단어를 입력 한 다음 OK 버튼을 클릭합니다.

그런 다음 시트 탭 이름의 모든 관련 단어가 아래 스크린 샷과 같이 지정된 단어로 바뀝니다.

주의 사항: 위 코드는 대소 문자를 구분합니다.

관련 기사 :

• Excel에서 모든 빈 셀을 특정 숫자 또는 텍스트로 바꾸는 방법은 무엇입니까?
• Excel의 셀에서 쉼표를 줄 바꿈 (Alt + Enter)으로 바꾸는 방법은 무엇입니까?
• Excel에서 텍스트를 찾고 바꾸는 매크로 코드를 만드는 방법은 무엇입니까?
• Excel에서 쉼표로 구분 된 목록으로 셀에서 값을 찾는 방법은 무엇입니까?
• Excel에서 두 열 목록의 교차점을 찾는 방법은 무엇입니까?