Buona giornata, a Tutti;
molto interessante la soluzione di @locatevaresino, che saluto e merita un "Mi piace".
Molto indegnamente mi permetto di suggerire un controllo anche sulla Colonna "C"; vuoi mai che oltre alle "pere" ci scappi anche qualche "mela"?
Voglio dire, l'istruzione:
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R1C1:RC1=RC1)*(R1C2:RC2=RC2)*(R1C4:RC4=RC4))"
Proporrei di modificarla in:
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R1C1:RC1=RC1)*(R1C2:RC2=RC2)*(R1C3:RC3=RC3)*(R1C4:RC4=RC4))"
A disposizione.
Buon Lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013