小白求教：为何C、D选项的查询结果是错的

Qs18

Sub s()
    Dim arr, j, i
    arr = Sheet1.Range("a1").CurrentRegion.Value
    ReDim brr(1 To 1000, 1 To 4)
    Set dic = CreateObject("scripting.dictionary")
    dt = Sheet2.[b1].Value: lb = Sheet2.[d1].Value
    For i = 2 To UBound(arr)
        If arr(i, 4) = dt And arr(i, 3) <> lb Then
            rw = rw + 1
            For j = 1 To 4
                brr(rw, j) = arr(i, j)
            Next
        End If
    Next
    Sheet2.Range("a3:d10000").ClearComments
    Sheet2.Range("a3").Resize(rw, 4) = brr
    Sheet2.Range("f1").Value = rw
    MsgBox "查询完成！"
End Sub

Qs18

试一下...............

Qs18

试一下.............

ynzsvt

了解Rng.Areas就该明白赋值只是Areas（1）。

1.    copyRange.Copy
   
2.    ws2.Range("A3:D" & xmCount + 2).PasteSpecial

复制代码

shndwf

Qs18 发表于 2024-6-23 16:19
试一下.............

感谢老师帮助！