想通过vba实现I列中单元格数值为0的对应行自动隐藏，但部分由多个单元格合并的无法隐藏

烦请各位高手帮忙看看，要想实现合并单元格的隐藏得怎么写
Sub aa()
Dim i As Integer
For i = 3 To [I55536].End(xlUp).Row
If WorksheetFunction.Product(Range("I" & i).Value = 0) Then
Rows(i).Hidden = True
End If
Next i
End Sub

楼主问题描述的很清楚，就是因为有合并单元格
所以隐藏的时候有问题
解决办法是，取消合并，然后处理
取消合并，楼主可以自行录制宏处理的

range(range("d2"), cells(2, y)).select range(range("a1"), cells(x, y)).select