VBA 遍历指定工作表中所有名称管理器，并隐藏空白数据的表格所在的区域

wked75

各位老师，VBA 中想编写一个遍历指定工作表中所有名称管理器，将没有数据的名称管理器的区域隐藏（空白数字部分）。在运行下面的程序时，运行完 For Each nm In ws.Names 这一行后，直接就跳出程序了，不知道是哪个地方不对，谢谢各位老师指导

Sub 隐藏空表()
   Dim ws As Worksheet
   Dim nm As Name
   Dim x As String
    Set ws = ThisWorkbook.Sheets("应收票据")
    For Each nm In ws.Names   ' 遍历工作表中的名称管理器        
            x = nm.Name   '取名称管理器的名字
            Tol = 0   
            m = ws.Range(x).Row   '名称管理器所在区域的第一行   
            For Each c In ws.Range(x)               
                If IsNumeric(c.Value) Then  '单元格的值为数值时                       
                    Tol = Tol + c.Value   '单元格数值相加            
                    n = c.Row  '单元格所在的变动的行次            
                End If        
            Next c   
            If Tol = 0 Then '如果数值相加等于0        
                ws.Rows(m & ":" & n).Select '选中从起始行至最末行            
                Selection.EntireRow.Hidden = True '隐藏选中的行            
            End If      
    Next nm
End Sub

shiruiqiang

虽然不知lz想表达啥？但ws设定好就一个表，怎么能遍历？

shiruiqiang

名称代表行？第一次听说