Excel VBA判断单元格是否含指定字符 避免重复添加Training-前缀

核心字符匹配逻辑说明 #

判断单元格是否包含Training-前缀有两种常用实现方式，可根据需求选择：

• Like运算符匹配（前缀精确匹配）：If Not cell.Value Like "Training-*" Then，判断单元格内容是否以Training-开头，注意必须带横杠避免误匹配TrainingTest这类不符合要求的内容
• InStr函数匹配：If InStr(1, cell.Value, "Training-", vbTextCompare) <> 1 Then，其中vbTextCompare代表不区分大小写，需要严格区分大小写可替换为vbBinaryCompare

现有代码优化 #

1. 遍历宏优化（解决效率低、重复添加问题） #

避免遍历100万行空单元格，只处理A列已使用区域，同时添加事件禁用逻辑避免触发事件死循环：

Sub AppendToExistingOnLeft()
    Dim cell As Range, usedRng As Range
    ' 仅获取A列已使用的单元格范围，大幅提升运行效率
    Set usedRng = Application.Intersect(ActiveSheet.UsedRange, Columns("A"))
    If Not usedRng Is Nothing Then
        Application.EnableEvents = False
        For Each cell In usedRng
            If cell.Value <> "" Then
                ' 精确判断是否已添加指定前缀
                If Not cell.Value Like "Training-*" Then
                    cell.Value = "Training-" & cell.Value
                End If
            End If
        Next
        Application.EnableEvents = True
    End If
    MsgBox "前缀批量添加完成"
End Sub

2. Worksheet_Change事件优化（从根源避免重复添加） #

生成ID时直接拼接前缀，不需要后续额外运行宏处理：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应B列的修改操作
    If Target.Column <> 2 Then Exit Sub
    Dim idCell As Range
    Set idCell = Target.Offset(0, -1)
    Application.EnableEvents = False
    If idCell.Value = "" Then
        ' 生成ID时直接拼接前缀，后续无需二次修改
        idCell.Value = "Training-" & (Application.WorksheetFunction.Max(Columns("A")) + 1)
    End If
    Application.EnableEvents = True
End Sub

额外说明 #

• 若不需要区分前缀大小写，可将匹配规则改为If Not LCase(cell.Value) Like "training-*" Then
• 原代码中的Max_Each_Column函数当前需求无使用场景，无其他调用需求可直接删除
• 运行宏前建议先备份工作表数据，避免误操作无法回退

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