Digamos que temos duas listas como:
equeremosgerartodasascombinaçõesdasduaslistas.Executandoestamacro:
SubgenerateCombinations()DimnAAsLong,nBAsLong,KAsLong,iAsLong,jAsLongDimrcAsLongrc=Rows.CountnA=Cells(rc,"A").End(xlUp).Row
nB = Cells(rc, "B").End(xlUp).Row
K = 1
For i = 1 To nB
vb = Cells(i, "B").Value
For j = 1 To nA
Cells(K, "C").Value = vb & " " & Cells(j, "A").Value
K = K + 1
Next j
Next i
End Sub
produzirá na coluna C :
Asmacrossãomuitofáceisdeinstalareusar:
- ALT-F11exibeajaneladoVBE
- ALT-IALT-Mabreumnovomódulo
- coleomaterialefecheajaneladoVBE
Sevocêsalvarapastadetrabalho,amacroserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx
Pararemoveramacro:
- abrirajaneladoVBEcomoacima
- limpeocódigo
- fecheajaneladoVBE
ParausaramacrodoExcel:
- ALT-F8
- Selecioneamacro
- ToqueemEXECUTAR
Parasabermaissobremacrosemgeral,consulte:
e
As macros devem estar ativadas para que isso funcione!