하위 송장 번호 조회 ()
화면 새로 고침을 끕니다.
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' 화면 새로 고침을 다시 시작합니다.
끝단 접합