Sum Frequencies in VBA in Excel

SailorJerry7030 · #10 04-30-2018, 10:02 AM

Quote:

Originally Posted by NoSparks

Using NBVC's formula, adjusted for the columns you actually want, and the sample workbook you posted over there....see if this works

Code:

Sub Clusters()
Dim lr As Long
With Sheets("Sheet3")
    lr = .Cells(2, "A").End(xlDown).Row
    .Range("Q2").FormulaArray = "=SUM(--((FREQUENCY(IF(B2:M2>0, COLUMN(B2:M2)),IF(B2:M2=0,COLUMN(B2:M2))))>1))"
    .Range("Q2").AutoFill Destination:=Range("Q2:Q" & lr)
End With
End Sub

Perfect! I was having difficulty fitting that formula into the code, but this does it!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word & Excel 2010 - Best Options To Auto Insert MySQL & Excel Data?	Hoser	Word	1	03-17-2017 03:47 PM
Embeding Excel Docs in Word - Receiving Memory Error Message if Excel is open	kdash	Word	0	05-06-2015 09:38 AM
How To Open an Macro From 2003 Excel in 2013 Excel Spread Sheet?	ADubin	Excel Programming	3	02-08-2015 04:57 AM
[Excel 2007] Building Power Point Slides from data in an Excel Table	bremen22	Excel Programming	1	08-07-2013 11:01 AM
Excel 2011 can't open old Excel 98 or Excel X files	FLJohnson	Excel	8	05-09-2012 11:26 PM