主题：不显示零值

执行代码

Dim t As Table = Tables("表A")
For Each r As Row In t.rows
    For Each c As Col In t.cols
        If cstr(r(c)) = "0" Then
            r(c) = Nothing
        End If
    Next
Next