Excel - Sumar solo un dígito en varias celdas

 
Vista:
sin imagen de perfil
Val: 3
Ha disminuido su posición en 12 puestos en Excel (en relación al último mes)
Gráfica de Excel

Sumar solo un dígito en varias celdas

Publicado por Rocío (1 intervención) el 11/06/2019 17:03:19
Buenos días! Os detallo un poco lo que me está volviendo loca desde hace un tiempo.

Tengo varias celdas en la columna B con números separados por guiones (Ej. Celda B4: 0-9-1; Celda B5: 0-9-0...) necesitaría una suma de estos números respetando los guiones, es decir: el resultado de la suma B4+B5 sería: 0-18-1, ¿esto es posible?

Adjunto Excel con el detalle. Espero que alguien pueda darme luz en este asunto, lo agradecería muchísimo.

Un abrazo!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Milton
Val: 13
Ha disminuido su posición en 9 puestos en Excel (en relación al último mes)
Gráfica de Excel

Sumar solo un dígito en varias celdas

Publicado por Milton (8 intervenciones) el 11/06/2019 19:28:10
Hola Rocío aqui una solución, saludos.

sumarconguiones

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function Sumarconguiones(celrango As Range, Separador As String) As String
   Dim intFilasRango As Integer
   Dim intColumRango As Integer
   Dim cantFilas As Integer
   Dim cantCol, nEle1, nEle2, nEle3 As Integer
   Dim CantItems As Integer
 
' Obtenemos el número de filas y columnas del rango seleccionado
 
   CantItems = 0
   intFilasRango = celrango.Rows.Count
   intColumRango = celrango.Columns.Count
 
' Recorremos las columnas del rango
  For cantCol = 1 To intColumRango
 
    ' Recorremos las filas del rango
    For cantFilas = 1 To intFilasRango
      nEle1 = nEle1 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(0))
      nEle2 = nEle2 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(1))
      nEle3 = nEle3 + CInt(Split(celrango(cantFilas, cantCol).Value, Separador)(2))
    Next cantFilas
 
  Next cantCol
 
Sumarconguiones = nEle1 & "-" & nEle2 & "-" & nEle3
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar