[[20200511163749]]　『或るセルに入力した数値を別のセルにコピーし続け』（ざがいも）　ページの最後に飛ぶ

『或るセルに入力した数値を別のセルにコピーし続けていく』（ざがいも）

ご教授願います。

下の図の様に、例えば A1セルに数値が入力された場合、A3のセルに
コピーされ、A1セルの数値が変更されると、A4,A5,A6...とどんどん
下方のセルにA1で変更された数値がコピーされていく方法はありませんか？

　　Ａ
１　□
２
３　■
４　■
５　■

過去の書き込み等を参考に、下の様なコードを考えてみました。
（A列はA4～A104までコピーされていくことを想定。）

Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
iR = (iR Mod 100) + 1
Cells(iR, "A4").Value = Target.Value

End If

End SuB

このコードではうまく動作してくれませんでした。
宜しくお願い致します。

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

 最下行を取得して一つ下の行に書き込み、としました。

 Sub Worksheet_Change(ByVal Target As Range)
    Dim iR As Long
    Application.EnableEvents = False
    If Target.Address = "$A$1" Then
        iR = Application.Max(Range("A" & Rows.Count).End(xlUp).Row + 1, 3)
        Range("A" & iR).Value = Target.Value
    End If
    Application.EnableEvents = True
 End Sub
（助六） 2020/05/11(月) 17:31

ありがとうございます！
最終行取得、勉強になりました。

（ざがいも） 2020/05/13(水) 10:24

コメント返信：

[ 一覧(最新更新順) ]

[[20200511163749]] 『或るセルに入力した数値を別のセルにコピーし続け』（ざがいも） ページの最後に飛ぶ

[[20200511163749]]　『或るセルに入力した数値を別のセルにコピーし続け』（ざがいも）　ページの最後に飛ぶ