VBA를 사용하여 다른 Excel 파일의 마지막 행과 첫 번째 열에 데이터 쓰기

vba는 다른 xls 파일의 첫 번째 열의 마지막 행에 데이터를 씁니다

열린 A.XLSX에서 C3을 복사하여 B의 첫 번째 열과 마지막 행의 셀에 붙여넣습니다. 절차는 다음과 같습니다:

하위 매크로1()

범위("C3").'C3 선택

을 선택하세요.

선택.복사 '복사

Windows("B.xlsx").'B.XLSX 통합 문서 선택

활성화

lastrow = Cells(Rows.Count, 1).End(3).Row '첫 번째 열의 마지막 행을 찾습니다

Cells(마지막 행, 1).'첫 번째 열의 마지막 행에 있는 셀을 선택하세요

ActiveSheet.Paste '붙여넣기

cells(1,1)=Cells(lastrow, 3) '현재 행의 세 번째 열의 값을 읽고 이를 현재 xls 테이블의 첫 번째 셀에 씁니다

Windows("A.xlsx").'XLSX로 돌아가기

활성화

끝 서브

VBA를 사용하여 Excel에서 첫 번째 행의 마지막 열을 얻는 방법

하위 테스트004()

Dim CoLumn_Num As String

긴 만큼의 딤넘

Num = 범위("IV1").End(xlToLeft).Column

Num

CoLumn_Num = Chr(64 + Num)

ElseIf Num Mod 26 = 0 Then

CoLumn_Num = Chr(63 + Num 26) & Chr(90)

그밖에

CoLumn_Num = Chr(64 + Num 26) & Chr(64 + (Num) Mod 26)

끝나면

MsgBox "첫 번째 행과 마지막 열:" & CoLumn_Num & "열"

끝 서브

테스트를 거쳤으니 자유롭게 사용해 보세요

위 내용은 VBA를 사용하여 다른 Excel 파일의 마지막 행과 첫 번째 열에 데이터 쓰기의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!