２行のセルの入れ替え。

質問

初めまして、よろしくお願いします。
　セルに
A B C D E F G H I J K L
1 a b c d e f
2 g h i j k l
3 m n o p q r
4 s t u v w x
5 "
・ "
・ "
・ "
100 "
　という表があります。これを

A B C D E F G H I J K L
1 a b c d e f g h i j k l
2 m n o p q r s t u v w x
3 "
4 "
5 "
・ "
・ "
・ "
100 "
　という風に、偶数行のデーターを奇数行の後ろにつけるようにしたいと思います。無理ならば奇数行だけのデーター、偶数行だけのデーターとなるように、何かよい方法を教えて頂きたく、よろしくお願いします。

回答No.6

wisemac21 · ベストアンサー

別シートを使って
A1=OFFSET(Sheet1!$A$1,2*ROW()-2,COLUMN()-1)
で右へF列までコピー、下へコピー
G1=OFFSET(Sheet1!$A$1,2*ROW()-1,COLUMN()-7)
で右へL列までコピー、下へコピー

お礼

回答ありがとうございます。うまくいきました。助かりました。ありがとうございます。

回答No.5

hallo-2007

すみませんでした。
奇数行、偶数行の出し方
=MOD(ROW()/2) と入れて下へコピィすれば
は
=MOD(ROW(),2) と入れて下へコピィすれば
でした。

お礼

訂正ありがとうございます。何とかうまくいきそうです。

回答No.4

hige_082

よく分かりませんが、マクロでよければ
はい、どうぞ

Sub test()
Dim a
Dim i, ii, iii
a = Range("a1:f100")
Range("a1:f100").ClearContents
iii = 1
For i = 1 To 100
For ii = 1 To 6
If i Mod 2 = 1 Then
Cells(iii, ii) = a(i, ii)
Else
Cells(iii, ii + 6) = a(i, ii)
If ii = 6 Then iii = iii + 1
End If
Next ii
Next i
End Sub

アレンジは、ご自分で
OS、EXCELのバージョンは書いておきましょう

お礼

回答ありがとうございます。参考にさせて頂きたいと思います。

回答No.3

hallo-2007

例えば、G1に　=A2 といれて右コピィ下コピィした後に
奇数行だけ表示しては如何でしょうか
奇数行か偶数行かの判断ですが　空いている列に　
=MOD(ROW()/2) と入れて下へコピィすれば
奇数行が　１　偶数行が　０　となりますので、
後はオートフィルターでどちらかを選んでください。

お礼

回答ありがとうございます。思ったようにできないようで残念です。

回答No.2

mu2011

一例です。
（１）先頭に空行を挿入
（２）空き列のデータ先頭セルに奇数、次行のセルに偶数の文字列を入力、その２つのセルを選択→フィルハンドル（枠右下の■）をダブルクリック
（３）先頭の空行も含み、データ範囲を選択→データ→フィルタ→オートフィルタ→空き列のフィルタボタン押下→偶数、奇数を選択して別シートに貼り付け

お礼

回答ありがとうございます。こちらのエクセルが古いもののためか、フィルタボタンの奇数、偶数の選択がでませんでした。

回答No.1

milko520

質問と違っていたらすみません。
関数の=CONCATENATE(B2,C2,D2,E2,F2,G2,B3,C3,D3,E3,F3,G3)
もしくは＆でつなげていくのはどうですか？
=B2&C2&D2&E2&F2&G2&B3&C3&D3&E3&F3&G3

ただ、これだと文字列となってしまいますので、もし数値のデータでしたら、さらに答えのセル*1（例：=A1*1）等の式を入れて数値にしてくださいね。

お礼

回答ありがとうございます。一つのセルに集約するのではなく、偶数行ごとの移動です。こちらの説明不足で申し訳ありません。