エクセルでデータを区切ってセルを分けたいのですが

質問

よろしくお願いいたします。
2007を使用しています。

エクセルでA1から順に下記のように入っているとします。
対戦表です。階級別の巴戦と思っていただければ。

A1　AAAA x BBBB x CCC
B1　DDD x EEEE x FFFF
C1 GGGG x HHH x III
D1 JJ x KKK x LLLL

これを
A1 AAAA /A2 x /A3 BBBB /A2 x /A5 CCC
のように分けたいのです。

カンマなら分けられると聞いたことがあるのですが。。。
各行の人名の文字数も違うし、全然わかりません。

回答No.2

wisemac21 · ベストアンサー

編集→フィル→文字の割り付け　を使います。
【使い方】
各列毎に操作します、
A列の列幅を１文字分に狭める。
編集→フィル→文字の割り付け
これでA1:A5の各セルに文字が振り分けられる。
列幅を最適幅にする
同様にして
B列、C列、D列の各列を操作する。

回答No.6

xls88

マクロの例です。

Dim c As Range
Dim d As Variant
Dim i As Integer

For Each c In Range("A1:D1")
d = Split(c.Value, " ")
For i = LBound(d) To UBound(d)
c.Offset(i + 1).Value = d(i)
Next i
Next

お礼

まとめてのお礼ですみません。
みなさん丁寧な回答ありがとうございました。

せっかくなのできちんと実践してからご報告したいと思います。

ただごめんなさい。マクロはちょっと手が出ないです。

回答No.5

koko88okok

次のような方法もあります。

1) セルA1～D1を選択して「コピー」します。
2) 「メモ帳」を起動して「編集」→「貼り付け」します。
3) 貼り付けたデータを「コピー」します。
4) Excelの「編集」→「貼り付け」しますと、データのスペースが削除され、セルに分割されます。

5) データ範囲を選択して「コピー」します。
6) 適当なセルを選択して、「編集」→「形式を選択して貼り付け」→「行と列を入れ替える」にチェックを入れて「OK」を押します。

回答No.4

KURUMITO

次のようにすることも一つの方法でしょう。
お示しのデータをコピーしてから、Ａ2セルを選択し、「形式を選択して貼り付け」で[行列を入れ替える]にチェックをして貼り付けます。
その後にＡ2セルからＡ4セルを選択してから「データ」タブの「区切り位置」をクリックします。「カンマやタブの・・・・・」のチェックがある状態で「次へ」で区切り文字の「その他」の窓に[か]と入力しTabキーを押します。×のマークが表示されますのでそれを選択して確定します。「次へ」さらに「完了」で文字列が三つに分かれてＡ2セルからＣ4セルに表示されます。
それらを範囲として選択してからコピーし、Ｄ1セルを選んで「形式を選択して貼り付け」で[行列を入れ替える」で貼り付けをします。Ｄ，Ｅ,Ｆ列にはデータが並んで表示されますのでＡ列からＢ列までを削除すればよいでしょう。

回答No.3

ASIMOV

「データー」「区切り位置で」スペースにチェックを入れて変換し、
全体をコピーして、「形式を選択して貼り付け」「行列を入れ替える」にチェックを入れてＯＫ．．でどうでしょうか

回答No.1

mshr1962

横方向なら、"x"をキーにして“区切り位置”で分ける方法が使えます。
でも縦の場合、“区切り位置”は使えません。

2度手間になりますが数式を利用するなら
A2=LEFT(A1,FIND("x",A1,1)-1)
A3="x"
A4=MID(A1,FIND("x",A1,1)+1,FIND("x",A1,LEN(A2)+2)-LEN(A2)-2)
A5="x"
A6=RIGHT(A1,LEN(A1)-LEN(A2&A4)-2)
上記の結果をコピーして、形式を選択して貼り付けで値化してから
元の1行目の値を削除して正規の位置にしてください。