Excel 은 한 테이블의 데이터를 여러 워크시트로 분할하고, 이름이 다른 계약업체 이름을 기준으로 단일 워크시트로 분할합니다.

Sub? 한 Excel 워크시트의 데이터를 여러 워크시트 () 로 분할하는 방법

암담한가? 아? Rng? 로? 범위,? Sht? 로? 워크시트,? Dic? 로? 목표

암담한가? K,? T,? Str? 로? 현,? 나? 로? 드래곤,? Lc? 로? 길다

신청하다. 화면 업데이트? =? 가짜? 화면 업데이트를 닫습니다.

아르? =? 범위 ("a 1 ")current region. value 입니다.

Lc? =? UBound(Arr, 2)? 마지막 행의 행 번호를 찾습니다.

설정? Rng? =? 줄 수 (1)? 제목 줄

설정? Dic? =? CreateObject ("스크립트. 사전)? 사전을 작성하다

뭐 때문에? 나? =? 2? 어디 가? 빚

Str? =? 아르 (나,? 3)? 계약자의 이름 및 키워드

만약? 그렇지 않나요? Dic. 존재 (Str)? 그리고는요? 사전에 키워드가 없는 경우

설정? Dic(Str)? =? 세포 (나,? 1). 크기 조정 (,? Lc)? 현재 행을 사전에 로드합니다.

그렇지 않으면요? 그렇지 않은 경우 (키워드가 사전에 있음)

설정? Dic(Str)? =? 유니온 (DIC (str),? 세포 (나,? 1). 크기 조정 (,? Lc))? 실을 한데 잇다.

끝? 만약

그리고 나서

K? =? Dic. 열쇠? 사전 키워드 집합

T? =? Dic. 물건? 사전 항목의 집합

열어? 잘못? 이력서? 그리고 나서

무엇을 사용합니까? 워크시트

뭐 때문에? 나? =? 0? 어디 가? Dic. 세어? -응? 1? 순환 키워드 수

설정? Sht? =? 。 제 (k(i) 항)? 변수에 값을 지정합니다 (워크시트를 키워드라고 함)

만약? Sht? 그래요? 아무것도 없어? 그리고는요? 워크시트가 없으면 빈 워크시트를 삽입합니다.

。 추가 후 (:=). 항목 (. 수)) 을 참조하십시오. 이름? =? K(i)? 새로 생성된 워크시트는 모든 워크시트 뒤에 keyword 라는 이름으로 배치됩니다.

설정? Sht? =? 액티브 시트? 활동 테이블은 변수를 제공합니다.

그렇지 않으면요? 그렇지 않으면.

Sht. 세포. 잘 아세요? 작업의 모든 내용과 형식을 지웁니다.

끝? 만약

Rng. 복사? Sht. Range("A 1 ")? 제목을 첫 줄에 쓰다.

T(i). 복사? Sht. Range("A2 ")? 다른 내용을 쓰다

Sht. 셀. 전체 열. 자동 조정? 모든 워크시트 셀의 열 너비 자동 조정

설정? Sht? =? 아무것도 없어? 변수가 초기 상태입니다.

그리고 나서

끝? 따라

장 (1). 활성화? 1 시트 워크시트가 활성 상태입니다.

신청하다. 화면 업데이트? =? 정말? 화면 업데이트를 켭니다.

끝? 계약자의 이름이 c 열에 있는 경우 Sub 입니다.