エクセルでAB列に無数にあるデータ これを2012行毎の塊をabcd...として以下のように入れ替えをしたいです。 このように入れ替えをするVBAマクロを書いてほしいです。 A B(列名)

Excel | Visual Basic79閲覧xmlns="http://www.w3.org/2000/svg">500

ベストアンサー

0

その他の回答(2件)

0

行列の入れ替えマクロです。 2012行の塊を入れ替えます。 毎と言うのが気になりますが・・・ Sub Sample() Dim A As Variant A = Range("A1").CurrentRegion Range("D1").Resize(UBound(A, 2), UBound(A)) = WorksheetFunction.Transpose(A) End Sub

画像
0

この画像をSheet1とします。 関数でやった方がいい案件です。 縦横を入れ替えたいなら、 Sheet2で、 A1: =INDEX(Sheet1!$A:$B,COLUMN(),ROW()) 右下へコピペ。でいいと思います。 2012行毎という事は、 A2013 → A3 に来るのでしょうか。 であれば、 A1: =INDEX(Sheet1!$A:$B,COLUMN()+QUOTIENT(ROW()-1,2)*2012,ISEVEN(ROW())+1) BYJ1迄コピペ後下へコピペ。 VBA がよければ変身して下さい。明日になります。 股は他の人に期待して下さい。