Macro para hacer que unos números se repitan

[seron87]

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

[JasallBcn]

Buenas, te paso una forma

 

saludos

 

product_2023-02-19_192903.xlsm

[seron87]

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

[JSDJSD]

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

 

[Gerson Pineda]

Hola a todos

Dejo otra solución con VBA y una con fórmulas Excel 365

Repeticiones VBA - Reduce 365_GP.xlsm

[Gerson Pineda]

Y por si te interesa, una solución más con Power Query

Repeticiones Power Query - VBA - Reduce 365_GP.xlsm