Menggunakan VBA, tulis data ke baris terakhir dan lajur pertama fail Excel yang lain

vba menulis data ke baris terakhir lajur pertama dalam fail xls yang lain

Dalam A.XLSX yang dibuka, salin C3 dan tampalkannya ke dalam sel dalam lajur pertama dan baris terakhir B. Prosedurnya adalah seperti berikut:

Sub makro1()

Julat(＂C3＂).Pilih 'Pilih C3

Pilihan.Salin 'Salin

Windows(＂B.xlsx＂).Aktifkan 'Pilih buku kerja B.XLSX

lasrow = Sel(Baris. Kiraan, 1).Tamat(3).Baris 'Cari baris terakhir lajur pertama

Sel(lastrow, 1).Pilih 'Pilih sel dalam baris terakhir lajur pertama

ActiveSheet.Tampal 'Tampal

cells(1,1)=Cells(lasrow, 3) 'Baca nilai dalam lajur ketiga baris semasa dan tuliskannya ke dalam sel pertama jadual xls semasa

Windows(＂A.xlsx＂).Aktifkan 'Return to XLSX

Tamat Sub

Bagaimana untuk mendapatkan lajur terakhir baris pertama dalam Excel menggunakan VBA

Sub Ujian004()

Malapkan CoLumn_Num Sebagai Rentetan

Malapkan Num Selagi

Bilangan = Julat(＂IV1＂).Tamat(xlKeKiri).Lajur

Jika Bilangan

CoLumn_Num = Chr(64 + Num)

ElseIf Num Mod 26 = 0 Then

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

Lain

CoLumn_Num = Chr(64 + Nombor 26) & Chr(64 + (Bilang) Mod 26)

Tamat Jika

MsgBox "Baris pertama dan lajur terakhir:" & CoLumn_Num & "Column"

Tamat Sub

Telah diuji, boleh guna

Atas ialah kandungan terperinci Menggunakan VBA, tulis data ke baris terakhir dan lajur pertama fail Excel yang lain. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!