我有动态范围字符串数据,需要传递修剪单元格并将单引号和逗号分隔到SQL查询。
A
123ABC345
234CDE678
ZSE123MTR
POR123456
结果:
select * from table name where col1 in ('123ABC345','234CDE678','ZSE123MTR','POR123456')
Dim query as String
query = "select * from table name where col1 in ("
range("A1").Select
While ActiveCell.Value <> "" and ActiveCell.Offset(1, 0).Value <> ""
query = query + "'" + Activecell.Value + "', "
ActiveCell.Offset(1, 0).Select
Wend
query = query + "'" + Activecell.Value + "')"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句