데이터 테이블 분할 열의 데이터

하위 caifengbiao ()
나, k는 정수로 어둡게
어둡게 같이 워크를 SHT

i가 2 범위 ( "A65536"). 엔드 (xlUp)의 셀에만 = 들면
K = 0
시트의 각 SHT 들어
Sheet1.Range 경우 ( "D"및 I) = sht.Name이어서
Sheet1.Range ( "D"및 ⅰ) .EntireRow.Copy sht.Range ( "A65536") 종료 (xlUp) .Offset (1, 0).
K = 1
최종면
다음
경우에서 k = 0이어서

Sheets.Add 후 = 시트 (Sheets.Count)
시트 (Sheets.Count) .NAME = Sheet1.Range ( "D"및 I)
Sheet1.Range ( "A1"). EntireRow.Copy 시트 (Sheets.Count) .Range ( "A1")
Sheet1.Range ( "D" & I) .EntireRow.Copy 시트 (Sheets.Count) .Range ( "A65536"). 엔드 (xlUp) .Offset (1, 0)의

최종면

다음

최종 하위