ID非公開

2021/12/7 11:34

11回答

マクロで4列ごとに最右列まで、その4列の最下行を見つけては下へコピペ(移動?)していって下さい。

画像
補足

Sub A列からD列より4列ごとにA列からD列のいずれか最下行に繰り返し移動() Range("E1:H19").Select'----4列ごとの最下行まで選択 Selection.Cut Destination:=Range("A9:D27")'----A列~D列のいずれか最下行に移動 Range("I1:L45").Select'----4列ごとの最下行まで選択 Selection.Cut Destination:=Range("A28:D72")'----A列~D列のいずれか最下行に移動 Range("M1:P47").Select'----4列ごとの最下行まで選択 Selection.Cut Destination:=Range("A73:D119")'----A列~D列のいずれか最下行に移動 '・ '・ '・ '・ Selection.End(xlToRight).Select'--------以降4列ごとに最終列まで繰返し行う End Sub マクロを実行することによって数千列だったものが最終的にA列~D列の4列のみになります

Excel48閲覧

ベストアンサー

0

ID非公開

質問者2021/12/8 14:55

すいません。 1~3行目はA・B、C・D列でおのおのセルの結合をしていますが解除しても動作しませんでした。 図の矢印のところで止まりました。

画像

ThanksImg質問者からのお礼コメント

動作OKです。 どうもありがとうございました。

お礼日時:2021/12/8 17:22