Question

这是我正在使用的宏，它查看字段（AS），然后根据该列中的数字，它将在下面创建相同数量的行。因此，例如，如果AS有＆＃39; 4＆＃39;它将创建包含数字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

Excel宏重复/排序

1 个答案: