VBA在行及其关联列中搜索，如果没有，则隐藏列
VBA在行及其关联列中搜索，如果没有，则隐藏列
提问于 2013-07-03 18:50:12
我对VBA编程很陌生。我想
- 搜索工作表，在第6行中找到"N“或"TR”
- 然后，对于"N“或"TR”列中的每个单元格
- 如果所有单元格为空，则删除/隐藏列
- 如果单元格不是空白，则突出显示处于空白中的单元格。
这听起来很简单，但我认为这需要两个循环。
Sub checkandhide()
Set r = Range("6:6")
Rows("7:7").Select
For Each Cell In r
Selection.Find(What:="N", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'search for N
Application.Run "hidecolumn"
Next
End Sub
Sub hidecolumn()
Dim target As Range
Dim dwn As Range
Set dwn = Range(ActiveCell.End(xlDown).Address)
ActiveCell.Select
ActiveCell.Offset(6, 0).Select
For Each Cell In dwn
If Cell.Text = "" Then Columns.Delete
Next
End Sub 回答 1
Stack Overflow用户
回答已采纳
发布于 2013-07-03 22:29:41
- 你不需要两个循环。
- 您提到要隐藏列，但代码建议您删除它(我保留了隐藏的解决方案)。
- 您没有提到哪个是空范围(哪些单元格是空的)来决定隐藏列--我假设所有内容都在第11行以下。
- 下面是尝试并测试过的代码，其中包含了一些注释。 子校验和隐藏() Dim r作为范围Dim单元格作为范围‘不要运行它为完整的行，但从第一个到最后一个单元格在它设置r=范围(“A6”，单元格(6，( Columns.Count).End(xlToLeft))对于r‘中的每个单元格，如果您只需要检查单元格的值，那么假设我们检查'N’& 'TR‘，而不是'n’或'tr‘，如果Cell.Value = "N“或Cell.Value = "TR”，那么几乎没有可能检查第11行下面是否有值(?!)在分析栏中。我将使用这一个:如果单元格(Rows.Count，Cell.Column).End(xlUp).Row < 12，那么Cell.EntireColumn.Hidden = True End如果是Next End If Next End Sub
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/17461130
复制相关文章
相似问题
哪个版本的X引入了特征Y？
如何确定要安装哪个内核版本？
如何确定我正在构建的RHEL的哪个版本？
libvirt支持哪个版本的VBOX？
哪个版本的unix来自shell？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
