发布网友 发布时间:2022-04-24 09:41
共3个回答
热心网友 时间:2022-06-18 14:51
用宏是无法删除这些隐藏行的,我不太了解,我认为是不可以的,不如直接在页面:AIT+;(分号) ----再粘贴
这样复制的话,就不会复制隐藏行与列,只复制可见区域,你再到另一个空白表里面粘贴,就可以了!再把原表删了都行了!
这样就不用一行一行的显示再删!
热心网友 时间:2022-06-18 14:52
Sub aa()
For i = 1 To 256
If Columns(i).EntireColumn.Hidden = True Then Columns(i).Delete Shift:=xlToLeft
Next
For j = i To 65536
If Rows(j).EntireRow.Hidden = True Then Rows(i).Delete Shift:=xlUp
Next
End Sub
热心网友 时间:2022-06-18 14:52
Sub Macro1()
Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub