如何删除工作表中隐藏的行和列

yzyyyyyyy

原始表有若干隐藏的行和列，如何删除所有的隐藏行和列，从原始表变为目标表，保持原表格式不变 如何删除工作表中隐藏的行和列.rar (1.79 KB, 下载次数: 6)

2014-12-3 08:32 上传

点击文件名下载附件

chxw68

变个思路，复制可见单元格就行了。

1. Sub test()
   
2.   Worksheets("原始表").UsedRange.SpecialCells(xlCellTypeVisible).Copy Worksheets("目标表").Range("a1")
   
3. End Sub
   

复制代码

chxw68

参见附件。

chxw68

下面是直接删除的代码：

1. Sub test()
   
2.   Dim r%, c%, i%, j%
   
3.   Dim rng As Range
   
4.   With Worksheets("原始表")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
7.     For i = 1 To r
   
8.       If .Rows(i).Hidden = True Then
   
9.         If rng Is Nothing Then
   
10.           Set rng = .Rows(i)
    
11.         Else
    
12.           Set rng = Union(rng, .Rows(i))
    
13.         End If
    
14.       End If
    
15.     Next
    
16.     If Not rng Is Nothing Then
    
17.       rng.Delete
    
18.       Set rng = Nothing
    
19.     End If
    
20.     For j = 1 To c
    
21.       If .Columns(j).Hidden = True Then
    
22.         If rng Is Nothing Then
    
23.           Set rng = .Columns(j)
    
24.         Else
    
25.           Set rng = Union(rng, .Columns(j))
    
26.         End If
    
27.       End If
    
28.     Next
    
29.     If Not rng Is Nothing Then
    
30.       rng.Delete
    
31.     End If
    
32.   End With
    
33. End Sub
    

复制代码

chxw68

参见附件。

yzyyyyyyy

chxw68 发表于 2014-12-3 08:46
参见附件。

感谢大师帮助。今天试了一下，这个表中的隐藏列删除不了，不知何故。 如何删除工作表中隐藏的行和列.rar (13.45 KB, 下载次数: 4)

2015-3-24 16:16 上传

点击文件名下载附件

chxw68

详见附件。

永在战场

如果需要删除隐藏行的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法删除，打开VBE，将下列代码贴到新建的宏中，然后执行宏，隐藏的工作表就全删除了。


Sub 删除所有隐藏工作表()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1

   If Sheets(i).Visible = False Then
        Sheets(i).Delete
           Else
​       End If
Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门删除隐藏工作簿的应用处理，还可以多个excel工作簿一起操作，很快。
应用下载地址："https://pan.baidu.com/s/1A8N1a-tHuHcz1I0VoAk4Pw"