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

如果有人做过类似的事情，请帮助。 我要找的是一个宏，它查看我的A2值，并根据值B在D列中复制该值，后面加上“u”（下划线）

---

您的请求缺少详细信息，但这将满足您的要求

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

---

你需要2个循环来完成这个。一个循环通过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

---

到目前为止你尝试了什么？请回答您的问题并添加您的代码。我认为您需要第二个循环来循环a列以获得所需的结果。“。。。查看我的A2值并将其复制到D列…^^^是的，确定。他可能问错了问题。谢谢。很抱歉，我赶时间完成指定的工作，因此我无法详细解释，但您的解决方案非常有效。谢谢