问如何系统地将一列中的条目复制到Excel中的另一列中

EN

Sub NameCopy()
    Dim r As Long
    Dim i As Integer
    Dim n As Integer
    Dim c As Range
    Dim lastrow As Long
    r = 1
    n = 3
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In Range("A1:A" & lastrow)
        For i = 1 To n
            Cells(r, 2).Value = c.Value
            r = r + 1
        Next i
    Next c
End Sub