请求VBA代码实现Excel设置表C列新增文本时自动升序排序

你的代码无法自动触发及存在的其他问题，具体说明和修正方案如下：

1. 核心问题：未使用工作表事件宏 #

普通Sub过程不会自动触发，要实现单元格内容变化时自动执行逻辑，必须使用工作表的Worksheet_Change事件宏。这个事件会在当前工作表的单元格内容被修改时自动启动，且自带Target参数（代表被修改的单元格区域）。

你的代码里调用了Target，但普通Sub没有这个参数，直接会导致编译错误。

2. 遍历整列的效率问题与语法错误 #

你写的遍历整列C的代码存在语法错误（For Each和If写在同一行，缺少语句分隔和完整结构），而且遍历整列（104万+行）完全没必要，应该只遍历有数据的区域，大幅提升运行效率。

3. 排序范围优化 #

排序整列C会包含大量空白行，应该只针对有数据的区域排序，避免不必要的资源消耗。

修正后的代码 #

右键点击「Key」工作表标签→选择「查看代码」，删除原来的ColC过程，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim dataRng As Range
    Dim changedRng As Range
    Dim hasText As Boolean
    Dim cell As Range
    
    Set ws = Me ' 指代当前工作表（即"Key"）
    Set changedRng = Intersect(Target, ws.Columns("C:C"))
    
    ' 仅当修改的是C列时执行后续逻辑
    If Not changedRng Is Nothing Then
        Application.EnableEvents = False ' 防止排序操作触发二次事件，避免死循环
        
        ' 定义C列的数据区域（从C2开始，跳过表头）
        Set dataRng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
        
        ' 检查数据区域是否存在文本内容
        hasText = False
        For Each cell In dataRng
            If Not IsEmpty(cell.Value) And Not IsNumeric(cell.Value) Then
                hasText = True
                Exit For ' 找到一个符合条件的单元格就停止遍历
            End If
        Next cell
        
        ' 存在文本则执行排序
        If hasText Then
            With ws.Sort
                .SortFields.Clear
                .SortFields.Add Key:=dataRng, _
                    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                .SetRange ws.Range("C1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row) ' 包含表头的完整数据区域
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

关键注意点 #

• 这个事件宏必须放在「Key」工作表的代码模块中，不能放在普通模块里，否则无法自动触发。
• Application.EnableEvents = False是为了避免排序操作再次触发Worksheet_Change事件，造成死循环。
• 仅遍历有数据的区域，既修正了原代码的语法错误，又大幅提升了运行效率。

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