Excelでのマクロ作成方法

質問

いつもお世話になっております。

現在、特定列の最下部に値を追加するマクロを作りたいと考えています。具体的には、

A1=a
A2=b
A3=c
があり、A4にあるセルの値（ここではB1=d）を入れる
（これがA5・A6・・・と続けられる）。といった事です。

このような方法がありましたら、教えて頂けませんでしょうか。

上手く説明できていないかもしれませんが、よろしくお願い致します。

回答No.1

TTak · ベストアンサー

セルB1の値をA列の最終行に入れて行くということでしょうか？
であれば、次のようになります。一端シートの（空白セルも含めて）最終行を取得しますので、Excelのバージョンによって異なる最終行にも対応できます。

Sub SAMPLE()
X = Range("B1").Value
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1).Value = X
End Sub

お礼

TTak さん
imogashiさん

お忙しい中有難うございました。
お二方の回答をりようしまして、以下により、思っている機能が実現できました。
大変有難うございました.

以下参考まで。

X = Range("A4:H4").Copy
Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste

補足

早速回答有難うございます。
教えていただきました方法で、質問の意図する所は問題なく実行できました。

私は、この例がわかれば自分の行いたい事もおできるとおもい、実際にやりたい事まで正確に記述していませんでした。

改めて記しますと、
(1) A列の最終行を取得
(2) セルE1・F1・G1の内容をA列の最終行と同じ行に代入
　　　　　　　　　　　　　　　　　　　~~~~~~~
たとえば、A列の最終行が13だとすると、
A13=E1 B13=F1 C13=G1

というものです。

宜しくお願い致します。

回答No.2

imogasi

Shhet1にボタンを貼りつけ
Private Sub CommandButton1_Click()
d = Range("a1").CurrentRegion.Rows.Count
Range(Cells(1, 5), Cells(1, 7)).Copy
Cells(d + 1, 1).Select
ActiveSheet.Paste
End Sub