Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 13973|回复: 6

[已解决]小白求助,某单元格为空格时,怎么自动隐藏该行或列?

[复制链接]
发表于 2011-2-13 16:44 | 显示全部楼层 |阅读模式
如题,小白求助,某单元格为空格时,怎么自动隐藏该行或列?

因为打印时不需要这些空白格。


最佳答案
2011-2-13 17:01
根据你的要求,用VBA代码可以实现在第1-5行、第1-5列区域内,如果有空白单元格,那么将空单元格坐在的行隐藏。

Sub myhide()
    For i = 1 To 5
    If Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) = 0 Then
    Rows(i).Hidden = True
    ElseIf Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) > 0 Then
    Rows(i).Hidden = False
    End If
    Next
End Sub

如果需要的话可以调整区域,也可以把代码修改一下就可以实现空白单元格所在的列隐藏。
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-2-13 16:55 | 显示全部楼层
打印前选中需要隐藏的行或列,点击鼠标右键选择隐藏。
回复

使用道具 举报

发表于 2011-2-13 17:01 | 显示全部楼层    本楼为最佳答案   
根据你的要求,用VBA代码可以实现在第1-5行、第1-5列区域内,如果有空白单元格,那么将空单元格坐在的行隐藏。

Sub myhide()
    For i = 1 To 5
    If Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) = 0 Then
    Rows(i).Hidden = True
    ElseIf Application.WorksheetFunction.Product(Range(Cells(i, 1), Cells(i, 5))) > 0 Then
    Rows(i).Hidden = False
    End If
    Next
End Sub

如果需要的话可以调整区域,也可以把代码修改一下就可以实现空白单元格所在的列隐藏。
回复

使用道具 举报

发表于 2011-2-13 17:24 | 显示全部楼层
定位-空值,隐藏行或列
回复

使用道具 举报

发表于 2013-5-31 08:24 | 显示全部楼层
好好学习天天向上
回复

使用道具 举报

发表于 2013-5-31 09:24 | 显示全部楼层
VBA有这么好的功能,真的需要好好学习
回复

使用道具 举报

发表于 2014-12-28 21:22 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-3 20:15 , Processed in 0.457435 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表