エクセルVBAについて、アップした図もご覧ください。…

エクセルVBAについて、アップした図もご覧ください。 結合セルの並びを移動する場合、ループを使用して下記のようにすれば セル範囲を、結合セルの塊ごとに移動することができます。 --- Dim moveNum As Integer moveNum = 3 '移動したい数 Set newRange = Range("A1") For j = 1 To moveNum '下の隣の結合セルの範囲にセットする。 'Offset(＜2以上＞, 0)とは違い、Offset(1, 0)であれば、MergeAreaを使用しなくても目的を果たす Set newRange = newRange.Offset(1, 0) Next MsgBox newRange.Value '「結合セル4」が表示される --- 一方、結合セルではない普通のセル（図では「単体セル」）の場合、 --- Set newRange =

[ken3memo]

.Offset(1, 0)で結合セルを飛ばせるのにビックリ だけど、.Offset(2, 0)だと飛ばせないのにガックリ。自分の日記 http://d.hatena.ne.jp/ken3memo/20100615/1276556731 に少しテスト結果を記載