엑셀 VBA - 조건에 맞는 sheet 전체 이름 가져오기

sheet 전체 이름들을 가져와보자.

 

1. 시트 여러개인 엑셀 파일을 만든다.

  1) 모두라는 단어가 포함된 시트만 이름을 가져오자. 

 

2. 코드작성

  1) 모두 라는 단어가 포함된 시트만 시트명을 가져온다. 

Sub find_all_sheetname()
    
    Dim ws As Worksheet
    Dim i As Integer
    
    i = 1
    
    For Each ws In Worksheets
        If InStr(ws.Name, "모두") > 0 Then
            
            ActiveSheet.Cells(i, 1) = ws.Name
            i = i + 1
            
        End If
            
    Next ws
End Sub
 
 

 

 

3. 결과