вставить это в модуль Экселя:

Option Explicit
Enum enumCsvFromTable
Text = 0
Numbers = 1
End Enum

Function CsvFromTable(ValuesType As enumCsvFromTable, delimiter As String, ParamArray arrTable())
'return string of csv from range of values
Dim tmpRange, tmp, outdata, j As Long

For Each tmpRange In arrTable
For Each tmp In tmpRange
tmp = Trim(tmp)
If tmp = "" Then Exit For
If ValuesType = 0 Then
    outdata = outdata & "'" & tmp & "'" & delimiter
Else
    outdata = outdata & tmp & delimiter
End If
Next
Next
'trunc last ","
outdata = Left(outdata, Len(outdata) - 1)
CsvFromTable = outdata

End Function

пример вызова (пишем в ячейке экселя):
=CsvFromTable(0;",";A2:A1002)

http://www.sql.ru/forum/1131988/generator-spiska-znacheniy-dlya-in