エクセル 表のフォーマットをコピーする

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

C列~U列の15行目からデータが始まっている表があります。
表の最下行まで罫線を引いたり、セルに色をつけたりしたいのですが、もし、データの最下行より下に罫線等があった場合は消去したいのです。
今の所、

d = Range("C65536").End(xlUp).Row
Range("C15:U15").Copy
Range("C16:U" & d).PasteSpecial Paste:=xlFormats
Range("C" & d + 1 & ":U65536").ClearFormats
Application.CutCopyMode = False

としているのですが起動中にセルが範囲指定されるなど、作業が見えてかっこ悪いのです。

スマートにできる方法はありますでしょうか?

投稿日時 - 2005-06-10 10:38:59

QNo.1440226

暇なときに回答ください

質問者が選んだベストアンサー

こんにちは。

-------------------------------------------

●Application.ScreenUpdating = False

d = Range("C65536").End(xlUp).Row
Range("C15:U15").Copy
Range("C16:U" & d).PasteSpecial Paste:=xlFormats
Range("C" & d + 1 & ":U65536").ClearFormats
Application.CutCopyMode = False

●Application.ScreenUpdating = True

----------------------------------------------

●の2行を追加すると結果しか見えません。

以上です。

投稿日時 - 2005-06-10 11:29:36

お礼

ありがとうございました。

ご回答を見ハッとしたのですが、実は前にも同じ質問をしていました。
アホで申し訳ございません。

投稿日時 - 2005-06-10 13:43:20

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(0)

あなたにおすすめの質問

[PR] お役立ち情報