我是一个VB初学者，自己写了一个宏如下：Sub 宏1()
If Sheet1.Cells(84, 3) = "转入" Then Sheet1.Cells(1, 1) = 1
ElseIf Sheet1.Cells(84, 3) = "存款" Then Sheet1.Cells(1, 1) = 1
Else: Sheet1.Cells(1, 1) = 1
End If
End Sub
运行这个宏时总出现“编译错误 else没有if”请问一下问题出在哪？谢谢

多行结构
把then 后面部分挪到下一行（独占一行）

你知道Else后面为什么会有冒号吗？这其实就是在提示你，块If结构的Else后面是不能有语句的，需要另起一行，VB帮你用冒号代替了换行；同理，Then后面也不能有语句，必须要换行，而且这个换行就不能用冒号代替了