請問我要如何編寫VBA來將滿足某條件的儲存格所處的那一列隱藏

Question

假設有一組數據如下
A 2
B 0
C 4
D 0

我要如何編輯vba 來將對應數據為0的那一列,整個隱藏

For i = 1 To 4
If Cells(i, 2).Value = 0 Then
Rows(i).RowHeight = 0
End If
Next i

這個我試過後~~會變成1-4列都隱藏...並非數字為0的隱藏
我自己嘗試的都是會造成選定範圍列隱藏
請VBA達人們指點一下

抱歉...程式是可以的~~~
我套用錯欄的位置ˇˇa""
感謝上官大大的幫助唷'

Answer 1

for i = 1 to 4(假設你從第一列到第四列，列數自由增減)
if cells(i,2).value = 0 then
rows(i).rowheight=0
end if
next i