Question

EXCEL 这段VBA代码的错误在哪里

我自己编写了这段代码统计各班人数Sub 各班人数()Dim a1!, b1!, c1!For i = 1 To 44If Cells(i, 1) = "1" Thena1 = a1 + 1If Cells(i, 1) = "2" Thenb1 = b1 + 1If Cells(i, 1) = "3" Thenc1 = c1 + 1Next iSheet1.Cells(1, 3) = a1Sheet1.Cells(1, 4) = b1Sheet1.Cells(1, 5) = c1End Sub结果提示如下，错在哪里呢？FOR 有NEXT 啊！

Answer 1

你的问题不是因为没有Next，而是If没有对应的End If。解决方法：
1、在每个If的内容语句的下面，加一行 End If
2、把每个If语句的内容语句，接在 Tnen 后面，不要换行（这样可以不要 End If）。

Answer 2

条件语句错，改成如下方式试试

if 条件1
命令1
elseif 条件2
命令2
elseif 条件3
命令3
end if