エクセル 固定されたセルを列が変更されるセルに貼り付ける

質問

エクセルで月の売上を年の売上表に転記したいと思っています。
シート１のA１に入っている月の売上の値をシート２のA１に貼り付け、
翌月にシート１のA１に更新された値（翌月の売上）をシート２のB１に貼り付けという様に、シート１の固定されたセルを（値は変更）シート２の列が変更されるセル（行は固定）に値を貼り付ける方法を教えてください。
シート１のA1からシート２のC1に貼り付け・・・と上記を繰り返し12回貼り付けが終わった時点でシート２のA1：L1を空白にし、次回貼り付けられるセルがシート２のA1に戻るようにしたいです。
ちなみにコマンドボタンにマクロを登録し使おうと思います。
どなたかご教示お願いします。
できたらそのまま使えるマクロを作っていただけると嬉しいです。
当方初心者です。
宜しくお願いします。

回答No.3

noah7150 · ベストアンサー

お！列方向だ、しかもクリア？
Sub Macro1()
Dim Col As Long

Col = 1
'空白欄を見つける
While Sheets("Sheet2").Cells(1, Col) <> ""
Col = Col + 1
Wend
If Col >= 13 Then
Range(Cells(1, 1), Cells(1, 12)).Clear
Col = 1
End If
'シート１の1行目１欄（A1）をシート２の空欄に複写
Sheets("Sheet2").Cells(1, Col) = Sheets("Sheet1").Cells(1, 1)
End Sub

これでどうだ

お礼

ありがとうございました。
実際にマクロを動かしてみたところ完璧な仕上がりです。
そのまま使わせていただきます。

回答No.2

noah7150

Sub Macro1()
Dim Row As Long

Row = 1
'空白行を見つける
While Sheets("Sheet2").Cells(Row, 3) <> ""
Row = Row + 1
Wend
'シート１の1行目１欄（A1）をシート２の空白行に複写
Sheets("Sheet2").Cells(Row, 3) = Sheets("Sheet1").Cells(1, 1)
End Sub

こんな感じかな？

補足

ご回答ありがとうございます。
そのままマクロを貼り付け動かしてみたところ、
12回コピーし貼り付けしたするまでは完璧でしたが、その後シート１のA1の値が空白になりました。
私の説明不足なのですが、
12回コピーし貼り付けした後シート２のA１からL１の値をすべて空白にし、再度シート1のA1をコピーしシート２のA1に貼り付け・・・という様に繰り返しの作業も追加してほしいです。
自分でマクロをいじることも出来ませんので
申し訳ありませんが宜しくお願いします。

回答No.1

higekuman

たった12個なので、月ごとにマクロを作って、月ごとのボタンに登録してはいかがですか？
「ツール－マクロ－新しいマクロの記録」で、実際の操作をマクロに記録できます。

というか、月に一回、値をコピーするだけなんですよね？
手作業でも十分だと思うのですが。

お礼

ご回答ありがとうございます。
私も手作業でも十分だとは思いましたが、人から頼まれたことと、
応用の利くマクロだと思いましたので質問させていただきました。