Excel：如何按指定单元格数值批量生成对应数量的资产标签？

嘿，我太懂那种卡了一下午差点放弃的挫败感了！别担心，针对你这个「根据Sheet1产品数量自动在Sheet2生成对应资产标签」的需求，不管用纯公式还是VBA都能轻松搞定，我给你分两种方案一步步讲：

这种方法适合不想碰VBA的新手，操作简单：

• 第一步：假设你的产品代码在Sheet1的A列（从A2开始，A1是表头），直接在Sheet2的B2单元格（B1设为「资产标签」表头）输入公式：
  =IF(ROW()-1<=COUNTA(Sheet1!A:A)-1, INDEX(Sheet1!A:A, ROW()), "")
  👉 公式解释：COUNTA(Sheet1!A:A)-1会自动算出Sheet1里产品的总数量（减1是排除表头）；ROW()-1对应当前行的序号（因为从B2开始，第一行标签对应Sheet1的A2）；如果当前行序号≤产品总数，就从Sheet1取出对应产品代码，否则留空。
• 第二步：选中B2单元格，把鼠标移到单元格右下角的填充柄（那个小方块），双击它！Excel会自动填充到刚好匹配产品数量的行，超出的行自动显示空值，完美适配。

如果以后经常要做这个操作，用VBA能省很多事：

• 第一步：按Alt + F11打开VBA编辑器，右键点击左侧的工作簿名称，选择「插入」→「模块」。
• 第二步：把下面的代码粘贴进模块里：

Sub GenerateAssetTags()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long
    
    ' 指定工作表，可根据实际修改名称
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 清空Sheet2之前的标签数据（保留表头）
    ws2.Range("B2:B" & ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row).ClearContents
    
    ' 获取Sheet1中产品代码的最后一行
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 循环生成对应资产标签
    For i = 2 To lastRow
        ws2.Cells(i, "B").Value = ws1.Cells(i, "A").Value
    Next i
    
    MsgBox "资产标签已生成完成！", vbInformation
End Sub

• 第三步：回到Excel界面，按Alt + F8，选择GenerateAssetTags这个宏，点击「执行」，瞬间就能完成标签生成！
  👉 小提示：如果你的产品代码不在A列，或者Sheet2要生成标签的列不是B列，只要修改代码里的列字母就行（比如把"A"改成"C"，"B"改成"D"）。

内容的提问来源于stack exchange，提问作者Pippo