현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - EXCEL 에서 VBA 를 사용하여 전체 데이터 행을 추출하려면 어떻게 해야 합니까?

EXCEL 에서 VBA 를 사용하여 전체 데이터 행을 추출하려면 어떻게 해야 합니까?

명시적 옵션

하위 송장 번호 조회 ()

화면 새로 고침을 끕니다.

Dim j&, m&a; , k&, 나&

J = 테이블 ("데이터 정보"). [A65536]. 끝내기 (3). Row' 는 데이터 정보 테이블의 총 행 수를 계산합니다.

M = 장 ("동일한 송장 번호 아래 상품 정보"). [A65536]. 끝내기 (3). Row' 는 상품 정보표 데이터에서 같은 송장 번호 아래 총 행 수를 계산합니다.

표 ("동일한 송장 번호 아래 상품 정보"). 줄 ("3:"&; M+ 1). 상품 정보 테이블에서 동일한 송장 번호 아래의 마지막 세 번째 데이터 행을 삭제합니다.

카운터 k 가 2 로 초기화되었습니다. 제목에 2 개의 행이 있다고 가정하면 추출된 데이터 사본의 위치는 세 번째 행에서 시작됩니다.

For I = 2 ~ j 'i 는 데이터 정보 테이블의 두 번째 행부터 마지막 행까지 순환합니다.

If 테이블 ("데이터 정보"). 셀 (I, "x") = sheets ("동일한 송장 번호 아래 상품 정보"). Range ("B 1") T 데이터 정보 테이블의 첫 번째 행 x 열의 값이 동일한 송장 번호 아래의 상품 정보 테이블 셀 B 1 의 데이터와 동일한 경우.

K = k+ 1' 카운터 K+ 1 의 값입니다.

양식 (정보). 줄 (I). 복사지 ("같은 송장 번호 아래 상품 정보"). 범위 ("a" &;; K)' 행이 A & amp;; 로 복사됩니다 K 셀 k 는 카운터의 현재 값입니다. 예를 들어 k=3 은 A3 셀입니다.

만약 ... 끝날거야

그리고 나서

[B 1]. 고르다

신청하다. Screenupdating = true' 화면 새로 고침을 다시 시작합니다.

끝단 접합