我的公式在工作表中使用时似乎可以正常工作，但是当我尝试使用代码输入公式时，它会返回编译错误。我知道添加双引号可以解决大部分问题。我现在遇到了 # 和 @ 符号的问题。@ 符号现在会返回一个“无效字符”错误。
任何帮助将非常感激！
Sub enterformulas()
Worksheets("Cleaning").Range("B2").Formula = "=TRIM(A2)"
Worksheets("Cleaning").Range("C2").Formula = "=IFERROR(LEFT(B2,SEARCH("" "", B2)-1),"")"
Worksheets("Cleaning").Range("D2").Formula = "=IFERROR(TRIM(REPLACE(REPLACE(A2,SEARCH(E2,A2),LEN(E2),""),1,LEN(C2),"")),"")"
Worksheets("Cleaning").Range("E2").Formula = "=IFERROR(RIGHT(B2, LEN(B2) - SEARCH(""#"", SUBSTITUTE(B2,"" "", ""#"", LEN(B2) - LEN(SUBSTITUTE(B2, "" "", ""))))),B2)"
Worksheets("Cleaning").Range("G2").Formula = "=TRIM(F2)"
Worksheets("Cleaning").Range("H2").Formula = "=IFERROR(SUBSTITUTE(SUBSTITUTE(TRIM(RIGHT(SUBSTITUTE(LEFT(G2,FIND("" "",G2&"" "",FIND("@",G2))-1),"" "",REPT("" "",LEN(G2))),LEN(G2))),"[",""),"]",""),"")"
End Sub
