![]() |
|
#9
|
|||
|
|||
|
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
|
|
|
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 |