Digamos que temos dados como este na coluna A :
ExecutandoestamacroVBA:
SubGatherUniques()DimNAsLong,clAsCollectionDimiAsLongSetcl=NewCollectionN=Cells(Rows.Count,"A").End(xlUp).Row
On Error Resume Next
For i = 1 To N
st = Replace(Cells(i, 1).Text, " ", "")
ary = Split(st, ",")
For Each a In ary
cl.Add a, CStr(a)
Next a
Next i
On Error GoTo 0
st = cl.Item(1)
For i = 2 To cl.Count
st = st & "," & cl.Item(i)
Next i
Range("B1").Value = st
End Sub
produzirá:
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!