削除

エクセル2013のVBAで結合セル基準Offset 削除

Message#2 2014年12月15日(月)15時26分
From: VBAマスター

＞ActiveWorkbook.ActiveSheetの、例えばC3からI3まで結合されているセルを基準ActiveCellにして

何がアクティブセルになっているのか、まず調べてみましょう。

○状況
　Ｃ３からＩ３まで結合済みにしてある

sub macro1()
range("C3").select
msgbox activecell.address
end sub

＞行方向は4から17セルまで列方向はC列からI列までをコピーしたい

このように（コピーしたい範囲の）行数や列数が「既知である」と前提を置いてしまうと、「Ｃ３：Ｉ３が結合されている」とかはどうでもよくなってしまいます。

sub macro2()
　range("C3").select
　activecell.offset(1).resize(14,7).copy
end sub

そうではなくて何か結合セルの「今の姿」を基準にどーにかしたいなら、上述マクロ２の「７」あるいは「１４」の部分に、今の状態から該当する数値を拾ってきて当てはめるような工夫をします。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。