批量删除工作簿空白列一次删不完

poongsan

用这个代码删除工作簿所有工作表的空白列发现一次居然删不完空白列，代码要怎么改呢？

Jaofuan

你这个格式我也不知道这么办了，根本没头绪找出最后一列，我感觉除非全部单元格判断了

Jason_WangSS

1. Sub 删除空列()
   
2.    
   
3.     Dim sh As Worksheet
   
4.     Dim arr()
   
5.     For Each sh In Sheets
   
6.         For i = sh.UsedRange.Column + sh.UsedRange.Columns.Count - 1 To 1 Step -1
   
7.             If sh.Cells(1, i) = Empty And sh.Cells(1, i).End(xlDown).Row > 6000 Then
   
8.             sh.Columns(i).Delete
   
9.             End If
   
10.         Next
    
11.     Next
    
12.    
    
13. End Sub
    

复制代码

试试,可以

poongsan

Jason_WangSS 发表于 2019-11-8 20:42
试试,可以

谢谢，非常好用！！！！