图片上，实发工资项后有挺多的空列在打印预览内是显示的。这些列列宽都是20个像素。
弄了段代码：
For i = 1 To 100
If Columns(i).Width < 25 Then
Columns(i).Select
Columns(i).Delete
End If
Next
这段代码倒是能删除这些空列，但是删除不完全。运行完毕后只能删除一部分，还是有一部分会保留。
请问这个问题怎么破？？？