エクセルで英数字のセルを統合する方法

質問

エクセルに下記内容のメールアドレスが100件あります。
そのファイルを一括して統合する方法を教えてください。
個別で統合する方法として「=A1&","&A2","&A3」までは
分かっています。

データ内容
A1 abc@***.co.jp
A2 bcd@***.co.jp
A3 cde@***.co.jp　が100件あります。

希望する統合ファイル
abc@***.co.jp,bcd@***.co.jp,cde@***.co.jp
と1つのセルに100件を一括で統合したいです。
以上
よろしくお願いします。

回答No.2

ham_kamo · ベストアンサー

B1に
=A1
B2に
=B1&","&A2
と入力し、B2をB100までコピー
最後のB100をコピーし、他のセルへ「形式を選択して貼り付け」で「値」で貼り付ける。

でいかがでしょうか。

お礼

ど真ん中ストライクのご回答でした。ホントありがとうございました。

回答No.4

134

１．Ａ１からＡ１００までをコピー
２．新しいシートを開く
３．新しいシートのＡ１を選択
４．形式を選択して貼り付け→行列を入れ替える　を指定して貼り付け
５．新しいシートをファイル形式：csvファイル（カンマ区切り）で名前を付けて保存して閉じる
　（ファイル形式部分をドロップダウンすると出てきます
６．保存したファイルをメモ帳で開く
　（右クリックで「プログラムで開く」を選択）
７．Ctrl＋Ａですべてを選択し、Ｃｔｒｌ＋Ｃでコピー
８．オリジナルファイルの希望するセルに貼り付ける

お礼

他の機会でも利用できそうです。ありがとうございました。

回答No.3

noname#31387

VBAなら下記で出来ると思います。
Sub Test()
Dim buf() As Variant
Dim f As Long
With Worksheets("Sheet1")
　　　For f = 1 To .Range("A" & CStr(Rows.Count)).End(xlUp).Row
　　　　　　ReDim Preserve buf(1 To f)
　　　　　　buf(f) = .Range("A" & CStr(f)).Value
　　　Next
　　　.Range("C1").Value = Join(buf, ",")
End With
End Sub

お礼

VBをマスターしたら、参考にさせてください。

回答No.1

hayasi456

これで出来ました。
１．１００件をコピー
２．メモ帳を開いて貼り付ける
３．[Ctrl+A]で総てを選択してコピー
４．記録したいセルを選びダブルクリックし貼り付ける
５．「セルの書式」の「配置」の「折り返して全体を表示する」のチェックを外す。

お礼

他の機会に、利用させてください。ありがとうございました。