失踪 ;在声明之前。 （第1行，文件＆＃34;代码＆＃34;）

Question

我似乎无法找到解决此问题的方法

  

失踪;在声明之前。 （第1行，文件＆＃34;代码＆＃34;）

所以这是我的代码：

Sub SearchMacro ()

Dim LR As Long, i As Long
With Sheets("M-List")
LR = .Range("T2" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With .Range("T2" & i)
        If .Value = sheets("JAN!).Range("D158").Value = sheets("M-List").Range("N2").Value Then

        Sheets("M-List").Range("T2").Value = Sheets("JAN!").Range("H158").Value

        End If
    End With
 Next i
End With

End Sub

Answer 1

问题在于您的第一个If语句，它应该以{{1​​}}

开头

您在工作表名称的末尾缺少双引号。

Answer 2

除了缺少＆＃34;之外，您的代码中似乎存在双重分配的问题

  If .Value = sheets("JAN!).Range("D158").Value = sheets("M-List").Range("N2").Value Then

如果您要将M-List!T2#（其中＃从1到X）与JAN!D158进行比较，请使用此代码

If .Value = sheets("JAN").Range("D158").Value Then`

但如果您要比较JAN！D158 = M-List！N2，那么请使用此代码

If sheets("JAN").Range("D158").Value = sheets("M-List").Range("N2").Value Then`