解決済みの質問

エクセルVBAでセルの中から必要なデータを取り出したいです。

glmarket2007さん

A列にはある規則に従った（コンマなどの記号が）データが入力してありまして、
例えばそのデータは
A1セルにはデータ,住所:愛知県,名前:山田
A2セルにはデータ,出身地:東京,名字:山田
・
・
・
とデータがあります。
この中の愛知県と東京などの住所を B列に。
名字や名前などをC列に抜き出したいのですが可能でしょうか？

処理前と私の希望する処理後のjpgファイルを添付しましたので参考にしてください。

投稿画像

違反報告

質問日時：

2012/2/13 16:36:42
解決日時：

2012/2/28 08:59:23
回答数：

1
お礼：

知恵コイン

25枚
閲覧数：

68
ソーシャルブックマークへ投稿：

Yahoo!ブックマークへ投稿

はてなブックマークへ投稿

（ソーシャルブックマークとは）

ベストアンサーに選ばれた回答

keijitenさん

こんにちは～＾＾

こんな感じです＾＾；

Sub Sample()
Dim v
Dim R As Range
For Each R In Range("A1", Cells(Rows.Count, 1).End(xlUp))
v = Split(R.Value, ":")
R.Offset(, 1).Value = Split(v(1), ",")(0)
R.Offset(, 2).Value = v(2)
Next R
End Sub