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 de James Bond
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
Respuesta de Andy Machin
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