-
지역별로 시트 생성하여 나누기VB(A) 2017. 5. 16. 19:14
http://cafe.naver.com/excelmaster/139020
J열에 지사가 나열되어 있음
지사별로 시트를 생성하여 나누는 매크로
1. J열에서 지사의 고유값을 추출
2. 지사명을 순환하며 시트명을 생성
3. 지사별로 데이터를 각 시트에 뿌리기
그 옛날, 구급계 업무를 볼 때 정말 필요했던 기능인데, 지금은 쓸 일이 없다는 점이 함정
Sub Macro()Dim C As New CollectionDim SingleRange As RangeDim JArea As RangeDim i As IntegerDim AllDB As WorksheetSet AllDB = Sheets("전체DB")Set JArea = Range("J2", Cells(Rows.Count, "J").End(3))'J열(지사) 고유값 추출On Error Resume NextFor Each SingleRange In JAreaC.Add SingleRange, CStr(SingleRange)Next SingleRangeOn Error GoTo 0'추출한 지사명으로 자동필터 실행.'지사명으로 시트 생성하여 복 붙For i = 1 To C.CountSheets.Add(after:=Sheets(Sheets.Count)).Name = C.Item(i) & "DB"With AllDB.Range("A1").CurrentRegion.AutoFilter Field:=10, Criteria1:=C.Item(i).Copy Sheets(Sheets.Count).Range("A1")End WithNext iWith AllDB.Range("A1").CurrentRegion.AutoFilter.ActivateEnd WithEnd Subcs 리스트자동추출하는방법.xlsm
'VB(A)' 카테고리의 다른 글
[VB.Net] 파일 생성일자로 폴더 생성 후 파일이동 (0) 2017.06.04 [VB.Net] 화면보호기 (0) 2017.06.03 주식표 변경(상승, 하락 글꼴변경, 주요 금액단위 변경) (0) 2017.05.07 [VB.Net] 포토갤러리 일괄 다운로더 (0) 2017.03.05 [정규식] 일치하는 문자열만 추출(lazy 모드) (0) 2017.02.05 댓글