学习求助 If Then语法

lk2lklk

请问：在下面宏中，我想增加筛选掉其他单元（比如"试听2"），如何实现？

Sub 宏10()
    Dim arr, brr, d, i&, j%
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    mypath = ThisWorkbook.Path & "\"
    wj = Dir(mypath & "*.xls*")
    Worksheets(1).Range("a3:a10000").ClearContents
    Do While wj <> ""
        If wj <> ThisWorkbook.Name Then
            With Workbooks.Open(mypath & wj)
                brr = .Sheets(.Sheets.Count).UsedRange
                ncm = .Sheets(.Sheets.Count).Range("d1:aa1").Find(what:="姓名", lookat:=xlWhole).Column
                For i = 4 To UBound(brr)
                   If brr(i, ncm) <> "" And brr(i, ncm) <> "试听" Then
                        d(brr(i, ncm)) = i
                    End If
                Next
                .Close 0
            End With
        End If
        wj = Dir
    Loop
    Worksheets(1).Range("a3").Resize(d.Count, 1) = Application.Transpose(d.keys)
    Call 宏11
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

chis3

If brr(i, ncm) <> "" And brr(i, ncm) <> "试听" or  brr(i, ncm) <> "" And brr(i, ncm) <> "试听2" then

lsc900707

建议楼主上传附件。

liulang0808

If brr(i, ncm) <> "" And brr(i, ncm) <> "试听" And brr(i, ncm) <> "试听2" Then

lk2lklk

lsc900707 发表于 2018-2-18 08:51
建议楼主上传附件。

谢谢2楼的回复，但按你的更改语句后，删选失效了（显示"试听"）

1. 显示所有人汇总时，需要增加几个限制。（比如"时间"）。请问在这里（如图）如何添加，语法是什么？

file:///C:/Users/Administrator/AppData/Local/Temp/msohtmlclip1/01/clip_image002.jpg

2. 需要增加文件（比如"历史"）。请问在这里（如图）如何添加。我做了一些尝试，但都提示错误，请问语法是什么，如何修改增加减少？

file:///C:/Users/Administrator/AppData/Local/Temp/msohtmlclip1/01/clip_image004.jpg

我提的几个问题肯有些幼稚，有些还是基础，但我实在无法解决，这才冒昧打扰您，望您百忙之中抽空解惑，不胜感激。

最后，还是感谢！并祝新年快乐！

3.我想知道当有同名文件时（比如初二物理和初三物理），是如何选定哪个文件的，用的什么语句逻辑？

我提的几个问题肯有些幼稚，有些还是基础，但我实在无法解决，这才冒昧打扰您，望您百忙之中抽空解惑，不胜感激。

最后，还是感谢！并祝新年快乐！

lk2lklk

liulang0808 发表于 2018-2-18 09:25
If brr(i, ncm)  "" And brr(i, ncm)  "试听" And brr(i, ncm)  "试听2" Then

你好，成功了。太感谢了！