EXCEL 並び替え

質問

a1 a4 a7 a10 a13 a16 a19
a2 a5 a8 a11 a14 a17 a20
a3 a6 a9 a12 a15 a18 a21
b1 b4 b7 b10 b13 b16 b19
b2 b5 b8 b11 b14 b17 b20
b3 a6 b9 b12 b15 b18 b21
上記のような３ｘ７で一セットのかたまりのデータ（実際は文字列がはいっています）を下記のように簡単に横に並び替えるにはどうしたらよいでしょうか。各このセットが1枚のエクセルに最大30セットあり、EXCELは20ファイル程あるので手早くならびかえる方法を探しています。
a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21
b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 b20 b21

回答No.3

msMike · ベストアンサー

次式を入力した任意の空きセルを右に20列および下方に29行オートフィルするだけェ～
=OFFSET($A$1,(ROW(A1)-1)*3+MOD(COLUMN(A1)-1,3),(COLUMN(A1)-1)/3)
【備考】INT関数なんて必要なしッ！

お礼

すごい。あっという間にできました。ありがとう。ありがとうございます！！

回答No.4

nishi6

セルA1から3ｘ7で一セットが何個も行方向にある前提でコードを書きました。1列開けて出力します。
20個あるというファイル（Bookのこと？）の保存フォルダーやデータが入力されたシート名やシート数、データの書き出しセルなどが分かれば、それらを一括制御するBookを作れますが、不明なため、データがあるBookごとに標準モジュールに貼り付けるマクロになります。出力列になにが入力されているのか分からないので消去等はしていません。

当方、Win10、Excel2010です。ご参考に。

Sub joinAry()
　Dim Ary(20) As String
　Dim rRw As Integer　'// 調べる
　Dim wRw As Integer　'// 出力行
　Dim c As Integer, r As Integer

　With Range("A1")
　　While .Offset(rRw, 0) <> ""
　　　For c = 0 To 6
　　　　For r = 0 To 2
　　　　　Ary(c * 3 + r) = .Offset(rRw + r, c)
　　　　Next
　　　Next
　　　Range(.Offset(wRw, 8), .Offset(wRw, 28)) = Ary

　　　rRw = rRw + 3: wRw = wRw + 1
　　Wend
　End With
End Sub

お礼

ご回答本当にありがとうございます。マクロ書いたことがなく。。ちょっと他のやり方でTRYしてみます。ごめんなさい

回答No.2

STICKY2006

シート1に「３ｘ７で一セットのかたまりのデータ」を張り付ける場所を用意。
シート2に「A1には、シート1のA1を参照」「A2には、シート1のA2を参照」「A3には、シート1のA3を参照」「A4には、シート1のB1を参照」。。。の式を必要分まで用意。

シート1の張り付ける場所に
a1a4a7a10a13a16a19
a2a5a8a11a14a17a20
a3a6a9a12a15a18a21
を張り付ければ、

シート2の1行目に、
a1a2a3a4a5a6a7a8a9a10a11a12a13a14a15a16a17a18a19a20a21
が表示されるでしょう。

全部選択して、コピー。
値貼り付けすればよいかと。

2行目以降も同様の式入れとけば、30セット分も賄えるでしょう。

お礼

ありがとうございます。途中まで頑張ってこのやり方でやってみました。ありがとうございます！！

回答No.1

kkkkkm

以下のようなVBAでいかがでしょう。
A10とA11からそれぞれ右に横並びで出力します。

Sub Test()
Dim Inbuf As Variant
Dim Outbuf(21) As Variant
Dim i As Long, j As Long
Dim x As Long, y As Long

For i = 1 To 4 Step 3
Inbuf = Range(Cells(i, "A"), Cells(i + 2, "G"))
x = 1: y = 1
For j = 0 To 20
If y > 3 Then
x = x + 1
y = 1
End If
Outbuf(j) = Inbuf(y, x)
y = y + 1
Next
If i = 1 Then
Range("A10").Resize(1, 21).Value = Outbuf
Else
Range("A11").Resize(1, 21).Value = Outbuf
End If
Next
End Sub

お礼

ありがとうございます。私のスキル不足で動かすことができませんでした。せっかくお返事いただいたのに申し訳ありません。でも、お返事ありがとうございます！！

回答No.1

imogasi

Excelと言えば、初心者は、エクセル関数を思い浮べると思うが、
並べ替えや多列のデータは扱いにくい（たとえば「探索をする」でMATCH関数も単一列を対象にしている。（参考　多列の場合は、例
複数列にまたがるデータ一覧から検索条件に一致する値を取り出す方法
https://qiita.com/AquaMeria/items/a17591715a40f9c0c2ea
のように凝った方法になる）
ーー
そこでVBAコード（簡単な１０行以下と思う）を作って、
（１）作業列か作業用シートに、元各行データから、１列データを作る。
（参考　横列のものを縦列にＴＲＡＮＳＰＯＳＥ関数利用など
https://www.relief.jp/docs/excel-vba-transpose-array.html
その結果を対象に、
（２）ソートして（a,b,c・・・順にして）VBAコードは１行。
（３）望みの区切りで、ぶった切って、シートの望みの場所へ、代入（データ作成）すれば仕舞い。
質問者が、このやり方に興味があれば、コードを作成してみますが。