セル内の文字をスペースによって分割するには？

質問

教えてください。

a1 に
DX-09 １ SD-4 ２ HPE-25 ３
と、全角半角入り混じってスペースで区切られた文字が入っています。
これを、B1,C1,D1,E1,F1,G1にそれぞれDX-09,１,SD-4,２,HPE-25,３
と分割させたいです。
必ず半角スペースで区切られていますが、それぞれの文字の長さはマチマチです。
また、全角数字のも文字の長さは不定形です。

excel2010を使用しています。

お知恵を貸してください。

回答No.1

imogasi · ベストアンサー

A1セルを選択して、データ区切り位置以下の操作を知れば。そのものズバリの機能がエクセルにはあるよ。
Ａ１だけでなく、同列複数セル範囲を指定して出来ます。
エクセル２００７以後は
http://www.relief.jp/itnote/archives/003560.php
の操作のようです。

お礼

あ。目からうろこです。
関数にこだわってました…

ありがとうございます。

回答No.3

tom04

こんばんは！
一番簡単なのは「区切り位置」を使用する方法だと思います。
データはA列・A1セルから下にあるとします。
列番号の「A」の部分で右クリック　→　コピー　→　B1セル上で右クリック　→　貼り付け
メニュー　→　データ　→　区切り位置　→　「次へ」　→　「スペース」にチェックを入れ「完了」

VBAでも可能です
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
Dim myArray As Variant
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
myArray = Split(Cells(i, 1), " ")
For j = 0 To UBound(myArray)
Cells(i, j + 2) = myArray(j)
Next j
Next i
End Sub 'この行まで

参考になれば良いのですが・・・m(_ _)m

お礼

vba参考になりました。
ちょこっといじって使ってみます。

ありがとうございます。

回答No.2

matyu1003

Excel2010なら、データタブに「区切り位置」というボタンがあります。
これをクリックすると、「区切り位置指定ウィザード」が起動しますので、
「カンマやタブなどの区切り記号(以下略)」を選択し、次へ。
「区切り文字」としてスペースのみを選択して、次へ。
必要ならば、列のデータ形式を設定して完了でいけると思います。

お礼

ありがとうございます。

関数にこだわってました…

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