Macro para sumar una columna

Es posible hacer una macro para que sume todas las celdas de una columna (Columna A ) que contenga números, donde el límite de los datos pueden variar, pero además hay un inconveniente, la columna puede tener celdas con texto.

3 respuestas

Respuesta
2

Aquí otra opción a considerar:

Sub test2()
  MsgBox [sum(A:A)]
End Sub
Respuesta
1

Prueba con esto, la sumatoria queda al final de los datos contenidos en la columna A

Sub suma()
Dim fin As String
fin = Range("A" & Rows.Count).End(xlUp).Row
fin = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & fin + 1) = WorksheetFunction.Sum(Range("A2:A" & fin))
End Sub

Respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas