excel错误1004无法获取工作表function类的countifs属性出现

你好，我真的希望有人能帮助我。 我想在VBA中使用countifs使用3个标准，并有这个脚本

Sub Count() Dim DateSmall As Date Dim DateBig As Date Dim Company As String DateSmall = CDate(Sheet2.Range("C28")) DateBig = CDate(Sheet2.Range("E28")) Company = Sheet2.Range("B28").Value Set rGo = Sheet1.Range("E10", Sheet1.Range("E" & Rows.Count).End(xlUp)) Set rCompany = Sheet1.Range("C10", Sheet1.Range("C" & Rows.Count).End(xlUp)) CountIn = Application.WorksheetFunction.CountIfs(rGo, ">=" & DateSmall, rGo, "<=" & DateBig, rCompany, Company) MsgBox CountIn End Sub 

但它得到错误1004，但是当我使用2条件使用相同的脚本，我可以这是使用2条件的脚本

 Sub Count() Dim DateSmall As Date Dim DateBig As Date DateSmall = CDate(Sheet2.Range("C28")) DateBig = CDate(Sheet2.Range("E28")) Set rGo = Sheet1.Range("E10", Sheet1.Range("E" & Rows.Count).End(xlUp)) CountIn = Application.WorksheetFunction.CountIfs(rGo, ">=" & DateSmall, rGo, "<=" & DateBig) MsgBox CountIn End Sub 

我希望someona可以帮助我。 。 。

 Sheet 1 02-Oct-14 SSI 02-Oct-14 SSI 02-Oct-14 SSI 03-Oct-14 SSI 03-Oct-14 SSI 03-Oct-14 SSI 07-Oct-14 SSI 07-Oct-14 SSI 07-Oct-14 SCI 03-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 03-Oct-14 SSI 07-Oct-14 SCI 02-Oct-14 JSU 02-Oct-14 JSU 30-Sep-14 JSU Sheet 2 SSI 1-Jan-14 10-Jan-16 

Answer 1

我认为原因是rGO和rCompany的范围是不同的。

重要提示：每个附加范围必须具有与criteria_range1参数相同数量的行和列。 范围不必是彼此相邻的。

有关更多详细信息，请参阅https://support.office.com/zh-cn/article/COUNTIFS-function-dda3dc6e-f74e-4aee-88bc-aa8c2a866842

希望这个帮助。

Answer 2

 Sheet 1 02-Oct-14 SSI 02-Oct-14 SSI 02-Oct-14 SSI 03-Oct-14 SSI 03-Oct-14 SSI 03-Oct-14 SSI 07-Oct-14 SSI 07-Oct-14 SSI 07-Oct-14 SCI 03-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 06-Oct-14 SSI 03-Oct-14 SSI 07-Oct-14 SCI 02-Oct-14 JSU 02-Oct-14 JSU 30-Sep-14 JSU sheet 2 SSI 1-Jan-14 10-Jan-16