[發問] 如何自動判斷一列中空白格欄位後隱藏此欄?

starry1314

因使用樞紐表製作表單,但有時參照資料的變動 導致樞紐表有時多或少欄位,

將會導致表格中間出現空白欄,能否以如第9列的AN:AR欄開始自動判斷 有空格則自動隱藏欄?

starry1314

回復 1# starry1314

已解決....第9列出現空白 則自動隱藏所再欄

1. Sub 自動隱藏()
   
2. '
   
3. ' 自動隱藏 巨集
   
4. 
   
5. For I = 42 To 70
   
6. 
   
7. If Cells(9, I) = "" Then
   
8. 
   
9. Columns(I).EntireColumn.Hidden = True
   
10. 
    
11. End If
    
12. Next
    
13. 
    
14. 
    
15. End Sub

複製代碼