Schreiben Sie mit VBA Daten in die letzte Zeile und erste Spalte einer anderen Excel-Datei

vba schreibt Daten in die letzte Zeile der ersten Spalte in einer anderen XLS-Datei

Kopieren Sie im geöffneten A.XLSX C3 und fügen Sie es in die Zelle in der ersten Spalte und letzten Zeile von B ein. Der Ablauf ist wie folgt:

Submakro1()

Bereich(＂C3＂).Wählen Sie „Wählen Sie C3

Auswahl.Kopieren 'Kopieren

Windows(＂B.xlsx＂).Aktivieren Sie „B.XLSX-Arbeitsmappe auswählen“

lastrow = Cells(Rows.Count, 1).End(3).Row 'Finde die letzte Zeile der ersten Spalte

Zellen (letzte Zeile, 1). Wählen Sie „Wählen Sie die Zellen in der letzten Zeile der ersten Spalte aus.“

ActiveSheet.Paste 'Einfügen

cells(1,1)=Cells(lastrow, 3) 'Lesen Sie den Wert in der dritten Spalte der aktuellen Zeile und schreiben Sie ihn in die erste Zelle der aktuellen XLS-Tabelle

Windows(＂A.xlsx＂).Aktivieren Sie „Zurück zu XLSX

“.

End Sub

So erhalten Sie die letzte Spalte der ersten Zeile in Excel mit VBA

Sub Test004()

CoLumn_Num als String dimmen

Dim Num As Long

Num = Range(＂IV1＂).End(xlToLeft).Column

Wenn Num CoLumn_Num = Chr(64 + Num)

ElseIf Num Mod 26 = 0 Then

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

Sonst

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

Ende wenn

MsgBox „Erste Zeile und letzte Spalte:“ & CoLumn_Num & „Column“

End Sub

Wurde getestet, kann gerne verwendet werden

Das obige ist der detaillierte Inhalt vonSchreiben Sie mit VBA Daten in die letzte Zeile und erste Spalte einer anderen Excel-Datei. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!