Excel精英培训网

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

[已解决]请教高手,是用筛选还是隐藏不确定,多谢了。

[复制链接]
发表于 2012-7-8 16:47 | 显示全部楼层 |阅读模式
一写内容就告诉我,有非法内容,只能上传图片了
最佳答案
2012-7-8 18:36
Sub 隐藏()
    Dim FenDian$, Col%, I%
    FenDian = Sheet2.Range("P7") & "月库存"
    With Sheet1
        .Cells.EntireRow.Hidden = False
        Col = .Range("1:1").Find(what:=FenDian, LookIn:=xlValues, lookat:=xlWhole).Column
        For I = 2 To Cells(65536, Col).End(3).Row
            If .Cells(I, Col) = 0 Or .Cells(I, Col) = "" Then .Rows(I).EntireRow.Hidden = True
        Next
    End With
End Sub
55.png

复件 www.rar

62.63 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2012-7-8 17:22 | 显示全部楼层
先解决第一步,选择相对应的列,现在 用如下代码为什么不可以呢


Sub ffff()

                Dim FenDian As String, Col As Long
                FenDian = Sheet2.Range("p7") & "月库存"
                Col = Sheet1.Range("ag2:bb2").Find(what:=FenDian, LookIn:=xlValues, lookat:=xlWhole).Column
'
Cells(2, Col).Select
End Sub
回复

使用道具 举报

发表于 2012-7-8 18:36 | 显示全部楼层    本楼为最佳答案   
Sub 隐藏()
    Dim FenDian$, Col%, I%
    FenDian = Sheet2.Range("P7") & "月库存"
    With Sheet1
        .Cells.EntireRow.Hidden = False
        Col = .Range("1:1").Find(what:=FenDian, LookIn:=xlValues, lookat:=xlWhole).Column
        For I = 2 To Cells(65536, Col).End(3).Row
            If .Cells(I, Col) = 0 Or .Cells(I, Col) = "" Then .Rows(I).EntireRow.Hidden = True
        Next
    End With
End Sub
回复

使用道具 举报

发表于 2012-7-9 16:49 | 显示全部楼层
高手,有你们在,啥子问题都能解决
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 07:16 , Processed in 0.436760 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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