エクセルのマクロを教えてください。

質問

エクセルで、複数のセルに、違ったの数値が入っている時、
それを別の１つのセルに、カンマをつけて、まとめる、という事はできますか？

３０個～１００個程度のセルにある数値を、手作業で１つのセルにまとめるのが、めんどくさくて、イライラして仕方ありません。
間違いも多いし・・・。
どうか、ご教授お願いします。

回答No.1

noname#67980 · ベストアンサー

簡単にですが、A1～A100の内容を、B1に出力
～
Option Explicit

Sub Main()

Dim nCnt As Long
Dim strOutPut As String

'初期化
strOutPut = vbNullString

For nCnt = 1 To 100

If strOutPut = vbNullString Then
strOutPut = Cells(1, nCnt).Value
Else
strOutPut = strOutPut & "," & Cells(nCnt, 1).Value
End If

Next nCnt

'B1セルに出力
Cells(1, 2).Value = strOutPut

End Sub

お礼

ありがとうございました。

回答No.2

inara1

同じ列、または同じ行の連続セルの数値を、カンマで区切った文字列にするユーザ関数で良ければ以下の手順でやってみてください。使い方は、ワークシート関数の sum( ) や average( ) と同じように、=matome( ) の( ) の中にまとめたいセル範囲を入れます。

（１）　Excelのメニューバーの [ツール] → [マクロ] → [Visual Basic Editor]
（２）　Visual Basic Editorのメニューバーの [挿入] → [標準モジュール] で出てきた空白ウィンドウに以下を貼り付ける
　　　↓ここから
Function matome(a As Variant) As Variant
Dim i As Integer, s As String
s = ""
For i = 1 To a.Count - 1
s = s + Str(a(i)) + ","
Next i
matome = s + Str(a(a.Count))
End Function
　　　↑ここまで
（３）　Excelに戻って、適当なセルに =matome( と書いて、まとめたいセル範囲をマウスで選び、) で閉じて Enter

お礼

ありがとうございました。