在列中填写公式会给出400错误

Question

我将在列中拆分不正确的url字符串，并且需要使用公式将其拆分为单独的列。我有一个空栏＆＃34; H＆＃34;专栏＆＃34; G＆＃34;它包含不正确的url字符串。下面你会看到我正在尝试设置＆＃34; leftURL＆＃34;到公式，然后将其复制到整个列。使用常规Excel可以正常工作，但当我尝试将其作为VBScript时，我收到400错误：

Sub formulaLeft()
Worksheets("Feed Original").Activate

Dim lngLastRow As Long
Dim leftURL As Variant
leftURL = "=IF(ISNUMBER(SEARCH('%20',G2)),(LEFT(G2,FIND('%20',G2)-1)),G2)"

Sheets("Feed Original").Range("H2").Value = leftURL
lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row

Range("H2:H" & lngLastRow).Value = leftURL
End Sub

我做错了什么？