VBA concatenar una serie de datos variables en excel

Tengo una columna con datos variables lo que deseo es que se concatenen separados por " / " cada palabra diferente de TODO 1 y TODO 2 Y termine en la de concatenar al momento que encuentre la palabra FIN, me gustaría un resultado similar al que adjunto en la imagen mediante un código por que tengo una mayor cantidad de datos para concatenar con esta misma idea, MUCHAS GRACIAS

Alguna

2 respuestas

Respuesta
1

Una manera rustica:

Sub Rustico()
Dim ConcatStr As String
Dim rCell As Range, rRng As Range
Dim uF As Long
uF = Range("A" & Rows.Count).End(xlUp).Row
Set rRng = Range("A1:A" & uF)
For Each rCell In rRng.Cells
If rCell.Value = "FIN" Then Exit For
    If Left(rCell.Value, 4) <> "TODO" And rCell.Value <> "" Then
        ConcatStr = ConcatStr & "/ " & rCell.Value
    End If
Next rCell
ConcatStr = Right(ConcatStr, Len(ConcatStr) - 2)
End Sub

:O

¡Gracias! Podrías ayudarme con esta duda

Separar un texto en varias celdas con macros Excel VBA

Respuesta
1

Prueba esta macro, el resultado lo ves en la imagen

y esta es la macro

Sub TEST()
Set DATOS = Range("A3").CurrentRegion
With DATOS
    FILAS = .Rows.Count
    For I = 1 To FILAS
       CELDA = .Cells(I, 1) Like "TODO*" Or .Cells(I, 1) = "FIN"
        If CELDA = False Then
            If I = 1 Then CONCATENA = .Cells(I, 1)
            If I > 1 Then CONCATENA = CONCATENA & "/" & .Cells(I, 1)
        End If
    Next I
    Range("C3") = CONCATENA
End With
Set DATOS = Nothing
End Sub

Gracias! Podrías ayudarme con esta duda

Separar un texto en varias celdas con macros Excel VBA

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas