Excel VBA-CountIfs-从一个电子表格移动到另一个电子表格

时间:2018-11-05 15:07:23

标签: excel vba countif

我正在为一个项目开发CountIfs公式,但遇到了一些麻烦。我正在从工作表 HR数据详细信息中提取数据,并将其粘贴到工作表 HR数据摘要中。在CountIfs公式的末尾,我有一个范围Z2:Z,其中包含工作表 HR数据摘要中的年份2017、2018、2019。我希望 HR数据摘要上的单元格C2是一个可以在任何年份自动填充的框。例如,如果将 2018 放入C2,则希望CountIfs公式提取该特定年份的数据。

Sub Linking ()

'Defining finRow
Sheets("HR Data Detail". Activate)
Dim finRow As String
finRow = Sheets("HR Data Detail").Range("A50000").End(xlUp).Row

With Sheets ("HR Data Detail")

'Division 21 Employees
    Sheets("HR Data Summary").Range("L4") = _
        Application.WorksheetFunction.CountIfs(.Range("V2:V" & finRow), ">0", _
            .Range("S2:S" & finRow), "=21", .Range("L2:L" & finRow), "=January", _
            .Range("H2:H" & finRow), "=Employee", _
            Sheets("HR Data Detail").Range("Z2:Z" & finRow), "'HR Data Summary'!C2")

1 个答案:

答案 0 :(得分:1)

假设我了解这个复杂的COUNTIFS公式的目的-

似乎问题出在最后一个范围/条件组合上。尝试更改

Sheets("HR Data Detail").Range("Z2:Z" & finRow), "'HR Data Summary'!C2")

到以下:

.Range("Z2:Z" & finRow), "=" & Sheets("HR Data Summary").Range("$C$2").Value