Calcular una columna a partir del valor de otra mediante una macro.

Hay solo un detalla}e con tu requerimiento el "-" no se puede poner porque Excel lo interpreta como fecha y causa resultados inesperados, por ello lo cambie al signo "," como ves en la imagen

y esta es la macro

Option Base 1
Sub armar_pallets()
Set datos = Range("a1").CurrentRegion
With datos
    suma = WorksheetFunction.Sum(.Columns(1))
    r = .Rows.Count
    x = 1
    For i = 2 To r
        numero = .Cells(i, 1)
        ReDim matriz(numero)
            For j = 1 To numero
                matriz(j) = x
                x = x + 1
            Next j
            .Cells(i, 2) = Join(matriz, ",")
    Next i
    Set datos = Nothing
End With
End Sub

Hola James!

Cuando ejecuto la macro me da Type Mismach en la línea

ReDim matriz(numero)

Eso pasa porque hay un texto o un letra o una fecha en vez de un numero, la macro esta diseñada para comenzar a leer datos desde la celda a1, descartando el titulo en el ciclo for haciéndolo i=2, si tus datos no comienzan en a1 solo ajusta la primera línea range("a1") por la celda donde comienzan tus datos, lo ideal era que subieras un imagen de tus datos para adaptar la macro a ellos.

Ya vi eso, y lo modifique,  mis datos empiezan en la fila 3, la columna que tengo el numero de pallets es la R y la columna donde quiero poner los valores calculados es la V

James, ya estoy más cerca de lo perfecto, cambie los números de las columnas y funciono todo, solo queda en la columna calculada que sale la, delante de cada numero ej:, 2,3 o, 1

¿Algo así?

Option Base 1
Sub armar_pallets()
r = Range("r3").CurrentRegion.Rows.Count
Set DATOS = Range("r3").Resize(r, 1)
With DATOS
    suma = WorksheetFunction.Sum(.Columns(1))
    x = 1
    For i = 2 To r
        numero = .Cells(i, 1)
        ReDim matriz(numero)
            For j = 1 To numero
                matriz(j) = x
                x = x + 1
            Next j
            .Cells(i, 5) = Join(matriz, ",")
    Next i
    Set DATOS = Nothing
End With
End Sub

Sigue poniendo la "," delante de todos los números de la columna calculada.

Ej:   ,1,2

      ,3,4

Si no pusiste esta instrucción (en negritas), te va a generar un campo en blanco al principio de cada secuencia de números y por consiguiente te va a poner una coma al principio de la secuencia, es para decirle a Excel que la matriz va a empezar a partir de 1 y no de 0.

Option Base 1
Sub armar_pallets()

¿Y cómo pongo negritas dentro del código?

Hola James,

Buen día de viernes!

Disculpa tanta molestia, pero no he encontrado como poner negritas a la instrucción Option Base 1 dentro del código de VB para poder eliminar la coma inicial.

Aleida