求教，循环删除特定列，运行结果总是留下单数列的问题

lucastoremember

各位老师请帮帮我
我想在附表中删除第17年以后的空白列，但是运行后，总是有单数年没有被删除，请各位老师指点一下，万分感谢！

1. Sub 表格()
   
2. 
   
3. 
   
4.    
   
5.     last_column = Worksheets("财务分析").Cells(3, Columns.Count).End(xlToLeft).Column
   
6.     For i = 1 To 50
   
7.     If Worksheets("财务分析").Cells(3, i).Value > 17 Then
   
8.     Columns(i).Delete
   
9.     End If
   
10.     Next
    
11.    
    
12.    
    
13. End Sub

复制代码

A1233515

删除列、删除行要倒着删
for i =50 to 1 step -1

lucastoremember

A1233515 发表于 2021-2-23 15:43
删除列、删除行要倒着删
for i =50 to 1 step -1

哇，成功了，谢谢您！

简七

union合并区域统一删除