cortesemente un aiuto a correggere questa macro in quanto i dati che mi da non quadrano
ad inizio di macro è spiegato il comportamento delle applicazioni (tre for)
Grazie
- Codice: Seleziona tutto
Sub contami()
'righe e colonne impegnate
'j= conta quanti numeri sono presenti in ogni colonna ge4;ge"&last fino a 10(gn)
'conta quanti numeri ci sono per riga ge:gn"& last e li deve scrivere in colonna go
'L conta quanti numeri in colonna go con numero in ge3=0; gf3=1 ecc fino a gn e li scrive in rigo ge2 fino gn2
Application.Calculation = xlCalculationManual
Dim i As Long, Last As Long, j As Long, k As Long, L As Long
Last = Cells(Rows.Count, 5).End(xlUp).Row
For i = 4 To Last
For j = 1 To 10
Cells(1, 186 + j).Value = Application.WorksheetFunction.CountA(Range(Cells(3 + i, 186 + j), Cells(i, j)))
Next j
Next i
For i = 4 To Last
For k = 1 To 1
Cells(2, 186).Value = Application.CountIf(Range(Cells(2, 186 + k), Cells(i, j)), Cells(3, 186 + k))
Next k
Next i
For i = 4 To Last
For j = 1 To 10
Cells(2 + i, 197).Value = WorksheetFunction.CountA(Range(Cells(3 + i, 197), Cells(i, j)), Cells(3, 186 + j))
Next j
Next i
Application.Calculation = xlCalculationAutomatic
End Sub
