Excle 의 VBA 를 사용하여 네 번째 행의 최대값이 첫 번째 행의 값에 해당하도록 프로그램을 작성하고 첫 번째 행의 값을 다른 테이블에 복사합니까?

다음은 설명한 기능을 구현하기 위해 VBA 로 작성된 샘플 코드입니다.

````` VB

Sub 는 최대값을 다른 테이블 () 에 복사합니다

소스 테이블을 워크시트로 어둡게 합니다

대상 테이블을 워크시트로 어둡게 합니다

Dim 의 최대값은 Double 입니다

Dim 최대 색인 길이

마지막 열을 긴 열로 어둡게 합니다

암담한 나만큼 길다

소스 및 대상 테이블을 설정합니다.

Set source table = thisworkbook.worksheets ("sheet 1")' 는 "sheet1"을 사용자의 것으로 변경합니다

Set targettable = thisworkbook.worksheets ("sheet 2")' 는 "sheet2" 를 대상 테이블 이름으로 변경합니다.

소스 테이블에서 마지막 열을 찾습니다 (데이터가 열 a 에서 시작한다고 가정)

마지막 열 = 소스 테이블. 셀 (4, 소스 테이블. 열. 수). End (xltolft) 입니다. 칼럼.

최대 및 최대 인덱스를 초기화합니다.

최대값 = 소스 테이블. 셀 (4, 1) 입니다. 가치

최대 지수 = 1

네 번째 행의 값을 반복하여 최대값과 해당 인덱스를 찾습니다.

마지막 열의 경우 I = 2

If 소스 테이블. 세포 (4, I). 값 >; 그래서 가장 큰

최대값 = 소스 테이블. 세포 (4, I). 가치

최대 인덱스 = i.

만약 ... 끝날거야

다음으로 저는

첫 번째 행의 값을 대상 테이블에 복사합니다.

소스 테이블. 줄 수 (1). 대상 테이블을 복사합니다. 줄 수 (1)

소스 테이블의 첫 번째 행에서 대상 테이블의 해당 열로 최대값을 복사합니다.

소스 테이블. 셀 (1, 최대 인덱스). 대상 테이블을 복사합니다. 셀 (1, 최대 색인)

끝단 접합

``````````````````````

코드를 실행하기 전에 Excel 통합 문서에 두 개의 워크시트가 있는지 확인합니다. "시트1"에는 설명한 데이터가 포함되어 있고 "시트 2" 는 값을 복사할 대상 테이블입니다.

코드를 실행하려면 alt+f 1 1 을 눌러 VBA 편집기를 열고 삽입-> 를 선택합니다 모듈 `, 모듈에 코드를 붙여 넣습니다. 그런 다음 VBA 편집기를 닫고 ALT+F8 을 누른 다음 최대값을 다른 테이블로 복사를 선택하고 실행을 클릭합니다.

이 코드는 "Sheet 1" 에서 네 번째 행의 최대값을 찾아 첫 번째 행에 있는 열을 결정합니다. 그런 다음 첫 번째 행과 최대 값 전체를 Sheet2 에 복사합니다.