Anónimo
Crear macro para combinar celdas
Buenas,
Necesito realizar todas las combinaciones posibles entre las celdas de tres columnas.
Ejemplo:
Columna 1:A,B,C,D,E.
Columna 2:F,G,H,I.
Columna 3:J,K,L.
El resultado sería algo así:
AFJ
AFK
AFL
AGJ
... Hasta realizar todas las combinaciones posibles.
Saludos,
Necesito realizar todas las combinaciones posibles entre las celdas de tres columnas.
Ejemplo:
Columna 1:A,B,C,D,E.
Columna 2:F,G,H,I.
Columna 3:J,K,L.
El resultado sería algo así:
AFJ
AFK
AFL
AGJ
... Hasta realizar todas las combinaciones posibles.
Saludos,
1 respuesta
Respuesta de caranbis
1
'tomando en cuenta que la columna 1 se refiere a la A
' la 2 a la B
' la 3 a la C
'...las combinaciones se colocan en la columna D
'el código sería:
Sub GENERARCOMBINACIONES()
Dim Col1 As Double
Dim Col2 As Double
Dim Col3 As Double
Dim Contador As Double
Col1 = 1
Col2 = 1
Col3 = 1
Contador = 1
While Cells(Col1, 1) <> ""
While Cells(Col2, 2) <> ""
While Cells(Col3, 3) <> ""
Cells(Contador, 4) = Cells(Col1, 1) & Cells(Col2, 2) & Cells(Col3, 3)
Contador = Contador + 1
Col3 = Col3 + 1
Wend
Col3 = 1
Col2 = Col2 + 1
Wend
Col2 = 1
Col1 = Col1 + 1
Wend
MsgBox "Combinaciones generadas: " & Contador - 1
End Sub
' la 2 a la B
' la 3 a la C
'...las combinaciones se colocan en la columna D
'el código sería:
Sub GENERARCOMBINACIONES()
Dim Col1 As Double
Dim Col2 As Double
Dim Col3 As Double
Dim Contador As Double
Col1 = 1
Col2 = 1
Col3 = 1
Contador = 1
While Cells(Col1, 1) <> ""
While Cells(Col2, 2) <> ""
While Cells(Col3, 3) <> ""
Cells(Contador, 4) = Cells(Col1, 1) & Cells(Col2, 2) & Cells(Col3, 3)
Contador = Contador + 1
Col3 = Col3 + 1
Wend
Col3 = 1
Col2 = Col2 + 1
Wend
Col2 = 1
Col1 = Col1 + 1
Wend
MsgBox "Combinaciones generadas: " & Contador - 1
End Sub