我正在尝试根据另一列值将一列值乘以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
变量似乎未使用-但这不是您的问题。