Subこの記事にはVBAのコードが含まれています。L/お世話になります。4行4列のグループの観測データ(1組)が行方向に複数組連続しています。選択したグループに対して1行目と2行目、3行目と4行目を入れ替えたいです。入れ替えたいグループの一番上の点名を選択してからマクロを実行する方法としたいです。-1).Resize(0.3).Valueの行でエラーとなります。どの様に対処したらよいかご教授願います。Subこの記事にはVBAのコードが含まれています。質問に間違いがありましたので訂正いたします。再度質問に間違いがありましたので訂正いたします。'選択したグループの4行目の範囲を変数に格納この記事にはVBAのコードが含まれています。Subこの記事にはVBAのコードが含まれています。Subこの記事にはVBAのコードが含まれています。Subこの記事にはVBAのコードが含まれています。ご回答誠にありがとうございました。く様2種のマクロを実行したところ、やりたい操作ができました。今まで、ActiveCellとResizeを同時に使う方法がわかりませんでした。今回、その変数はオブジェクト変数でなくバリアントとする点が大変勉強になりました。今後もいろいろな場面で利用できそうです。別案として以下のコードでもうまくできました。RangeとCellsの組合せは今まで範囲指定多用していましたが、ぱっと見わかりにくいですね。自分にはできなかったです。く様のコードを採用いたします。Subこの記事にはVBAのコードが含まれています。L/ぴんく様3番目のご回答コードは自分の理解を超越しています。コードをコンパクトにするために、いろいろな方法があるのですね。1番目または2番目のご回答コードの方法を利用いたします。ありがとうございました。L/解決にチェック入れるのを忘れていました。-Edit:ゆう-G。