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

shndwf

写了段代码发现查询A、B时结果正确，查询C、D时结果错误，求教，感谢！













部分代码如下：
           For i = 2 To lastRow
                If copyRange Is Nothing Then
                    If ws1.Range("C" & i).Value <> ws2.Range("D1") And _
                       ws1.Range("D" & i).Value = ws2.Range("B1") Then
                        Set copyRange = ws1.Range("A" & i & ":D" & i)
                        xmCount = xmCount + 1
                    End If
                Else
                    If ws1.Range("C" & i).Value <> ws2.Range("D1") And _
                       ws1.Range("D" & i).Value = ws2.Range("B1") Then
                        Set copyRange = Union(copyRange, ws1.Range("A" & i & ":D" & i))
                        xmCount = xmCount + 1
                    End If
                End If
            Next i

工作簿1.rar (20.76 KB, 下载次数: 11)

2024-6-23 14:58 上传

点击文件名下载附件

renkangjizhen

不就是按年度汇总某类项目吗？

EHGOOD

参考附件。

renkangjizhen

怎么搞的那么复杂？

feilanga

renkangjizhen

Sub aaa()
Dim arr, i%, k%
Sheets("记录").Select
arr = [a2].CurrentRegion
Sheets("结果").Select
[a3:d100].ClearContents
For i = 2 To UBound(arr)
If arr(i, 4) = [b1] And arr(i, 3) = [d1] Then
k = k + 1
Cells(k + 2, 1).Resize(1, 4) = WorksheetFunction.Index(arr, i, 0)
End If
Next
[f1] = k
k = 0
End Sub

renkangjizhen

跨工资表、工作部引用数据容易出错，而且尽量不用sheet1这种表格引用方法，也容易出错

shndwf

renkangjizhen 发表于 2024-6-23 15:47
跨工资表、工作部引用数据容易出错，而且尽量不用sheet1这种表格引用方法，也容易出错

学习了，感谢！

shndwf

feilanga 发表于 2024-6-23 15:41

好用，谢谢老师！

shndwf

EHGOOD 发表于 2024-6-23 15:28
参考附件。

好用，谢谢老师！