VBA カンマで区切る

質問

質問です。

　Ａ　　　　　　　Ｂ　　
１　社員番号　名前
２　１００　　　　田中
３　１０１　　　　鈴木
４　１０２　　　　石田
５　１０３　　　　斎藤

エクセルのシートこのような情報があります。
この社員番号の部分Ａ２からＡ５を選択すると
セルＤ２にカンマ区切りで
100,101,102,103
というように表示させることはできますか？

この場合、どんなメソッドを使えばいいのかわからないので教えてください。
よろしくお願いします。

回答No.1

hallo-2007 · ベストアンサー

参考までに
Sub ボタン1_Click()
Dim i As Range
Range("d2").Value = ""

For Each i In Selection.Cells
Range("D2").Value = Range("D2").Value & i.Value & ","
Next

Range("D2").Value = Left(Range("D2").Value, Len(Range("D2").Value) - 1)
End Sub

回答No.3

watabe007

>セルＤ２にカンマ区切りで
D2セルに出力でしたね
v = Selection.Value
v = Application.Transpose(v)
Range("D2").Value = Join(v, ",")

回答No.2

watabe007

>Ａ２からＡ５を選択するとセルＤ２にカンマ区切りで
>100,101,102,103
こんばんは、参考に
v = Selection.Value
v = Application.Transpose(v)
MsgBox Join(v, ",")