人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルについて質問です。

下記のような処理のプログラムを作成できるかたおりましたらよろしくお願いいたします。

列Aにメールアドレスがいくつか入っております。その各セルに入っている
メールアドレスに,(半角カンマ)をつけたものをB1に表示したいのですが、
できますでしょうか?

例)A1にaaa@yahoo.co.jpというデータが、A2にはbbb@gmail.comというメールアドレスが入っておりA3には何もメールアドレスが入っていない場合
B1にはaaa@yahoo.co.jp,bbb@gmail.comという文字が表示される。

よろしくお願いいたします。

●質問者: aiomock
●カテゴリ:コンピュータ インターネット
✍キーワード:aaa co.jp Gmail Yahoo エクセル
○ 状態 :終了
└ 回答数 : 6/6件

▽最新の回答へ

1 ● SALINGER
●19ポイント ベストアンサー

プログラムということですので、VBAで書いてみます。

A列で空白が出るまで、ということなら。

Sub Macro1()
 Dim str As String
 Dim i As Long
 i = 1
 While Cells(i, 1).Value <> ""
 str = str & Cells(i, 1).Value & ","
 i = i + 1
 Wend
 Range("B1").Value = Left(str, Len(str) - 1)
End Sub

http://q.hatena.ne.jp/

◎質問者からの返答

ご回答ありがとうございます。


2 ● romeo_t
●19ポイント

以下のページでそのような関数が配布されています。

使い方も丁寧に解説されていますので試されてみてはいかがでしょうか。(Excel2002で動作確認しました)

-----

エクセルで、指定するセル範囲の文字列を区切り文字付きで結合する関数

http://m-box.seesaa.net/article/89801016.html

注意書きにあるとおり、そのままでは別マシン環境で開いたときにエラーになってしまいますが、

文字列を連結した結果部分を一旦コピーして右クリックから「形式を指定して貼り付け」→「値」を選択すれば

連結した文字列を値として保存できます。(この状態であれば別マシン環境でもファイルを開けます)

◎質問者からの返答

ご回答ありがとうございます。


3 ● きゃづみぃ
●18ポイント

標準モジュールに

Function setmail(a As Range) As String
 b = Cells(a.Row, 1)
 For c = a.Row + 1 To 65536
 If Cells(c, 1) = "" Then Exit For
 b = b & "," & Cells(c, 1)
 Next c
 setmail = b
End Function

を作成します。

次に B1のセルに

=setmail(A1)

とすれば、メールアドレスが表示されますよ。



http://q.hatena.ne.jp/answer

◎質問者からの返答

ご回答ありがとうございます。


4 ● chuken_kenkou
●18ポイント

プログラムを作成できるかた

VBAで、マクロを書きたいということでしょうか?

提示された処理だけなら、B1セルに下記の式を入れるだけで実現できますが?


=IF(ISBLANK(A3),A1&","&A2,"")

http://q.hatena.ne.jp/はてな

◎質問者からの返答

ご回答ありがとうございます。


5 ● van-dine
●18ポイント

A3が空のセルであると仮定しますが、こんなのでよろしいでしょうか?

Dim R As Range
Dim S As String
Set R = Range("A1")
S = ""
Do Until VarType(R.Value) = vbEmpty
 S = S & R.Value & ","
Loop Until B
Range("B1").Value = Left(S, Len(S) - 1)

↓ダミー

http://q.hatena.ne.jp/1225894242

◎質問者からの返答

ご回答ありがとうございます。


1-5件表示/6件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ