`Sub Main()
'---Variables---
Dim source As Worksheet
Dim startRow As Integer
Dim num As Integer
Dim val As String
Dim i As Long
'---Customize---
Set source = ThisWorkbook.Sheets(1) 'The sheet with the data
startRow = 2 'The first row containing data
'---Logic---
i = startRow 'i acts as a row counter
Do While i <= source.Range("O" & source.Rows.Count).End(xlUp).Row
'looping until we hit the last row with a value in column E
    num = source.Range("R" & i).Value 'Get number of appearances
    val = source.Range("A" & i).Value 'Get the value
    If num > 1 Then 'Number of appearances > 1
        Do While num > 1 'Create rows
            source.Range("A" & i + 1).EntireRow.Insert 'Insert row
            num = num - 1
            i = i + 1 'Next row
        Loop
    End If
    i = i + 1 'Next row
Loop
End Sub`

</details>
# 答案1
**得分**: 1
在插入行时，从底部到顶部更容易。例如：
```lang-vb
Sub Main()
    
    Dim source As Worksheet, num As Long, c As Range
    
    With ThisWorkbook.Sheets(1) '数据所在的工作表
        '从ColO中的最后一个占用行的ColR开始
        Set c = .Cells(.Cells(.Rows.Count, "O").End(xlUp).Row, "R")
        Debug.Print "从 " & c.Address & " 开始在 '" & .Name & "' 上"
    End With
    
    Do While c.Row > 1
        num = c.Value '获取出现次数
        If num > 1 Then
            c.Offset(1).Resize(num - 1).EntireRow.Insert shift:=xlShiftDown
        End If
        Set c = c.Offset(-1)
    Loop
End Sub

在这段代码中，它确定了循环中将要处理的最后一行。如果在列 `O` 中没有数据，那么什么都不会处理。