[已解决]用VBA横着查找隐藏

excel白兔

用VBA横着查找隐藏
我用end（etToLeft 向左）  这样没弄出来郁闷 请老师帮助

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-7-9 15:59

If Cells(1, i) <> "我" or cells(1,i)<>"你"把or改成AND

跳转到最佳答案楼层

lyf7276

Sub 列()
Sheets(1).Select
m = Rows(1).Cells.Find("*", , , , , xlPrevious).Column
For i = 4 To m
If Cells(1, i) Like "*等*" Then Columns(i).ColumnWidth = 0
Next
End Sub

adders

1. Sub tt()
   
2. Dim LCol As Long, cel As Range
   
3. LCol = Cells(1, Columns.Count).End(xlToLeft).Column
   
4. For Each cel In Range(Range("D1"), Cells(1, LCol))
   
5.     If cel.Value <> "我" Then cel.EntireColumn.Hidden = True
   
6. Next cel
   
7. End Sub

复制代码

w2001pf

Sub 隐藏列()
    Dim s As String
   
    Dim i As Long
    Sheets("sheet1").Select
   
    With Sheets("sheet1")
    sh = .Range("dz1").End(xlToLeft).Column
    For i = 4 To sh
        If Sheets("sheet1").Cells(1, i) <> "我" Then
           .Columns(i).Hidden = True
        End If
    Next i
    End With
End Sub

excel白兔

w2001pf 发表于 2013-7-9 11:14
Sub 隐藏列()
    Dim s As String
   

老师要是在显示一个 那怎么办呢 您这个只显示了一个 比如我要显示2个列（1个名字交我，一个名字叫你）  那怎么办呢
就显示这2列，而不是之前的1列

excel白兔

lyf7276 发表于 2013-7-9 11:06
Sub 列()
Sheets(1).Select
m = Rows(1).Cells.Find("*", , , , , xlPrevious).Column

谢谢老师的回答！
但是您这个很适用这个表
换个表就不好用了
因为列标题有可能是别的什么不一定都是*等*
因为列有200多列 没有文字规律的

excel白兔

adders 发表于 2013-7-9 11:10

老师要是在显示一个 那怎么办呢 您这个只显示了一个 比如我要显示2个列（1个名字交我，一个名字叫你）  那怎么办呢
就显示这2列，而不是之前的1列

lyf7276

Sub 列()
Sheets(1).Select
m = Rows(1).Cells.Find("*", , , , , xlPrevious).Column
For i = 4 To m
If Cells(1, i) <> "我" or cells(1,i)<>"你"   Then Columns(i).ColumnWidth = 0
Next
End Sub

excel白兔

lyf7276 发表于 2013-7-9 14:30
Sub 列()
Sheets(1).Select
m = Rows(1).Cells.Find("*", , , , , xlPrevious).Column

老师不可以 复制你的代码全部隐藏了

lyf7276

If Cells(1, i) <> "我" or cells(1,i)<>"你"把or改成AND