VBA+SQL 实现排序和自定义排序

语法：
排序用order by,如果要自定义排序，可以用 order by instr('自定义顺序' ,Id)

举例：

...... order by instr('3A,3B,3C,3E,3F,2G,2H,2J,3G,3H,3J',车间)

也可以引用单元格内容进行排序

...... order by instr('" & Join(Application.Transpose([b23:b33])) & "',车间)

Application.Transpose([b23:b33])               '转置单元格区域。
Join(Application.Transpose([b23:b33]))     '用join把单元格的内容连接为一维数组，空间隔开。