Excel VBA 를 사용하여 필요한 정보를 빠르게 추출하려면 어떻게 해야 합니까?

엑셀 사용 과정에서 이 문제가 발생할 수 있습니다. 통합 문서에는 수십 개의 워크시트가 있으므로 이러한 워크시트의 순서가 요구 사항을 충족하지 못합니다. 우리는 이 워크시트들을 빠르게 정렬하고 싶다. 이 문제를 해결할 좋은 방법이 있습니까?

2

복잡한 문제는 VBA 코드로 해결해야 한다. Alt+f 1 1- 이 책을 두 번 클릭-통합 문서의 코드 편집 상자를 엽니다.

셋；삼；3

다음 코드를 복사합니다.

자밀리리터 ()

Dim sht 를 워크시트로 사용, k&

[a: a] = ""

A 열 데이터를 지웁니다.

[a 1] = "디렉터리"

K = 1

워크시트의 각 sht 에 대해 다음을 수행합니다

통합 문서의 각 워크시트를 통과합니다.

K = k+1

누적 k 값

Cells(k, 1) = sht. 이름

워크시트 이름을 테이블의 열 a 에 순차적으로 배치합니다.

그리고 나서

끝단 접합

사

개발자 옵션에 버튼을 삽입합니다. 뭐! 왜 당신의 소프트웨어에는 이 탭 페이지가 없습니까? 나의 다음 경험을 보면, 너는 그것을 어떻게 나타나게 하는지 알게 될 것이다.

버튼 상자를 그리면 소프트웨어에서 매크로 코드를 해당 상자에 지정할 수 있습니다. 물론 디렉토리를 생성하도록 선택했습니다.

다섯；오；5

카탈로그를 얻기 위해 클릭 (이름을 바꾸거나 메시지를 남기기 위해) 하면 카탈로그가 신기하게 생성됩니다.

여섯；육

카탈로그를 필터링 및 정렬하거나 수동으로 정렬합니다.

일곱

그런 다음 코드 편집 상자에 코드를 입력합니다.

하위 정렬 테이블 ()

Dim sht 워크시트, shtname$, I&

Set sht = ActiveSheet

변수 sht 를 현재 활성 워크시트, 즉 목차로 설정합니다.

I = 2 ~ sht 의 경우. 셀 (행). 개수, 1). 끝내기 (3). 줄

A 1 을 제외하고 워크시트 a 열의 데이터를 통과합니다.

Shtname = sht 입니다. 셀 (I, 1)

A 열의 값을 문자열 변수 shtname 에 할당합니다.

워크시트 (shtname). 이동 대상: = 장 (I-1)

워크시트를 차례로 이동합니다.

그리고 나서

쉿. 활동을 하다

카탈로그를 다시 활성화합니다.

끝단 접합

여덟；팔

그런 다음 sortsheet 를 지정하는 버튼을 그립니다.

아홉；구；9

버튼 이름을 변경한 후 발생하는 상황입니다. 버튼을 누르다.

신기한 일이 일어났고, 워크시트는 실제로 순서를 바꾸었다.