[VBA]특정문자를 포함한 시트만 선택하여 저장
'지식인에서 엑셀 관련 질문에 답변을 해주다가 VBA공부를 시작했다. 다음은 어느 분이 '연도-월'의 이름을 가진 시트가 많이 있는 파일에서, 연도별로 시트를 저장하고, 올해 1월과 작년 12월, 그리고 연도가 아닌 글자로 시트명이 된 시트들을 따로 모아 저장해달라는 의뢰(?)에 대한 연구 결과이다 파일로 다운 받기 Option Explicit '변수를 선언해야 사용할 수 있다는 옵션 Sub MergeWBs() '매크로 이름 Dim i As Integer '순환문 작업에 필요한 변수 Dim shtnum As Integer '시트의 총갯수를 저장하기위한 변수 Dim sh As Worksheet '선택한 시트를 복사할 때 시트 각각에 배당하는 변수 Dim shs As Sheets '선택한 시트 전체에 배당하는 변수 Dim wkbtg As Workbook '새로 만드는 엑셀파일에 배당하는 병수 Dim MyPath As String '저장위치 Dim strThisYr As String '올해 연도를 담을 변수 Dim strOldYr As String '이전 연도를 담을 변수 Dim strshname As String '시트명을 담을 변수 Application.DisplayAlerts = False '실행속도를 빠르게하기 위해 경고,이벤트 등을 꺼둔다 Application.EnableEvents = False Application.ScreenUpdating =