エクセルのデータを１行ずつ別々にしたい。

質問

次のような１列のデータを2列に変更したいのです。
エクセルの初心者なものでいろいろ工夫してみましたがうまくいきません。良い方法を教えてください。データは1000行くらいあります。

元のデータ
１　あ
２　a
３　い
４　b
５　う
６ c

ほしいデータ
１　あ　　　　a
２　い 　　 b
３　う 　　 c
４　え 　　 d
５　お 　 　e
６ か 　　 　f

どうぞ、よろしくお願いします。

回答No.3

noname#62235 · ベストアンサー

＃２です。

文字列の長さを返す関数には、全角を１文字と数える「LEN」と全角文字を２文字と数える「LENB」の２種類があります。
これを使えば、LENB(A1) = LEN(A1)のとき、A1セルに入っているのは半角文字ばかり、ということがわかります。

先ほど作ったＡ列に、これを使って

=IF(LENB(B2)=LEN(B2), 1, 2)

と入れてみてください。
そして、同様にこれをテータの最後の行までコピーします。
すると、英語の列には「１」が、日本語の列には「２」が入っているはずです。
同じようにオートフィルタを使えば、取り出せますよ。

お礼

うわぁ～、うまくいきました。
てっきりマクロをくまないといけないと思っていたのですが、１つの関数でこなせるとはすごいですね。
昔、BASICでプログラムを組んでいましたのでLENは知っていましたが、LENBがあってそれを組み合わせるとは思いつきませでした。
２度にわたってていねいで的確なご回答いただき本当にありがとうございました。助かりました。

回答No.2

noname#62235

一番手っ取り早いのはマクロを組むことでしょう。
マクロが組めないなら、次のような方法を試してみてください。

１．Ａ列の左に１列挿入する
２．Ａ１に「１」、Ａ２に「２」と入れる
３．Ａ１：Ａ２を選択して、フィルハンドルをつかみ下に向かってドラッグする
４．これで、Ａ列に「１・２・１・２・・・・」というのができましたね。
５．次に「オートフィルタ」の設定をします。まず、見出し行を作るため１行目の上に１行挿入します
６．Ａ１に「番号」、Ｂ１に「データ」とでも入力します。
７．「オートフィルタ」を設定します。
８．「番号」のところに、プルダウンメニューができていますので、メニューを出し、「１」を選びます。
９．すると、奇数列のデータだけが抽出されます。ここで、範囲選択して、別のシートにコピーしてやれば、奇数列の取出しが完了します
１０．次に「２」を選び同じことをします。

１度限りしかやらないのであれば、マクロを組むのと大して手間の差はないでしょう。
何度も繰り返すのであれば、マクロを組むべきですが。

補足

早速のご返事ありがとうございました。
見事に全部が区分けでき感動しました。助かりました。

別のデータなのですが、こちらは少しだけ不規則で日本語がたまに２行になったりします。日本語の行だけ（全角）、英語の行だけ（半角のみ）を２列に分けることができますか。

１　　drum
２ 　 n. 太鼓
３　　drunk
４ 　 a. 酔った
５ 　 n. 酔っぱらい

たびたびですみませんが、よろしくお願いします。

回答No.1

hirorin00

はじめまして

まずB1に
=A2
と入れ、必要なだけ下へコピーします。
そしてB列を選択してコピー、そして同じくB列に「形式を選択して貼り付け」で「値」を選択して貼り付けます。

次にC1に
=mod(row(),2)
と入れ必要なだけ下へコピーします。
そしてC列を選択してコピー、そして同じくC列に「形式を選択して貼り付け」で「値」を選択して貼り付けます。

次にAからC列を選択して「並び替え」。「最優先されるキー」をC列にし、「降順」で並び替えます。

すると上半分に求めたい表ができますので、下半分を選択して削除すれば完成です。

お礼

早速にご返事いただきありがとうございました。
No2さんの回答で解決しました。