Excel VBAの標準モジュールに追加してる関数

join.vba

' ="SELECT ..... FROM ... WHERE column_A in ("&join(A1:A10,",","'")&")" などと式に使うことを想定
' SQLインジェクション可能だが知らん。

Function join(r As Range, Optional delimiter As String = ",", Optional wrap As String = "'") As String
  Dim i As Integer
  Dim result = As String

  result = wrap & r.Cells(1, 1).Value & wrap

  For i = 2 To r.rows.Count
    result = result & delimiter & wrap & r.Cells(i, 1).Value & wrap
  Next i

  join = result
End Function