使用宏拼接多个in的sql语句

 上篇：使用vba宏程序生成sql中in语句参数的值-CSDN博客

Sub sql拼接()
    Dim str As String, a As String
    Set thisws = ActiveSheet
    row = thisws.UsedRange.Rows.count
    Columns("C:C").ClearContents
    For j = 1 To row
     a = Cells(j, 2) '默认获取第二列，如需要可修改2为其他
     If IsEmpty(a) Or a = "" Then
        Exit For
     End If
     If (j = 1) Then
          str = "  a.id in (" + a + ")" ' a.id   是你的字段名，可修改
        Cells(j, 3) = str '默认第3列，如需要可修改3为其他
     Else
          str = " or a.id in (" + a + ")" ' a.id  是你的字段名，可修改
        Cells(j, 3) = str '默认第3列，如需要可修改3为其他
     End If

     a = ""
     str = ""
    Next
End Sub