Countifs

Hi Stuart,

Thank you for the forum question.

If you work with large datasets, there is only one good solution. You will have to use arrays.

You cannot use Countif in arrays but you can count how many times you have a match.

I have attached an example workbook. You may be need to be a little patient. If you cannot see the attachment wait 10 minutes and refresh your browser.

In the example I have 3 worksheets. I count on list 3 how many times I have the ID on list 1 and 2.

I use the code below, but you will also find it in the attached file.


Option Explicit

Sub FindDupl()
Dim ListOneArray As Variant
Dim ListTwoArray As Variant
Dim ListCountResult As Variant
Dim lListRowcount As Long


ListOneArray = Sheet1.Range("a1").CurrentRegion.Columns(1)
ListTwoArray = Sheet2.Range("a1").CurrentRegion.Columns(1)
ListCountResult = Sheet3.Range("a1").CurrentRegion.Columns(1)

ReDim Preserve ListCountResult(1 To UBound(ListCountResult, 1), 1 To UBound(ListCountResult, 2) + 2)


For lListRowcount = 2 To UBound(ListCountResult, 1)
ListCountResult(lListRowcount, 2) = Application.Count(Application.Match(ListCountResult(lListRowcount, 1), ListOneArray, 0))
ListCountResult(lListRowcount, 3) = Application.Count(Application.Match(ListCountResult(lListRowcount, 1), ListTwoArray, 0))
Next lListRowcount

Sheet3.Range("b1").Resize(UBound(ListCountResult, 1), 1) = Application.Index(ListCountResult, , 2)
Sheet3.Range("c1").Resize(UBound(ListCountResult, 1), 1) = Application.Index(ListCountResult, , 3)


End Sub



I hope it makes sense


Kind regards

Jens Bonde
Microsoft Office Specialist Trainer

Tel: 0207 987 3777
STL - https://www.stl-training.co.uk
98%+ recommend us

London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector