¿Sacar paréntesis y dejar numero?
En la primer columna tengo 2 números entre paréntesis y entre ellos hay una barra recta que los divide, ejemplo: (-35|107)?, yo necesito que en la segunda columna quede el primer numero solo -35 y en la tercer columna quede el otro numero 107, ¿como puedo hacer? Tengo miles de cálculos asi.
1 respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución. Posiciónate en la primera celda de esa columna y ejecuta esta macro:
Sub partir() Do While ActiveCell.Value <> "" valor = ActiveCell.Value fila = ActiveCell.Row tope = Len(valor) For x = 1 To tope extrae = Mid(valor, x, 1) If extrae = "-" Or IsNumeric(extrae) Then lista = lista & extrae End If If extrae = "|" Then Cells(fila, 2).Value = lista lista = "" End If If extrae = ")" Then Cells(fila, 3).Value = lista lista = "" End If Next ActiveCell.Offset(1, 0).Select fila = fila + 1 Loop End Sub
recuerda finalizar y puntúar
