嘿，作为VBA新手能找到基础排序代码已经很棒了！咱们来一步步修改代码，实现Main Sheet输入数据时整行自动排序+同步所有其他工作表的需求，解决你遇到的B/C列不同步的问题。

核心问题分析 #

你原来的代码只处理了当前工作表的排序，但没有同步逻辑；而且直接引用单元格容易导致列错位，正确的做法是复制整行数据区域到其他工作表，确保姓名和对应列数据完全绑定。

修改后的完整代码 #

把这段代码粘贴到你的「Main Sheet」的工作表代码模块里（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ' 仅处理A列的输入/修改操作
    If Target.Column <> 1 Then Exit Sub
    
    Dim wsMain As Worksheet
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    Set wsMain = Me ' 指代当前的Main Sheet
    
    ' 禁用事件触发，避免排序操作重复触发Change事件导致循环
    Application.EnableEvents = False
    
    ' 错误处理：确保即使出错也能恢复事件功能
    On Error GoTo Cleanup
    
    ' 获取Main Sheet中A列最后一行有数据的行号
    lastRow = wsMain.Cells(wsMain.Rows.Count, 1).End(xlUp).Row
    ' 如果只有表头（没有数据行），直接退出
    If lastRow < 2 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    
    ' 定义要排序和同步的整行数据区域（从A2到BN列最后一行）
    Set dataRange = wsMain.Range("A2:BN" & lastRow)
    
    ' 对Main Sheet的整行数据按A列升序排序
    dataRange.Sort _
        Key1:=wsMain.Range("A2:A" & lastRow), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows ' 明确按行排序，保证整行跟随A列排序
    
    ' 同步排序后的数据到其他所有工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> wsMain.Name Then ' 跳过Main Sheet本身
            ' 清空目标工作表的旧数据（保留表头，从A2开始清除）
            ws.Range("A2:BN" & ws.Rows.Count).ClearContents
            ' 复制Main Sheet的整行数据到目标工作表的A2位置
            dataRange.Copy Destination:=ws.Range("A2")
        End If
    Next ws

Cleanup:
    ' 恢复事件触发功能，不影响后续操作
    Application.EnableEvents = True
    ' 如果出错，弹出提示
    If Err.Number <> 0 Then
        MsgBox "操作出错：" & Err.Description, vbExclamation
    End If
End Sub

关键代码解释 #

• 禁用事件：Application.EnableEvents = False是必须的——排序会修改单元格内容，会再次触发Worksheet_Change事件，不加这行可能导致无限循环。最后一定要在Cleanup部分恢复事件。
• 整行排序：Orientation:=xlSortRows明确告诉Excel按行排序，确保A列排序时，对应的B/C/...BN列整行数据跟着移动，不会错位。
• 同步逻辑：遍历所有工作表，跳过Main Sheet本身，先清空目标表的旧数据（从A2开始，保留表头），再复制排序后的整行数据过去，这样其他表的姓名和对应列数据完全同步。
• 错误处理：On Error GoTo Cleanup保证即使代码出错，也能恢复事件功能，避免后续无法触发输入事件。

注意事项 #

1. 确保所有其他工作表的表头结构和Main Sheet完全一致，数据都是从A2行开始存放。
2. 如果需要保留单元格格式（比如颜色、边框），可以把dataRange.Copy Destination:=ws.Range("A2")改成：

   dataRange.Copy
   ws.Range("A2").PasteSpecial xlPasteAll ' 粘贴所有内容（数据+格式）
   Application.CutCopyMode = False ' 清除复制状态
   

3. 测试时，在Main Sheet的A列输入新姓名，检查是否自动排序，再打开其他工作表确认整行数据是否同步更新。

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