谷歌表格批量复制至Excel时VBA宏报错问题求助

原宏在逐行处理时正常，但批量粘贴数千行时报错，核心原因是多单元格区域无法直接调用Text和Characters方法，同时批量操作会频繁触发事件导致循环冲突。以下是修复后的宏代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，防止循环调用
    Application.EnableEvents = False
    
    Dim cell As Range
    Dim textStr As String
    Dim indexStart As Long, indexEnd As Long
    
    ' 遍历Target中的每个单元格
    For Each cell In Target
        ' 跳过空单元格
        If cell.Value <> "" Then
            textStr = cell.Text
            indexStart = 1
            Do
                indexStart = InStr(indexStart, textStr, "[")
                If indexStart = 0 Then Exit Do
                indexEnd = InStr(indexStart, textStr, "]")
                If indexEnd = 0 Then Exit Do
                
                ' 仅对单个单元格调用Characters方法
                cell.Characters(indexStart, indexEnd - indexStart + 1).Font.Color = &HFF
                ' 移动指针，处理单元格内多个括号的情况
                indexStart = indexEnd + 1
            Loop
        End If
    Next cell
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

关键修复点 #

• 遍历单个单元格：不再直接操作整个Target区域，逐个处理每个单元格，避免多单元格调用Characters的错误
• 关闭事件触发：防止批量修改时反复触发Worksheet_Change事件，避免性能损耗和逻辑冲突
• 跳过空单元格：减少无效操作，提升处理效率
• 支持多括号文本：同一个单元格内有多个[xxx]格式的文本时，会全部着色

使用时直接替换原宏代码即可，批量粘贴数千行数据时不会再报错，且会自动为所有单元格中括号内的文本设置红色字体。

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