Dividir un fichero excel, como colocar lo encabezados en cada hoja

La macro ya esta, nada más como podría hacer que cada hoja tenga los encabezados, se encuentra en la primera fila1 todos.

Ya que tengo que hacerlo manualmente todos los encabezados de la hoja.

Respuesta
2

Te anexo la macro actualizada

Sub dividir()
'Copia a una hoja nueva
'Por.Dam
    Set h1 = Sheets("original")
    For i = 2 To ActiveCell.SpecialCells(xlLastCell).Row
        Sheets.Add
        h1.Rows(1).Copy ActiveSheet.Range("A1")
        h1.Rows(i & ":" & i + 1999).Copy
        ActiveSheet.Range("A2").PasteSpecial xlAll
        i = i + 1999
    Next
End Sub

Avísame cualquier duda.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas