VBA-同じ列の古い最後の行から新しい最後の行への自動入力

Question

私は以下のコードを使用して列Aの最後の行を探し、次の行に新しい値を入力します。

Dim l As Long 

    l = Range("A" & Rows.Count).End(xlUp).Row + 1 
    ActiveSheet.Cells(l, "A").Value = "Your Value here" 

しかし、その後、隣接する列の最後の行を見つけて最後の行まで自動入力するコードが必要です。

コードを教えてもらえますか？

よろしく、 Karthick

Answer 1

これはあなたが何を意味するかでしょうか？

LastRow1 =.Cells(Rows.Count, 1).End(xlUp).Row 
Cells(lastRow1 + 1, 1).Value = "Your value here" 

LastRow2 =.Cells(Rows.Count, 2).End(xlUp).Row 
Range("A" & LastRow1 & ".AutoFill Destination:=Range("A" & LastRow1 & ":A" & LastRow2 & "), Type:=xlFillDefault