Especificamente para o intervalo anterior, poderia usar este código:
Sub InserirFormula()
For i = 1 To 20
Cells(i, 2).FormulaLocal = "=SOMA(SE(INT(A1:A5)=A1:A5;A1:A5;0))"
Cells(i, 2).FormulaArray = Cells(i, 2).Formula
Next
End Sub
Ou este:
Sub InserirFormula()
For i = 1 To 20
Cells(i, 2).FormulaArray = "=SUM(IF(INT(RC[-1]:R[4]C[-1])=RC[-1]:R[4]C[-1],RC[-1]:R[4]C[-1],0))"
Next
End Sub
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/05/2015 9:28 am