[[20210924125827]]　『最終行まで貼り付け』（マサ）　ページの最後に飛ぶ

『最終行まで貼り付け』（マサ）

 お世話になります。
最終行まで貼り付けを行うときに、
B1からBの最終行までではなく、
現在のセルの最終行までとしたい。
Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value    
お願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

    lastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
    Set r = Range("B1:B" & lastRow)
という感じで対象セル範囲を確定できませんか？

（γ） 2021/09/24(金) 13:12

 申し訳ございません。

Range(ActiveCell, "at" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=VLOOKUP($A2,PIPOTあ!$A:$N,14,0)"

という式で、A列の最終を求めて、
at列に計算式を挿入しますが、

at列ではなく、アクティブセルの下までとしたい。

（マサ） 2021/09/24(金) 14:51

＞at列ではなく、アクティブセルの下までとしたい。
「アクティブセルの下まで」がよく分かりません。

とりあえず、Debug.Print Range("ご自身の思い描いた範囲").Addressを
要所要所に追加してイミディエイトウィンドウで確認して、
自身でいろいろやってみては？

（tkit） 2021/09/24(金) 16:06

コメント返信：