Crear macro sumando datos separados por coma
Hola expertos,
Soy nuevo en el foro y mi consulta es la siguiente:
Tengo la siguiente tabla con los siguientes datos en una misma columna:
HORA
-----------
526
4
3, 5, 5, 7
79
8, 3
Yo quisiera crear una macro para que sume los valores separados por coma y quede:
HORA
--------------
526
4
20
79
11
Agradecería mucho su ayuda.
Saludos
Soy nuevo en el foro y mi consulta es la siguiente:
Tengo la siguiente tabla con los siguientes datos en una misma columna:
HORA
-----------
526
4
3, 5, 5, 7
79
8, 3
Yo quisiera crear una macro para que sume los valores separados por coma y quede:
HORA
--------------
526
4
20
79
11
Agradecería mucho su ayuda.
Saludos
1 Respuesta
Respuesta de jerryeagle
1
En un modulo pega esto:
Public Function SumaC(ByVal Valor As String) As Double
Dim C() As String, i As Integer
C = Split(Valor, ",")
For i = 0 To UBound(C)
SumaC = SumaC + C(i)
Next
End Function
Sub SumaColumna()
Dim r, u As Integer
u = Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To u
If InStr(1, Cells(r, "A").Value, ",") Then
Cells(r, "A").Value = SumaC(Cells(r, "A").Value)
End If
Next
End Sub
Y ejecuta el SumaColumna
Public Function SumaC(ByVal Valor As String) As Double
Dim C() As String, i As Integer
C = Split(Valor, ",")
For i = 0 To UBound(C)
SumaC = SumaC + C(i)
Next
End Function
Sub SumaColumna()
Dim r, u As Integer
u = Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To u
If InStr(1, Cells(r, "A").Value, ",") Then
Cells(r, "A").Value = SumaC(Cells(r, "A").Value)
End If
Next
End Sub
Y ejecuta el SumaColumna
