Dante Amor respondió:
H o l a: Te anexo la macro. El resultado quedará en la hoja "destino" Cambia los nombres de las hojas, por los nombres de tus hojas. Sub DividirColumna() 'Por.Dante Amor Set h1 = Sheets("origen") 'Hoja con datos Set h2 = Sheets("destino") 'Hoja...