エクセルのデータを入れ替えたいのですが。

質問

エクセル2010で下記のデータがあり、C2とD2はaの1回目のデータで続きがE2とF2
となります、これがY2とZ2まで続き、そのあとC4とD4と続きます。

この横につながるデータを縦に入れ替えたい（一番下のように入れ替えたい）のですが、
よい方法を教えてください。

今まで、コピーと貼り付けでやっていたのですが、量が多く時間が足りません。
マクロでも関数でもどちらでもいいです。

よろしくお願いいたします。

---A--B----C-------D-------E------F--------G------H-------I-------J--・・・Y--Z
1----------上限----下限----上限---下限-----上限----下限----上限----下限
2-----a----3500----3400----3750----3650----4000----3900----3150----3100
3-----b----3800----3750----3350----3300----5300----5100----3600----3550　
4-----a----2900----2850----2850----2800----3600----3500----3550----3500
5-----b----3200----3150----3100----3000----3700----3600----7000----6500
6-----a
7-----b

下のように入れ替えたい。

------A------B------C-----D--
1---------a-------------b-----
2----上限---下限---上限---下限
3----3500---3400---3800---3750
4----3750---3650---3350---3300
5----4000---3900---5300---5100
6----3150---3100---3600---3550　
7-----K2-----L2-----K3----L3
8-----M2-----N2-----M3----N3
・
・
・
・-----Y2------Z2-----Y3----Z3
・-----C4------D4-----C5---D5
・-----E4------F4-----E5----F5
・
・
・

回答No.2

watabe007 · ベストアンサー

元デーの有るのがSheet1 並べ替えをSheet2に行いました。参考に
Sub Test()
　　Dim c As Range
　　Dim a As Long, b As Long

　　a = 4: b = 4
　　With Sheets("Sheet1")
　　　　For Each c In .Range("C2:Z" & .Cells(Rows.Count, "C").End(xlUp).Row)
　　　　　　If c.Row Mod 2 = 0 Then
　　　　　　　　a = a + 1
　　　　　　　　Sheets("Sheet2").Columns("A:B").Cells(a).Value = c.Value
　　　　　　Else
　　　　　　　　b = b + 1
　　　　　　　　Sheets("Sheet2").Columns("C:D").Cells(b).Value = c.Value
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

このコードをコピーしマクロ実行したら、一瞬のうちに自分の行いたかったものが出てきて大変助かりました。
ありがとうございました。

回答No.7

MackyNo1

関数で表示するなら以下の式を入力して右方向に４つ下方向に適当数オートフィルしてください。

=OFFSET(Sheet1!$B$2,INT((COLUMN(A1)-1)/2)+(INT((ROW(A1)-1)/12))*2,(MOD(ROW(A1)-1,12))*2+MOD(COLUMN(A1)-1,2)+1)

お礼

今回は、回答者2番目の方の方法で解決しましたが、説明されたとおりにやってみました、こちらも一瞬にしてデータが出てきました。

しかし、皆さん短時間でよく回答できますね。自分には信じられません。

ご回答ありがとうございました。

回答No.6

KURUMITO

回答No５です。
シート２のA２セルが上限、B２セルが下限、C２セルが上限、D２セルが下限と入力されているとします。この文章が抜けておりました。ごめんなさい。

回答No.5

KURUMITO

お示しの元のデータがシート１に有って、C１セルに上限、D１に下限、右横の列にそれが繰り返されてZ１セルまで入力されているとします。
B２セルにはa、B３セルにはb、B４セルにはa、B５セルにはb、のように下方に繰り返して入力されているとします。
そこでお望みの表をシート２に表示させるとして、A１とB１セルが結合されてa、C１セルとD１セルが結合されてbのように入力されているとします。
A３セルには次の式を入力してD３セルまで横にドラッグコピーしたのちに下方向にもドラッグコピーします。

=IF(INDEX(Sheet1!$C:$Z,IF(COLUMN(A1)<=2,ROUNDUP(ROW(A1)/12,0)*2,ROUNDUP(ROW(A1)/12,0)*2+1),IF(MOD(COLUMN(A1),2)=1,MOD(ROW(A1)-1,12)*2+1,MOD(ROW(A1)-1,12)*2+2))=0,"",INDEX(Sheet1!$C:$Z,IF(COLUMN(A1)<=2,ROUNDUP(ROW(A1)/12,0)*2,ROUNDUP(ROW(A1)/12,0)*2+1),IF(MOD(COLUMN(A1),2)=1,MOD(ROW(A1)-1,12)*2+1,MOD(ROW(A1)-1,12)*2+2)))

お礼

今回は、回答者2番の方の方法で解決しましたが、説明された順序でやってみました。
こちらも一瞬にしてデータが出てきました。

ご回答ありがとうございました。

回答No.4

kagakusuki

ANo.3です。
　もし、元データのリストがK列よりも右側にある列にも続いている場合には、ANo.3で挙げたSheet3に入力する各関数の中で、

Sheet1!$B:$K

となっている箇所を、適時変更して下さい。

お礼

一度、説明された通りにやってみましたが、うまくいきませんでした。
2番目の回答者様の方法で今回は解決しました、ただ時間の空いたときに挑戦したいと思います。

ご回答ありがとうございました。

回答No.3

kagakusuki

今仮に、元データのリストがＳｈｅｅｔ１にあり、Ｓｈｅｅｔ3のA列～E列を作業列として使用して、Ｓｈｅｅｔ2に並べ替えたリストを表示させるものとします。

　まず、Ｓｈｅｅｔ3のA2セルに次の関数を入力して下さい。

=INT((ROWS($2:2)*2-1)/COLUMNS(Sheet1!$B:$K))+ROW(Sheet1!$A$2)

　次に、Ｓｈｅｅｔ3のB2セルに次の関数を入力して下さい。

=MOD(ROWS($2:2)*2-1,COLUMNS(Sheet1!$B:$K))

　次に、Ｓｈｅｅｔ3のC2セルに次の関数を入力して下さい。

=IF(AND(INDEX(Sheet1!$A:$A,$A2)<>"",COUNT($D2:$E2)=2),"☆"&INDEX(Sheet1!$A:$A,$A2)&"★"&COUNTIF(C$1:C1,"☆"&INDEX(Sheet1!$A:$A,$A2)&"★*")+1,"")

　次に、Ｓｈｅｅｔ3のD2セルに次の関数を入力して下さい。

=IF(ISNUMBER(INDEX(Sheet1!$B:$K,$A2,$B2)),INDEX(Sheet1!$B:$K,$A2,$B2),"")

　次に、Ｓｈｅｅｔ3のE2セルに次の関数を入力して下さい。

=IF(ISNUMBER(INDEX(Sheet1!$B:$K,$A2,$B2+1)),INDEX(Sheet1!$B:$K,$A2,$B2+1),"")

　次に、Ｓｈｅｅｔ3のA2～E2の範囲をコピーして、同じ列の３行目以下に貼り付けて下さい。

　次に、Ｓｈｅｅｔ2の
A1セルに　　　　　　　　a
C1セルに　　　　　　　　b
A2セルとC2セルに　　上限
B2セルとD2セルに　　下限
と入力して下さい。
　次に、Ｓｈｅｅｔ2のA3セルに次の関数を入力して下さい。

=IF(ROWS($3:3)>COUNTIF(Sheet3!$C:$C,"☆"&A$1&"★*"),"",VLOOKUP("☆"&A$1&"★"&ROWS($3:3),Sheet3!$C:$E,2,FALSE))

　次に、Ｓｈｅｅｔ2のB3セルに次の関数を入力して下さい。

=IF(ROWS($3:3)>COUNTIF(Sheet3!$C:$C,"☆"&A$1&"★*"),"",VLOOKUP("☆"&A$1&"★"&ROWS($3:3),Sheet3!$C:$E,3,FALSE))

　次に、Ｓｈｅｅｔ2のA3～B3の範囲をコピーして、Ｓｈｅｅｔ2のC3～D3の範囲に貼り付けて下さい。
　次に、Ｓｈｅｅｔ2のA3～D3の範囲をコピーして、同じ列の4行目以下に貼り付けて下さい。

　これで、Ｓｈｅｅｔ2に並べ替えられたリストが表示されます。

回答No.1

aokii

aとbのデータを並べ替えてから、＝でデータを別シートに抽出しては。

お礼

「＝でデータを別シートに抽出しては。」については、フィルターオプションの設定のことだと思いやってみましたが、うまく抽出できずに至りました。

回答ありがとうございました。