VBA- Daten zur nächsten leeren Zeile hinzufügen

Question

Ich habe das folgende Makro geschrieben, um Daten von einem Arbeitsblatt zu einem anderen zu übertragen. Ich möchte die neuen Daten auf eine leere Zeile übertragen werden, aber es hält die gleiche Reihen überschreiben

Worksheets("sheet1").Select 
    Worksheets("sheet1").Range("a1").Select 
    RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count 
    With Worksheets("Sheet1").Range("A1") 
    .Offset(RowCount, 0) = workOrderDescription 

Answer 1

den Code Versuchen Sie unter:

With Workbooks("Your_WorkbookmName").Worksheets("sheet1") 
    RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row ' <-- get last row in column "A" 
    .Range("A" & RowCount + 1) = workOrderDescription 
End With