Dante Amor respondió:
H o l a: Te anexo la macro. Pon tus datos en la "Hoja1" en la columna "A". En la "Hoja2" te pondrá los resultados. Sub ExtraerDatos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear col = "A" una = False For i = 1...