如何通过Worksheet_Change实现多单元格输入的批量存储？

直接把以下代码粘贴到目标工作表的模块中（右键工作表标签→查看代码），根据你的实际列位置调整代码里的列标识：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetRow As Long
    Dim lastRow As Long
    Dim watchCols As Range
    
    ' 定义需要监控的第2行单元格范围（根据实际列调整，比如B2:F2对应代理姓名到物业地址）
    Set watchCols = Me.Range("B2:F2")
    
    ' 只处理监控范围内的单元格变化，避免无关操作触发
    If Intersect(Target, watchCols) Is Nothing Then Exit Sub
    
    ' 关闭事件触发，防止复制内容时再次触发本事件
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 出错时强制恢复事件
    
    ' 找到第11行开始的第一个空行（以代理姓名所在列B为例定位最后一行）
    lastRow = Me.Cells(Me.Rows.Count, "B").End(xlUp).Row
    targetRow = IIf(lastRow < 11, 11, lastRow + 1)
    
    ' 复制第2行监控列的内容到目标空行对应列
    Me.Range("B" & targetRow & ":F" & targetRow).Value = Me.Range("B2:F2").Value
    
Cleanup:
    ' 必须恢复事件触发，否则后续Change事件会失效
    Application.EnableEvents = True
End Sub

关键调整说明 #

• 列范围修改：把代码里的B2:F2和B" & targetRow & ":F" & targetRow替换成你实际的列区间（比如代理姓名在A2就改成A2:E2）
• 空行逻辑：如果第11行及以上无数据，自动从第11行开始归档；已有数据则接在历史记录的最后一行之后
• 防死循环：Application.EnableEvents = False是核心，避免复制操作再次触发Change事件导致循环
• 错误防护：确保即使代码出错，事件触发功能也能恢复，不会影响后续操作

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