[發問] 簡化重複的 for each ... in

s13030029

請問要怎樣簡化下面這段程式嗎????

1. For Each Abar In Application.CommandBars
   
2.         If Not Abar.BuiltIn Then Abar.Delete
   
3.     Next
   
4. 
   
5.     For Each Bbar In Application.CommandBars
   
6.         If Not Bbar.BuiltIn Then Bbar.Delete
   
7.     Next
   
8. 
   
9.     For Each Cbar In Application.CommandBars
   
10.         If Not Cbar.BuiltIn Then Cbar.Delete
    
11.     Next
    
12. 
    
13.     For Each Dbar In Application.CommandBars
    
14.         If Not Dbar.BuiltIn Then Dbar.Delete
    
15.     Next
    
16. 
    
17.     For Each Ebar In Application.CommandBars
    
18.         If Not Ebar.BuiltIn Then Ebar.Delete
    
19.     Next
    
20. 
    
21.     For Each Fbar In Application.CommandBars
    
22.         If Not Fbar.BuiltIn Then Fbar.Delete
    
23.     Next

複製代碼

s13030029

回復 1# s13030029
用陣列的方式，已解決~~~
    bbar = Array(bar1, bar2, bar3, bar4, bar5, bar6)
    For Each bbar In Application.CommandBars
        If Not bbar.BuiltIn Then bbar.Delete
    Next