Excel宏重复/排序

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