EXCEL里，有很多列单元格，部分隐藏。我怎么用公式知道显示的有多少列，隐藏的有多少列？

EXCEL里，有很多列单元格，部分隐藏。我怎么用公式知道显示的有多少列，隐藏的有多少列？

Public Sub jishu()
Dim rng As Range
Dim i As Integer
i = 0
For Each rng In Range("A1:Z1")
If rng.EntireColumn.Hidden = True Then
i = i + 1
End If
Next

MsgBox i
End Sub
用VBA吧，公式不太知道

空白列第一格输入1,填充至最后一行,看看状态栏显示的求和是多少,再看看行数是多少,中间差就是隐藏的

选中a1菜单--插入--名称--自定义--输入列宽(不要引号)--引用位置里输入：=get.cell(16,sheet1!a1)--添加或确定在任意行插入一空白行，在该行第一列输入：=列宽（引号里的等于号和中文的列宽）--回车然后向右填充至计算区域末列些时就得到了每个单元格的列宽值。在任意单元格输入公式：=countif(2:2,0)即可（这是隐藏列的数量）显示列的公式为：=countif(2:2,0)注意公式里的2:2是区域，也就是你列宽值的位置