マクロ

質問

【シート１】
　　　　A　　　　　B　　　　　C　　　　　D　　　　　　E
１　　　　　　　　　　　　　　　　　　　　　　　　　　2月1日　
２　○○会社　
３　　　　　　　　　　　　　　　　　　　　　No.　　　　201012
４　　東京都　　　　　　　渋谷区

【シート２】
　　　　　A　　　　　　　B　　　　 　C　　　　　　D　　　　　　E
１　　 201012　　　2月1日　　 ○○会社　　 東京都　　渋谷区
２　　 201014　　　3月14日　　▽▽会社　　大阪府　　大阪市
３　　 201015　　　2月26日　　■■会社　　愛知県　　名古屋市
４　　 201017　　　5月11日　　★★会社　　滋賀県　　大津市

シート１の「E1」「A2」「E3」「A4」「C4」セルに毎回違う文字を入力します。
このシート１の入力データをマクロでシート２へ蓄積していきたいのですが、
どのようなマクロを組めば良いですか？

回答No.1

cvaasd · ベストアンサー

sheet1のあいているところに次の表を作成します
　　　　　A　 　　　B　　　 C　　　　D　　　　E
10　　 =E3　　　=E1　　 =A2　　 =A4　　 =C4

マクロです

Sub データ追記()
Range(A10:E10).Copy
Sheets("Sheet2").Select
Range("A1048576").End(xlUp).Offset(1,0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

**エクセルのシートは途方もなく大きいので、一度に導かずに補助のセルを
　使用することが解決につながることが多々あります。他の列を使用すれば、非表示にできますし、
　フォントの色を変えれば、見えなくすることもできます。