マクロで書式のみコピーして貼り付けるには

質問

Ｅｘｃｅｌのマクロで、あるセルに作成した罫線をコピーして書式だけを別のセル（Ａ）に貼り付けるにはどうしたらいいでしょうか。すべて貼り付けにすると別のセル（Ａ）にあらかじめ入力してある数式が消えてしまうので書式だけを貼り付けたいんです。

回答No.2

doukeshi0 · ベストアンサー

こんにちは。

例えばA4セルの書式をA1セルに貼り付けるには下記のマクロで可能です。

Range("A4").Copy
Range("A1").PasteSpecial Paste:=xlPasteFormats

お礼

Range("A4").Copy
ActiveCell..PasteSpecial Paste:=xlPasteFormats
としたらできました。ありがとうございます。
これからもどうぞよろしくおねがいいたします。ご回答ありがとうございました。

補足

すみません　貼り付け先が特定されていなくて、Range("A1"）だったり、("A30")だったりする場合ですけど・・・・。
出納帳で毎月末に締め切って当月の収入、支出の合計を入力記帳したあとで、合計部分の罫線の色や太さを変えたいのですがその都度書式→罫線で処理するのは面倒ですのであらかじめつくっておいた罫線をマクロで貼り付けたいのです。

回答No.1

A88No8

こんにちは
　Excel 2003までなら貼り付け先で右クリックをして表示するメニューかメニューバーの「編集」から「形式を選択して貼り付け」を選んで「書式」を選べばよいかと思います。

お礼

ありがとうございました。工夫したらうまくできました。ご回答ほんとうにありがとうございました。

補足

できました、ありがとうございます。でも　一度のマクロの実行で出来る方法ないでしょうか？　またセル（Ａ）だけでなく任意のセルに張り付けできる方法・・・。