VBAの初心者です。

質問

VBAの初心者です。
顧客データを整理しようとしていたところ、複数のメールアドレスが一つのセルに入力されておりました。
例：zzzzz@yahoo.co.jp,xxxx@gmail.com

このような場合「,」以下を一行下（一行下に行を追加する形になります）に切り取り、貼付をしたいのですが、どのようにすればよいか教えていただけますでしょうか。

また、お客様によってはメールアドレスが3つ、4つある方もいるためその場合の対処法も合わせて教えていただければ幸いです。

例：zzzzz@yahoo.co.jp,xxxx@gmail.com,wwww@msn.com,yyyyy@nifty.com

Ctrl+Fで「,」を検索したり色々と試しましたが、わかりませんでした。
数が膨大なため、マクロで何とかできないかなと考えています。

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

回答No.2

DOUGLAS_ · ベストアンサー

＞数が膨大なため、マクロで何とかできないかなと考えています。
　基本的には、#1 imogasi さんがお書きの「大原則論」に賛同します。

　で、例えば、
・膨大な データ は １列 にしか入っていない。
・「複数のメールアドレス」を区切る文字列（この場合「,」）は「複数のメールアドレス」の セル にしか入っていない。
というような場合でしたら、マクロ を使わなくても、
１）「膨大な データ」が入っている列を選択する。
２）[区切り位置指定ウィザード] で [区切り文字] を [カンマ(C)] にして [完了(F)] する。
ということで、列方向への分轄は可能です。

　次に、
・「複数のメールアドレス」を区切る文字列（この場合「,」）が「複数のメールアドレス」の セル 以外にも入っている。
というような場合でしたら、

Sub Macro1()
　Dim c As Range
　With Cells
　　Set c = .Find("@*,")
　　If Not c Is Nothing Then
　　　Do
　　　　c.TextToColumns Comma:=True
　　　　Set c = .FindNext(c)
　　　Loop While Not c Is Nothing
　　End If
　End With
End Sub

というようなことで、列方向への分轄は可能です。
　但し、コード は荒削りですので、[区切り位置指定ウィザード] の操作を [新しいマクロの記録] で記録して、お望みの コーディング に直してください。

　それでも、どうしても、行方向への分轄がお望みということになれば、

Sub Macro2()
　Dim c As Range
　Dim s As Variant
　With Cells
　　Set c = .Find("@*,")
　　If Not c Is Nothing Then
　　　Do
　　　　s = Split(c.Value, ",")
　　　　c.Offset(1).EntireRow(UBound(s)).Insert
　　　　c.Resize(UBound(s) + 1) = Application.WorksheetFunction.Transpose(s)
　　　　Set c = .FindNext(c)
　　　Loop While Not c Is Nothing
　　End If
　End With
End Sub

というようなことでできないこともなさそうですが、やはり、#1 imogasi さんがお書きのように
＞あとの扱いが非常に困る場合が出てきそうで、やらないほうが良い
ような感じがします。

回答No.3

DOUGLAS_

#2 DOUGLAS_ です。

Sub Macro2()
の
c.Offset(1).EntireRow(UBound(s)).Insert
は
c.Offset(1).Resize(UBound(s)).EntireRow.Insert
の誤りでした。

　大変、失礼いたしました。　　<(_ _)>

お礼

区切り位置指定ウィザードを使ったらセルを分けることができました。
区切り位置指定ウィザードを知らなかったというのもお恥ずかしい話ですが。

解決してよかったです。
ありがとうございました。

回答No.1

imogasi

（１）大原則論
エクセルで１人のデータをその列だけ複数化して２行以上に持つことは、あとの扱いが非常に困る場合が出てきそうで、やらないほうが良い。
例えば４つまでと決めて、メールアドレスで４列確保するほうがまだましではないかと思う。
（２）数のメールアドレスが一つのセルに入力されておりました。
標準モジュールに
例データ　C列（D列以右は結果）
aaa,bnnn,chh aaa bnnn chh
shh shh
djkl djkl
f,ghjko f ghjko
ーーーー
Sub test01()
For i = 1 To 4
s = Cells(i, "C")
ss = Split(s, ",")
j = 4
MsgBox UBound(ss)
For k = 0 To UBound(ss)
Cells(i, j) = ss(k)
j = j + 1
Next k
Next i
End Sub
こういうSplit関数の使い方は、勉強して慣れないと仕様が無い。
最下行の行番号の捉え方は知っているのかな。
Googleで「エクセル　VBA　最下行」で照会。
ーー
＞Ctrl+Fで「,」を検索したり色々と試しましたが
的外れ。在る文字列のセルが何処にあるかを探すものです。セルの中の文字を探すのはInstr関数。
Instr関数でもやれるが、なれないと、文字列中で、繰り返し探索のロジックが難しいからここでは省略。

お礼

ありがとうございます。
メールアドレスについては使用しているソフトからCSV出力をしたら、一つのセルにカンマ区切りで表示されてしまっていました。

「エクセル　VBA　最下行」についても調べてみます。
ありがとうございました。