Excel VBA多条件查询代码加注释

Sub 查询()

    Set sth = Sheets("数据源")

    Range("a2:n65536").Clear    '清除查询工作且内A2:N65536的内容和格式

    n = 2                       'n指标行数，因为查询表内第一行是标题，所以从第2行开始存放数据

    For i = 2 To sth.Range("b65536").End(xlUp).Row  '从"数据源"的第2行开始查询

   

        '设置查询条件

        If sth.Cells(i, "L") > 20 And sth.Cells(i, "N") > 15 And sth.Cells(i, "h") = "男" And sth.Cells(i, "d") = "中级" Then  'L列大于20,N列大于15,H列等于男,D列等于中级(这里可以继续增加查询条件)

            Rows(n) = sth.Rows(i).Value     '如果合乎条件，则把数据源的内的第I行数据复制到查询表的N行

            Cells(n, "a") = n - 1 'a表示编号所在列在a列

            '数据是从第2行开始，所以编号就为n-1

            n = n + 1   'n+1，N行已写入数据，N号往下移一行

        End If

    Next i

    With Sheets("查询").Range("a2:n" & Range("b65536").End(xlUp).Row)    '设置指定工作表的指定区域

        .Borders.LineStyle = 1    '加表线

        .Font.Size = 12    '设置字号

        .HorizontalAlignment = xlCenter    '文字水平居中

        .VerticalAlignment = xlCenter    '文字垂直居中

        .WrapText = True    '自动换行

    End With

End Sub