結合セルのある範囲を、未結合の範囲に書式を張付ける

質問

Excel2007でマクロ作成中の初心者です。

1）1枚のシートの中の、セル範囲B30～BM59を、BR29の最下端に複写します。
　　※この範囲は毎月、変動します。（28,30,31の3種類だけですが・・）
以下のコードで、セル範囲BR61～EE90に、正常に貼付けが出来ました。

Sub 範囲を右下に値を複写()
Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 0)), 66).Select
Selection.Copy
Range("BR29").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

2）問題点は、セル範囲B30～BM59が、セルの結合をしている部分があり
　"BR29"以下の、貼付部分のセル結合を解除する必要があり、手動で行いました。

3）"BR30"行は青色、BR31行は白色で、セル結合している2行を、先ほど貼付けしたセル範囲BR61～EE90の部分に、この書式を
　貼付けしなければなりません。

4）そこで、2行の書式を、先ほど値を貼付けた部分と同じ範囲に貼りつけるにはどうしたらよろしいでしょうか。

回答No.2

kmetu · ベストアンサー

> 1）1枚のシートの中の、セル範囲B30～BM59を、BR29の最下端に複写します。
> 　　※この範囲は毎月、変動します。（28,30,31の3種類だけですが・・）
> 以下のコードで、セル範囲BR61～EE90に、正常に貼付けが出来ました。

ということでしたから、コードを作成する実力は既にお持ちですので、単に書式の貼り付けのコードが分からないという事だと思いますから、私が説明したのは、書式の貼り付けのコードをマクロの記録で取得して、それを元にご自身のコードに応用してくださいということです。

> 1）の値貼りつけ元の範囲を、再利用ししかもデータ入力下端でなく、これも値貼り付け先の位置を再利用して、同じ場所に書式を貼りつけたいのです。

再利用ということですから、貼り付け元は値貼り付けの同じコードでよろしいでしょうし、貼り付け先はマクロの記録で取得した書式貼り付けのコードの位置の部分だけ、先に値貼り付けした位置に変更してやるだけでいいのではないでしょうか。

お礼

ありがとうございます。今一度教えていただいた方法をもとに自分で工夫して、やってみたいとおもいます。ありがとうございました。

回答No.1

kmetu

> 4）そこで、2行の書式を、先ほど値を貼付けた部分と同じ範囲に貼りつけるにはどうしたらよろしいでしょうか。

マクロの記録で「書式を取り込みたい範囲を選択してコピー、形式を選択して貼り付け→書式」を記録して応用してください。

また、セル結合の解除、再結合などもマクロの記録で記録すると手動で行わなくて良くなります。

Excel(エクセル) VBA入門：マクロの自動記録と実行(Excel2007編)
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_01_2007.html

補足

ご回答ありがとうございます。私の表現不足により。ご迷惑かけますした。マクロ記録のことは、承知しております。教えていただきたいことは、1）の値貼りつけ元の範囲を、再利用ししかもデータ入力下端でなく、これも値貼り付け先の位置を再利用して、同じ場所に書式を貼りつけたいのです。よろしくお願いします。