主题：副本型窗口表自动清除零值问题

For Each r As Row In Tables("XXX").Rows

    For Each c As Col In Tables("XXX").Cols

         if r(c.Name) = "0" then

               r(c.name) = Nothing

         End If

    Next

Next