교육: VBA 로 분류 분할, TXT 텍스트 내보내기

수동 작업도 간단합니다. 정렬 후 피벗 테이블 (여러 통합 계산 데이터 영역) 에 의해 처리됩니다.

잠시 기다려 주세요. VBA 코드.

코드가 나왔습니다.

하위 분할 출력 ()

암담하게 배열하다

Setdic1= createobject ("scripting.dictionary")

Arr = ActiveSheet 입니다. 범위 ("g1:h" & 셀 (65536, 7) 입니다. 끝내기 (3). 행). 가치

I = 1 to UBound(arr, 1) 의 경우

Dpts = Split(arr(i, 2), ",")

Dpts 의 각 DPT 에 대해 다음을 수행합니다

Dpt<& gt "그렇다면 DIC 1. 항목 (DPT) = DIC1. 항목 (DPT) 및 Chr( 10)arr(i, 1)

그리고 나서

Arr = 없음 설정

Dk = DIC 1.keys

Dt = DIC 1.items

N = DIC 1 입니다. 수-1

Dic 1 = 없음 설정

Set fs = CreateObject ("스크립트. 파일 시스템 객체) 를 참조하십시오

MyPath = "D:\ 분류 "

Fs 가 아닌 경우. Folder exists (내 경로) then fs. 폴더 만들기 myPath

Fld = fs 를 설정합니다. 폴더 가져오기 (내 경로)

I = 0 ~ n 인 경우

A = fld 를 설정합니다. Createtextfile ("_" & Dk(i) 와 ".txt", True)

Arr = Split(Mid(dt(i), 2), Chr( 10))

Arr 의 각 nb 에 대해 다음을 수행합니다

A. 선 쓰기 nb

그리고 나서

A. 닫기

그리고 나서

Fld = 없음 설정

Fs = 없음 설정

끝단 접합