Se você tiver uma versão recente do Excel, em E2 , insira a matriz de matriz :
=TEXTJOIN(",",TRUE,ROW(INDIRECT(C2 & ":" & D2)))
e copie:
FórmulasdematrizdevemserdigitadascomCtrl+Deslocar+EnteremvezdeapenasoEnterTecla.
Casocontrário,insiraaseguintefunçãodefinidapelousuárioemummódulopadrão:
PublicFunctionCSList(n1AsLong,n2AsLong)AsStringDimiAsLongFori=n1Ton2CSList=CSList&"," & i
Next i
CSList = Mid(CSList, 2)
End Function
Então, em E2 , digite:
=CSList(C2,D2)
e copie:
FunçõesDefinidaspeloUsuário(UDFs)sãomuitofáceisdeinstalareusar:
- ALT-F11exibeajaneladoVBE
- ALT-IALT-Mabreumnovomódulo
- coleomaterialefecheajaneladoVBE
Sevocêsalvarapastadetrabalho,aUDFserásalvacomela.SevocêestiverusandoumaversãodoExcelposteriora2003,deverásalvaroarquivocomo.xlsmemvezde.xlsx
PararemoveroUDF:
- abrirajaneladoVBEcomoacima
- limpeocódigo
- fecheajaneladoVBE
ParausaroUDFdoExcel:
=CSList(A1,B1)
Parasabermaissobremacrosemgeral,consulte:
e
e para detalhes sobre UDFs, consulte:
As macros devem estar ativadas para que isso funcione!