VBA:编译错误:尝试使用 Cell.Replace VBA 代码时出现语法错误

VBA:编译错误:尝试使用 Cell.Replace VBA 代码时出现语法错误

嗨,我是 VBA 新手,我创建了一个代码来格式化我的表格,但在尝试运行它时,我收到错误“编译错误:语法错误”。我尝试查看代码,但似乎找不到问题所在。

当我尝试运行它时,第一个 Cell.Replace 部分以红色突出显示。

任何帮助都值得感激。谢谢。

Sub TableFormat()

    Cells.Replace What:="xl", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False _
        , FormulaVersion:=xlReplaceFormula2
    Cells.Replace What:="£", Replacement:="GBP", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        Range("A1").Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Clear

    Columns("A:A").Delete
    Range("A1").Select


End Sub

相关内容