Excel.скопировать текстовую строку и количество повторов в новые столбцы

Question

Учитывая два столбца (A и B), один с текстом и один с целым числом, например:

A   |   B
pen |   3
pen |   5

Как я могу заполнить столбцы C, D, E [...]с конкатенацией данной строки в каждой строке со всеми целыми числами, начиная с 1 до указанного числа?

Желаемый результат для данного примера будет:

A    |  B  |  C      |  D      |  E      |  F      |  G
pen  |  3  |  pen01  |  pen02  |  pen03  |         |
pen  |  5  |  pen01  |  pen02  |  pen03  |  pen04  |  pen05

Answer 1

Если вы ищете решение формулы, не прибегая к VBA, вы можете использовать эту формулу в C1 и перетащить в оба измерения:

=IF(COLUMNS($C1:C1)<=$B1,CONCATENATE($A1,TEXT(COLUMNS($C1:C1),"00")),"")

Answer 2

С помощью простого сабвуфера vba этого можно достичь:

Sub CreateValues
    With ActiveSheet
        Dim LastRow as Long: LastRow = .Range("A" & .Rows.Count).End(xlup).Row
        For i = 1 To LastRow
            Max_Num = .Cells(i, 2)
            For j = 1 to Max_Num
                .Cells(i, j + 2) = .Cells(i, 1) & Format(j, "00")
            Next j
        Next i
    End With
End Sub