Excel VBA 按行遍历至最后非空单元格替换指定字符问题咨询

• 性能优先优化：针对25000行+250列的大数据量，先关闭屏幕刷新、自动计算、事件触发，运行完成后再恢复，运行效率可提升数十倍
• 批量处理A列替换：无需逐行循环，直接调用Range的原生Replace方法完成A列「1;」替换为「{1;」的需求，是效率最高的实现方式
• 动态适配数据边界：通过A列最后一个非空单元格自动计算最大行号，无需手动写死固定值，适配数据增减的场景
• 逐行处理逻辑：每行从最右侧列向左查找第一个非空单元格，直接对该单元格做字符替换，自动跳过中间空白单元格，不需要遍历整行所有单元格

Sub 批量处理数据()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim lastCellInRow As Range
    
    ' 绑定目标工作表，可根据实际需求修改表名
    Set ws = ThisWorkbook.Sheets("Parse")
    
    ' ########## 性能优化设置 ##########
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    On Error GoTo ErrHandler ' 出错时自动恢复系统设置
    
    ' ########## 处理附加需求：A列全量替换 ##########
    ws.Columns("A").Replace What:="1;", Replacement:="{1;", _
        LookAt:=xlPart, MatchCase:=False
    
    ' ########## 动态获取A列最后一个有数据的行号 ##########
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' ########## 逐行处理最后一个非空单元格 ##########
    For i = 1 To lastRow
        ' 定位当前行最后一个非空单元格
        Set lastCellInRow = ws.Cells(i, ws.Columns.Count).End(xlToLeft)
        
        ' 仅当单元格最后一个字符是分号时替换为大括号，避免误改中间内容
        If Right(lastCellInRow.Value, 1) = ";" Then
            lastCellInRow.Value = Left(lastCellInRow.Value, Len(lastCellInRow.Value) - 1) & "}"
        End If
    Next i
    
    ' ########## 所有处理完成，恢复系统设置 ##########
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    MsgBox "处理完成，共处理" & lastRow & "行数据"
    Exit Sub
    
ErrHandler:
    ' 出错时恢复系统设置，避免Excel卡死
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    MsgBox "处理出错：" & Err.Description
End Sub

• 性能优化部分：关闭不必要的系统特性，是处理万级以上数据时的标准操作，避免Excel出现卡顿无响应的情况
• 行号动态计算：通过ws.Cells(ws.Rows.Count, "A").End(xlUp).Row自动获取A列最后一行数据，数据新增或减少时不需要修改代码
• 最后非空单元格定位：ws.Cells(i, ws.Columns.Count).End(xlToLeft)直接从当前行最右侧向左查找第一个有内容的单元格，自动跳过中间空白，不需要额外调用自定义函数
• 替换逻辑优化：仅替换单元格末尾的分号为右大括号，比全局替换更稳妥，不会误修改单元格中间的分号内容

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