嗨,我是 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