エクセルで横に並んでいるデータを縦に並べる

質問

横並びの表が３表あります。
１表から3表に4項目のデータがあります。最上段の行から順番に縦に並べ方法を教えてください。
切り取りで貼り付けはしない。
コピーの貼り付けはしない。
ファィルを添付しますのでよろしくお願いします。

回答No.4

bunjii · ベストアンサー

B11へ次の数式を設定して右へE11までコピーし、B11:E11を下へ25行目までコピーすれば良いでしょう。
=INDEX($B$3:$O$7,INT((ROWS($B$11:B11)-1)/3)+1,COLUMNS($B$11:B$11)+MOD(ROWS($B$11:B11)-1,3)*5)

回答No.7

imogasi

切り取りで貼り付けはしない。
コピーの貼り付けはしない。
とのことだが、「１行１行のコピー・貼り付けはしない」と解釈して、下記を提案する。ソート法。一番簡単で頭を使わなくてよいだろう。行やカタマリが増えても手数が大幅には増えないだろう。
関数やVBAは大事で、仕事などでは、OKWAVEに質問している暇はないはず。
ーー
例データ　３行にした。カタマリは３つの例。これで説明する。
B2:E4
1 2 3 4
5 6 7 8
9 10 11 12
G2:J4
50 51 52 53
54 55 56 57
58 59 60 61
L2:O4
100 101 102 103
104 105 106 107
108 109 110 111
ーー
シートの空きの部分に、例えばB11から各部分を、「縦に」（引っ付けて）コピー張り付けする。
結果　B11;E19
1 2 3 4
5 6 7 8
9 10 11 12
50 51 52 53
54 55 56 57
58 59 60 61
100 101 102 103
104 105 106 107
108 109 110 111
ーー
A11からA１３に
1
2
3
を入力する。入力しても良いが、行が多ければ、複写して１増の番号を振れる。
この部分をコピーして、A14からと,A17に（行的な番号数字を）張り付ける。
ーー
並べ替え操作で、A列を指定し、昇順にソートする。
1 1 2 3 4
1 50 51 52 53
1 100 101 102 103
2 5 6 7 8
2 54 55 56 57
2 104 105 106 107
3 9 10 11 12
3 58 59 60 61
3 108 109 110 111
A列データを消して、見出しや罫線を加えて整える

回答No.6

msMike

[No.3]の続きですが、前回は「横並びの表が３表」の行数がテンデンバラバラだったので、しち面倒臭い手順になったけど、行数が同じなら、下記の如く至極簡単になります。
B11: =OFFSET($B$1,(ROW(A1)-1)/3,MOD(COLUMN(A1)-1+(ROW(A1)-1)*5,15))

回答No.5

watabe007

こんばんは
VBAですがお試しください。
Sub Test()
　　Dim c As Long, r As Long, i As Long
　　i = 11
　　For r = 3 To 5
　　　　For c = 2 To 12 Step 5
　　　　　　Cells(i, "B").Resize(, 4).Value = Cells(r, c).Resize(, 4).Value
　　　　　　i = i + 1
　　　　Next
　　Next
End Sub

回答No.3

msMike

素朴な疑問があるので、確認させてください。
まだ深くはご質問を読んではいませんが、つい３日程前にも似たような添付図付きの質問をされてましたね？
それを応用できなかったのでしょうか？

回答No.2

kimamaoyaji

ピポットテーブルを使えばよいだけだと思いますが？
ピポットテーブルの使い方はEXECELでは常識だそうなので、Webページで探せば使い方は沢山ありますし、書籍もたくさん出ています。
ここに記載できる文字数の文章だけで説明は大変なのでご自分で調べてみて下さい

回答No.1

中京区 桑原町（@l4330）

・切り取りで貼り付けはしない。
・コピーの貼り付けはしない。

ならば、参照するしかない
例えばB11セルに =B3
C11セルには =C3
この様に式を入れる