求助VBA：删除第二行是0所管的那三列

dky198

求助VBA：删除第二行科目是0所管的那三列，例如：若Q2=0，则删除QRS三列！谢谢

An374938857

1. Sub main()
   
2. 
   
3. For c = 34 To 1 Step -1
   
4.     If Cells(2, c).Value = 0 And Cells(2, c).Value <> "" Then
   
5.         For i = 1 To 3
   
6.             Columns(c).Delete
   
7.         Next i
   
8.     End If
   
9. Next c
   
10. 
    
11. End Sub
    
12. 
    

复制代码

lele6809

1.     x = [IV2].End(xlToLeft).Column
   
2.     For i = x To 1 Step -1
   
3.         If Cells(2, i) = "0" Then
   
4.             Range(Columns(i), Columns(i + 2)).Select
   
5.             Selection.Delete Shift:=xlToLeft
   
6.         End If
   
7.     Next
   

复制代码