根据另一个单元格中的数字在单元格中输入值

这需要两个循环。一个循环通过A列,另一个循环计数到B列的值。

Option Explicit

Public Sub WriteValues()
    With Worksheets("Sheet1")
        Dim aLastRow As Long
        aLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'get last used row in col A

        Dim dRow As Long
        dRow = 1 'start row in col D

        Dim aRow As Long
        For aRow = 1 To aLastRow 'loop through col A
            Dim bCount As Long
            For bCount = 1 To .Cells(aRow, "B").Value 'how many times is A repeated?
                .Cells(dRow, "D").Value = .Cells(aRow, "A") & "_" & bCount 'write into column D
                dRow = dRow + 1 'count rows up in col D
            Next bCount
        Next aRow
    End With
End Sub

你的要求有点缺乏细节,但这会满足你的要求。

dim i as long
with worksheets("sheet1")
    for i=1 to .cells(2, "B").value2
        .cells(.rows.count, "D").end(xlup).offset(1, 0) = .cells(2, "A").value & format(i, "\_0")
    next i
end with