excel如何实现快速指定行列隐藏?
发布网友
发布时间:2022-04-25 05:15
我来回答
共4个回答
热心网友
时间:2022-05-05 07:11
Excel中的分级显示功能可以简单实现快速隐藏、显示指定行列。以隐藏C、D、F列为例:
选中C、D列,切换到“数据”选项卡,单击“组合”的图标,此时工作表上侧会显示分级的1、2按钮。同样选中F列进行组合。现在只要单击1按钮即可隐藏C、D、F列,单击2按钮则恢复显示。若单击E列上的那个“-”按钮则可只隐藏C、D列,再次单击恢复显示。对于行的设置也是一样,只是组合后行的1、2按钮是在行标的左侧。
热心网友
时间:2022-05-05 08:29
ALT+F11打开VBE编辑器,新建一个模块,输入如下代码:
Sub hiddosl()
'隐藏偶数列
Dim rg As Range, flag As Boolean
Application.ScreenUpdating = False
flag = True
hl = ActiveSheet.Range("a65536").End(xlUp).Row
For i = 2 To hl Step 2
If Rows(i).Hidden = False Then
If flag Then
Set rg = Rows(i)
flag = False
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next
If flag = False Then
rg.EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
运行hiddosl宏即可。
热心网友
时间:2022-05-05 10:04
见小动画,这样行不行。
热心网友
时间:2022-05-05 11:55
这个恐怕得用VBA才能解决了,不简单,我不会=_+
热心网友
时间:2022-05-05 07:11
Excel中的分级显示功能可以简单实现快速隐藏、显示指定行列。以隐藏C、D、F列为例:
选中C、D列,切换到“数据”选项卡,单击“组合”的图标,此时工作表上侧会显示分级的1、2按钮。同样选中F列进行组合。现在只要单击1按钮即可隐藏C、D、F列,单击2按钮则恢复显示。若单击E列上的那个“-”按钮则可只隐藏C、D列,再次单击恢复显示。对于行的设置也是一样,只是组合后行的1、2按钮是在行标的左侧。
热心网友
时间:2022-05-05 08:29
ALT+F11打开VBE编辑器,新建一个模块,输入如下代码:
Sub hiddosl()
'隐藏偶数列
Dim rg As Range, flag As Boolean
Application.ScreenUpdating = False
flag = True
hl = ActiveSheet.Range("a65536").End(xlUp).Row
For i = 2 To hl Step 2
If Rows(i).Hidden = False Then
If flag Then
Set rg = Rows(i)
flag = False
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next
If flag = False Then
rg.EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
运行hiddosl宏即可。
热心网友
时间:2022-05-05 10:04
见小动画,这样行不行。
热心网友
时间:2022-05-05 11:55
这个恐怕得用VBA才能解决了,不简单,我不会=_+
热心网友
时间:2022-05-05 07:11
Excel中的分级显示功能可以简单实现快速隐藏、显示指定行列。以隐藏C、D、F列为例:
选中C、D列,切换到“数据”选项卡,单击“组合”的图标,此时工作表上侧会显示分级的1、2按钮。同样选中F列进行组合。现在只要单击1按钮即可隐藏C、D、F列,单击2按钮则恢复显示。若单击E列上的那个“-”按钮则可只隐藏C、D列,再次单击恢复显示。对于行的设置也是一样,只是组合后行的1、2按钮是在行标的左侧。
热心网友
时间:2022-05-05 08:29
ALT+F11打开VBE编辑器,新建一个模块,输入如下代码:
Sub hiddosl()
'隐藏偶数列
Dim rg As Range, flag As Boolean
Application.ScreenUpdating = False
flag = True
hl = ActiveSheet.Range("a65536").End(xlUp).Row
For i = 2 To hl Step 2
If Rows(i).Hidden = False Then
If flag Then
Set rg = Rows(i)
flag = False
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next
If flag = False Then
rg.EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
运行hiddosl宏即可。
热心网友
时间:2022-05-05 10:04
见小动画,这样行不行。
热心网友
时间:2022-05-05 11:55
这个恐怕得用VBA才能解决了,不简单,我不会=_+