[已解决]结果要求：只搜索到s列

qhllqhll

请见附件
201201凭证.rar (578 KB, 下载次数: 44)

2013-3-26 16:50 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-26 18:15

1. Private Sub CommandButton1_Click()
   
2.     Dim Sh As Worksheet, Sht As Worksheet
   
3.     Dim H As Long, L As Integer
   
4.     Set Sht = Sheets("汇")
   
5.     Sht.Rows("4:10000").ClearContents
   
6.     For Each Sh In Worksheets
   
7.         If Sh.Name <> Sht.Name Then
   
8.             With Sh
   
9.                 H = .Range("A65536").End(xlUp).Row
   
10.                 'L = .Range("IV1").End(xlToLeft).Column
    
11.                 With .Range(.Cells(1, "A"), .Cells(H, "s"))
    
12.                     H = Sht.Range("A65536").End(xlUp).Row + 2
    
13.                     .AdvancedFilter 2, Sht.Range("B1:B2"), Sht.Cells(H, "A"), True
    
14.                     If H > 4 Then Sht.Rows(H - 1 & ":" & H).Delete
    
15.                 End With
    
16.             End With
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码

跳转到最佳答案楼层

无聊的疯子

sql 的,帮你叫了烟花了,晚上他来

qhllqhll

无聊的疯子 发表于 2013-3-26 16:54
sql 的,帮你叫了烟花了,晚上他来

这是您原来回复的一个帖子
我看了很好
才求教您
谢谢

qhllqhll

无聊的疯子 发表于 2013-3-26 16:54
sql 的,帮你叫了烟花了,晚上他来

大师您好：我想搜寻到 s 列的最后一行，下面的代码应该怎样修改
谢谢
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Sht As Worksheet
Dim H As Long, L As Integer
    Set Sht = Sheets("汇")
    Sht.Rows("4:10000").ClearContents
    For Each Sh In Worksheets
        If Sh.Name <> Sht.Name Then
            With Sh
                H = .Range("A65536").End(xlUp).Row
                L = .Range("IV1").End(xlToLeft).Column
                With .Range(.Cells(1, "A"), .Cells(H, L))
                    H = Sht.Range("A65536").End(xlUp).Row + 2
                    .AdvancedFilter 2, Sht.Range("B1:B2"), Sht.Cells(H, "A"), True
                    If H > 4 Then Sht.Rows(H - 1 & ":" & H).Delete
                End With
            End With
        End If
    Next
End Sub

hwc2ycy

qhllqhll 发表于 2013-3-26 16:59
大师您好：我想搜寻到 s 列的最后一行，下面的代码应该怎样修改
谢谢
Private Sub CommandButton1_Clic ...

1. MsgBox Range("s:s").Find(what:="*", searchdirection:=xlPrevious).Row

复制代码

显示S列最后一行的行号。

qhllqhll

hwc2ycy 发表于 2013-3-26 17:47
显示S列最后一行的行号。

老师您好：我的意思修改上面的代码，使其代码只筛选所有表的a到s列的内容，s列后的不要
请老师帮助修改
谢谢

hwc2ycy

你说说你想实现什么功能吧。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim Sh As Worksheet, Sht As Worksheet
   
3.     Dim H As Long, L As Integer
   
4.     Set Sht = Sheets("汇")
   
5.     Sht.Rows("4:10000").ClearContents
   
6.     For Each Sh In Worksheets
   
7.         If Sh.Name <> Sht.Name Then
   
8.             With Sh
   
9.                 H = .Range("A65536").End(xlUp).Row
   
10.                 'L = .Range("IV1").End(xlToLeft).Column
    
11.                 With .Range(.Cells(1, "A"), .Cells(H, "s"))
    
12.                     H = Sht.Range("A65536").End(xlUp).Row + 2
    
13.                     .AdvancedFilter 2, Sht.Range("B1:B2"), Sht.Cells(H, "A"), True
    
14.                     If H > 4 Then Sht.Rows(H - 1 & ":" & H).Delete
    
15.                 End With
    
16.             End With
    
17.         End If
    
18.     Next
    
19. End Sub

复制代码