Sub Remove_Hidden()
max_r = ActiveSheet.Range("B65535").End(xlUp).Row
max_c = ActiveSheet.Range("IV3").End(xlToLeft).Column
i = 1
'''''删除隐藏行开始'''''
For n = 1 To max_r
If Rows(i).EntireRow.Hidden = True Then
Rows(i).Delete
Else: i = i + 1
End If
Next n
'''''删除隐藏行结束'''''
i = 1
'''''删除隐藏列开始'''''
For m = 1 To max_c
If Rows(i).EntireRow.Hidden = True Then
Rows(i).Delete
Else: i = i + 1
End If
Next m
'''''删除隐藏列结束'''''
End Sub

删除隐藏行和列