Saltar al contenido

Macro para hacer que unos números se repitan

publicado

Hola, resulta que tengo una columna con unos ids que son números y necesito que en esa fila se repita 4 veces el mismo número hacia abajo, para que luego en cada fila de cada número aparezca los números 1,2,19,61 en la columna B de cada número, existe alguna fórmula que lo pueda hacer auto?

Saludos y Gracias!

product_2023-02-19_192903.csv

Featured Replies

publicado
  • Autor

De locos! Como se hace eso me enseñarias a como puedo hacerlo, es una macro?

publicado

Otra opción

Sub Autocompleta()
    linea = 2
    With Hoja1
        For Cont = 2 To .Range("A" & Rows.Count).End(xlUp).Row
            For cont1 = 1 To 4
                .Cells(linea, 4) = .Cells(Cont, 1)
                    Select Case cont1
                Case 1
                    .Cells(linea, 5) = 1
                Case 2
                    .Cells(linea, 5) = 2
                Case 3
                    .Cells(linea, 5) = 19
                Case 4
                    .Cells(linea, 5) = 61
                End Select
                linea = linea + 1
            Next cont1
        Next Cont
    End With
End Sub

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.