修改Excel VBA宏：将单工作表文本替换功能扩展至全部工作表

以下是修改后的代码，会遍历工作簿中除对照表「Segédletek」外的所有工作表，对每个工作表的F列执行文本替换：

Sub Csere()
    Dim Csere As Range
    Dim Cserelendo As Range
    Dim CsereSzoveg As Range
    Dim ws As Worksheet ' 新增变量用于遍历工作表
    
    On Error GoTo ErrorHandler
    
    ' 只取「Segédletek」中A列有数据的单元格，避免遍历整列空值
    Set CsereSzoveg = Worksheets("Segédletek").Range("A1", Worksheets("Segédletek").Cells(Rows.Count, "A").End(xlUp))
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过对照表工作表，防止误修改
        If ws.Name <> "Segédletek" Then
            Set Cserelendo = ws.Range("F:F") ' 指向当前工作表的F列
            ' 执行替换逻辑
            For Each Csere In CsereSzoveg
                Cserelendo.Replace What:=Csere.Value, Replacement:=Csere.Offset(0, 1).Value, _
                    LookAt:=xlWhole, MatchCase:=False ' 明确匹配方式，避免部分替换
            Next Csere
        End If
    Next ws
    
    Exit Sub
ErrorHandler:
    MsgBox "替换过程中出现错误：" & Err.Description ' 新增错误提示，方便排查
    Exit Sub
End Sub

关键修改说明 #

• 新增ws变量遍历工作簿内所有工作表，替换原固定指定的「1_CSOMAGOK」工作表
• 加入判断跳过「Segédletek」工作表，避免误修改对照表数据
• 优化CsereSzoveg范围，仅取A列有实际数据的单元格，提升运行效率
• 明确Replace方法的LookAt:=xlWhole参数，确保完全匹配文本再替换（如需部分匹配可改为xlPart）
• 新增错误提示弹窗，便于定位问题

内容的提问来源于stack exchange，提问作者Nagy Máttyás