エクセルで一括処理の方法

質問

エクセルデーターで
****@nifty.com <****@nifty.com>
●●●@mail.goo.ne.jp<●●●@mail.goo.ne.jp >
×××@pb4.so-net.ne.jp<×××@pb4.sonet.ne.jp>
以下続く

といったメールアドレスのデータがたくさんあるのですが、
****@nifty.com以下の<****@nifty.com>の部分を
一括で消したいのですが、どうすればいいでしょうか？

****@nifty.com <****@nifty.com>でひとつのセルです。

回答No.5

mshr1962 · ベストアンサー

単純に「編集」「置換」で
「検索する文字列」を「<*>」
「置換する文字列」をブランク
で「すべて置換」では駄目なのですか？

お礼

回答いただいたみなさん、どうもありがとうございます。いろいろ教えていただいたんですが、マクロとか関数がよくわかりませんので、No.5さんのを方法を使わせていただきます。すごく間単にできました。
ありがとうございました。

回答No.4

marbin

#2です。単純にSplit一回ではだめでした。
マクロでしたら↓の感じでいけると思います。

Dim c As Range
Dim s As String
For Each c In Selection
s = Split(c.Value, "<")(1)
c.Offset(, 1).Value = Split(s, ">")(0)
Next

回答No.3

mu2011

安直ですが、以下の方法は如何でしょうか。

データがＡ列に設定されているとして説明します。

1.Ａ列選択
2.データ⇒区切り位置ウィザードを選択
3.区切り位置ウィザード⇒次へ⇒区切り文字を＜⇒完了
4.隣のＢ列を列削除

回答No.2

marbin

データの区切り位置を使って
"<"で区切っていらない部分は削除、
ではいかがでしょう？

マクロだったらSplit(○.Value ,"<")(0)
でいけるはずです。
※○にはセルのアドレスが入ります。

回答No.1

hirumin

1列追加して下さい。
仮にB列にその文字列があったのなら
その隣の列に以下の式を入れて下さい。
=LEFT(B1,FIND("<",B1)-1)
あとは必要分だけコピーします。
表示された物をコピーし、形式を選択して貼り付けで値貼り付けを行えば、メールアドレスだけが抽出できます。