我正在尝试根据另一列值将一列值乘以100。我得到一个错误。

Sub macro1()
Dim f As Range

Set f = Range("B2:B5").Value

For i = 2 To 100000
    With Sheets("Sheet1")
        If .Range("A" & i).Value = "Pavel" Then
            .Range("B" & i).Value = f * 100
Next i
        End If
End Sub

最佳答案

如果在IF语句中then之后开始新行,则必须以End if结尾该块(现在让我们忽略行继续字符)-否则该语法无效。

所以要么做:

If 1 > 0 then
     Msgbox("True!")
End if


要么:

If 1 > 0 then Msgbox("True!")


但是不要在then之后开始新行,也不要包括End if

另外,最好将Option Explicit放在代码之前,并且f变量似乎未使用-但这不是您的问题。

10-05 21:22
查看更多