Em F1 digite:
=A1 & B1 & C1 & D1 & E1
e copie para baixo.
EDIT#1:
SevocêquisermorderabalaeusarVBA,,considereesteminúsculoUDF
PublicFunctionKonKatenate(rINAsRange)AsStringDimrAsRangeForEachrInrINKonKatenate=KonKatenate&r.TextNextrEndFunction
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:
=KonKatenate(A1:Z1)
Parasabermaissobremacrosemgeral,consulte:
e
e para detalhes sobre UDFs, consulte:
As macros devem estar ativadas para que isso funcione!