上篇:使用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