[已解决]请老师帮助修改vba代码

qhllqhll

If st.Name <> ActiveSheet.Name Then
按照上面的意思：写成下面的模式为什么不行
If sh.Name = "表一" Or sh.Name = "表二" Or sh.Name = "表三" Then
请老师修改
谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-23 21:33

1. Sub 查询2()
   
2.      Dim rng As Range
   
3.     [a5:d65536].Clear
   
4.     hh = 4
   
5.     For Each st In Sheets
   
6.         If st.Name = "表一" Or st.Name = "表二" Then
   
7. 
   
8.            st.Range("A1:e65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A1:e2"), CopyToRange:=Sheet3.Range("A" & hh, "e" & hh), Unique:=False
   
9.            If hh > 4 Then
   
10.            ActiveSheet.Rows(hh).Delete Shift:=xlUp
    
11.            End If
    
12.            Set rng = ActiveSheet.Range("A65536").End(xlUp)
    
13.            hh = rng.Row + 1
    
14.          End If
    
15.     Next st
    
16. End Sub

复制代码

跳转到最佳答案楼层

1032446692

最好把附件发上来   你这样写  我们也不知道是什么意思

hwc2ycy

你这是工作簿事件吗、。

qhllqhll

hwc2ycy 发表于 2013-3-23 21:25
你这是工作簿事件吗、。

老师您好：
请见附件
搜索.rar (10.43 KB, 下载次数: 6)

2013-3-23 21:27 上传

点击文件名下载附件

hwc2ycy

下面的并没有错，只是你得和上面的实现的功能一样才成。

下面的SH只要是表一，表二，表三中的任意一个就人成立。

qhllqhll

hwc2ycy 发表于 2013-3-23 21:27
下面的并没有错，只是你得和上面的实现的功能一样才成。

下面的SH只要是表一，表二，表三中的任意一个就 ...

麻烦您帮助修改一下代码吧
谢谢
Sub 查询2()
     Dim rng As Range
    [a5:d65536].Clear
    hh = 4
    For Each st In Sheets
        If st.Name <> ActiveSheet.Name Then
'If sh = "表一" Or sh = "表二" Then
           st.Range("A1:e65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A1:e2"), CopyToRange:=ActiveSheet.Range("A" & hh, "e" & hh), Unique:=False
           If hh > 4 Then
           ActiveSheet.Rows(hh).Delete Shift:=xlUp
           End If
           Set rng = ActiveSheet.Range("A65536").End(xlUp)
           hh = rng.Row + 1
         End If
    Next st
End Sub

hwc2ycy

变量名错了，st,sh你注意下。

1032446692

那把上面的改成下面的  并没有什么不可以的  只是 你把工作表名称搞错了  应该改成：
If st.Name = "表一" Or st.Name = "表二" Or st.Name = "表三" Then

hwc2ycy

1. Sub 查询2()
   
2.      Dim rng As Range
   
3.     [a5:d65536].Clear
   
4.     hh = 4
   
5.     For Each st In Sheets
   
6.         If st.Name = "表一" Or st.Name = "表二" Then
   
7. 
   
8.            st.Range("A1:e65536").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet3.Range("A1:e2"), CopyToRange:=Sheet3.Range("A" & hh, "e" & hh), Unique:=False
   
9.            If hh > 4 Then
   
10.            ActiveSheet.Rows(hh).Delete Shift:=xlUp
    
11.            End If
    
12.            Set rng = ActiveSheet.Range("A65536").End(xlUp)
    
13.            hh = rng.Row + 1
    
14.          End If
    
15.     Next st
    
16. End Sub

复制代码

hwc2ycy

这都是小错误了，写代码的时候得注意下。