Excel技术需求：按Sheet1数值在Sheet2/Sheet3生成对应次数的唯一ID行

一、可行性说明 #

完全可行，只需删除原代码中用于弹窗提示的语句，保留核心的ID批量复制逻辑即可，员工操作时不会再收到任何弹窗干扰。

二、调整后的完整VBA代码 #

以下是适配需求且无弹窗的优化版本，基于工作表变更事件自动触发：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim uniqueID As String, copyCount As Integer
    Dim lastRow As Long, i As Integer
    
    ' 指定三个工作表对象
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set ws3 = ThisWorkbook.Sheets("Sheet3")
    
    ' 仅响应B2:B541和C2:C541区域的输入操作
    If Not Intersect(Target, Union(ws1.Range("B2:B541"), ws1.Range("C2:C541"))) Is Nothing Then
        ' 临时禁用事件，避免重复触发
        Application.EnableEvents = False
        
        uniqueID = ws1.Cells(Target.Row, "A").Value
        copyCount = Target.Value
        
        ' 根据输入列判断目标工作表
        If Target.Column = 2 Then ' B列对应Sheet2
            lastRow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1
            ' 批量写入ID
            For i = 1 To copyCount
                ws2.Cells(lastRow + i - 1, "A").Value = uniqueID
            Next i
        ElseIf Target.Column = 3 Then ' C列对应Sheet3
            lastRow = ws3.Cells(ws3.Rows.Count, "A").End(xlUp).Row + 1
            ' 批量写入ID
            For i = 1 To copyCount
                ws3.Cells(lastRow + i - 1, "A").Value = uniqueID
            Next i
        End If
        
        ' 恢复事件监听
        Application.EnableEvents = True
    End If
End Sub

三、关键调整要点 #

• 移除弹窗：直接删除原代码中所有以MsgBox开头的语句（比如原代码可能存在的MsgBox "复制完成"）
• 事件防循环：加入Application.EnableEvents = False/True，避免修改单元格时反复触发代码
• 范围精准控制：仅对B2:B541和C2:C541区域的输入做出响应，避免无关操作触发逻辑

四、操作步骤 #

1. 打开目标工作簿，按下Alt + F11打开VBA编辑器
2. 在左侧项目栏找到Sheet1，双击打开其代码编辑窗口
3. 将上述代码粘贴进去，替换原有的VBA代码
4. 保存工作簿为启用宏的工作簿（.xlsm格式）
5. 后续在Sheet1的B/C列输入数字时，会自动在对应工作表批量生成ID，全程无弹窗

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