Excel VBA: 根据A列数值重复填充B列

在Excel中，可以使用以下VBA代码来生成B列的重复序列：

Sub GenerateBColumn()
    Dim ws As Worksheet
    Dim aRange As Range
    Dim bRange As Range
    Dim aCell As Range
    Dim bCell As Range
    Dim aValue As Integer
    Dim i As Integer
    
    ' 设置工作表和区域
    Set ws = ActiveSheet
    Set aRange = ws.Range("A1:A3")
    Set bRange = ws.Range("B1")
    
    ' 清空B列
    ws.Range("B:B").ClearContents
    
    ' 逐个复制A列的值到B列
    For Each aCell In aRange
        aValue = aCell.Value
        For i = 1 To aValue
            Set bCell = bRange.Offset(i - 1)
            bCell.Value = aValue
        Next i
        Set bRange = bRange.Offset(aValue)
    Next aCell
End Sub

将以上代码复制到Excel的VBA编辑器中（按下Alt + F11打开编辑器），然后运行GenerateBColumn子过程即可生成B列的重复序列。