コンマ区切りリストを作成するためのユーザー定義関数を作成しました。私は.xlaファイルを持っているので、いつでも利用できます。
基本的に、データの 1 列を選択し、選択した任意の区切り文字 (デフォルトではカンマ) を使用してリストを作成し、引用符を使用するかどうかを指定できます (数値ではこれらをオフにします)。
Function CommaList(DataRange As Range, Optional Seperator As String = ",", Optional Quotes As Boolean = True) As String
Dim iCellNum As Integer
Dim sTemp As String
If DataRange.Columns.Count > 1 Then
CommaList = "Select a Single Column"
Exit Function
End If
For iCellNum = 1 To DataRange.Cells.Count
If Quotes Then
sTemp = sTemp + "'" + DataRange.Cells(iCellNum, 1) + "'"
Else
sTemp = sTemp + DataRange.Cells(iCellNum, 1)
End If
If iCellNum < DataRange.Cells.Count Then
sTemp = sTemp + Seperator
End If
Next iCellNum
CommaList = sTemp
End Function