値のクリアーと同時転記について

質問

エクセル2010です。

マクロの記録を使い　特定の範囲に入力されている値を　クリアにしたいと思い
そちらは　いらないコードが入りながらも　できたのですが
以下の疑問がでてきまして、できるのか　質問したく思いました。

ある特定のセルに入力されている値を　クリアにして
ある特定のセルの値を違うセルに入力させ
ある特定のセル範囲には　クリア後に0の値を入力したい

以上3つの事ですが 以下詳細にしたいことを　書きますと

値をクリアにしたいセルは

A11:B100
E11:F100
I8:M8
I10:M30
I32:M52
I54:M74
I76:M95

O8
O12
O14:O15
O21:O22
O38:O39
O40:O51

※
O54に入力されている値をO8
O31に入力されている値をO12　
に転記したい

また、O11:B100とE11:F100以外と
O8　012以外のセルに　０を入力したい

大変わかいずらい説明かもしれませんが　詳しい方アドバイスしていただければと
思います。よろしくお願いします。

回答No.2

keithin · ベストアンサー

なぜわざわざクリアしてから値を入れたり（O8,O12)，ゼロを記入し直したりしたいと思ったのですか。

それから
＞また、O11:B100と
これは誤記ですね。

また
＞E11:F100以外と
＞O8　012以外のセルに　０を入力したい

「以外のどのセル」にゼロを記入したいのですか。手抜きせずに「こことここ」という風に，どうして明確に書けないのですか？

sub macro1()
　range("A11:B100,E11:F100,I8:M8,I10:M30,I32:M52,I54:M74,I76:M95").clearcontents
　range("O8,O12,O14:O15,O21:O22,O38:O39,O40:O51").clearcontents

　range("O8").value = range("C54").value
　range("O12").value = range("O31").value

　range("I8:M8,I10:M30,I32:M52,I54:M74,I76:M95").value = 0
　range("O14:O15,O21:O22,O38:O39,O40:O51").value = 0
end sub

ようするに
sub macro2()
　range("A11:B100,E11:F100").clearcontents
　range("O8").value = range("O54").value
　range("O12").value = range("O31").value
　range("I8:M8,I10:M30,I32:M52,I54:M74,I76:M95,O14:O15,O21:O22,O38:O39,O40:O51").value = 0
end sub

お礼

keithinさん　大変おそくなりましたが　希望のものができました。

ありがとうございました。もっと勉強します。

補足

keithinさん　回答ありがとうございます。

おって補足します。すみませんでした。

回答No.1

kmetu

セルが特定されているのでしたらマクロの記録で作成できるのではないでしょうか。

お礼

kmetuさん　回答ありがとうございます。

一度全部を込でやってみたいとおもいます。

すみません。中途半端の検証になってしまい