//清除空列 Sub ClearNullMacro1() Dim j As Integer Dim colCount As Integer colCount = Cells(2, Columns.Count).End(xlToLeft).Column For j = 1 To colCount Dim v As String v = Cells(2, j).value ' MsgBox v If v = "" Then Columns(j).Delete Dim PauseTime P
数据如下表一样 在E1列输入update sql 模板 ="update test set A= '"&A1&"' ,B = '"&B1&"' where C= '"&C1&"' and D = '"&D1&"';" 下拉得到批量update sql 如果要修改成双引号的话 update sql 模板修改为="update test