Excel Macro Duplicate/Sort

Question

Это макрос, который я использую, он смотрит на поле (AS), а затем в зависимости от числа в этом столбце он будет создавать то же количество строк под ним. Так, например, если AS имеет «4», он будет создавать 4 строки, содержащие номер 4.

Мне нужна поправка к этому, чтобы эти строки отображали 1-4, 2-4, 3-4, 4-4

Sub addlabels() 

Dim r As Long 

For r = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 
    If Cells(r, "AS") > 1 Then 
     Cells(r, 1).EntireRow.Copy 
     Cells(r + 1, 1).EntireRow.Resize(Cells(r, "AS").Value - 1).Insert shift:=xlDown 
    End If 
Next r 

End Sub 

Вот пример изображения, как мне нужно столбец для отображения на данный момент это просто копии с верхнего поля http://i.stack.imgur.com/p8bl8.png

Answer 1

может быть, вы можете попробовать так: Учитывая поле (» AS ") находится в ячейке a1, я использовал следующий код:

Sub addinglabels() 
Dim i As Integer 
cellvalue = ActiveSheet.Range("A1").Value 
If (cellvalue > 1) Then 
For i = 1 To cellvalue 
Cells(i + 1, 1).Value = i & "--" & cellvalue 
Next i 
End If 
End Sub