vba代码的问题8？

Sub 提取当月数据()
Dim name As String
name = Range("a3") & "月"

If MsgBox("确认要提取 " & Range("a3") & " 当前月份数据吗？", vbInformation Or vbOKCancel) = vbOK Then

Sheets("主表").Visible = True
Sheets("主表").Select
Range("A8:R1800").Select
Selection.Copy
Sheets(name).Visible = True
Sheets(name).Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = False
Dim i As Integer
For i = 8 To 1800
If Cells(i, 9) = "" And Cells(i, 11) = "" And Cells(i, 13) = "" And Cells(i, 15) = "" And Cells(i, 17) = 0 Then Rows(i).Hidden = True

Next i
Application.ScreenUpdating = True

End If


End Sub
这段代码中我感觉少了一个END IF可我添加上后，会显示错误提示，这样反而对。为什么呢，请高手帮忙说一下为什么，谢谢！！！

呵呵，你中间加了我给你的代码。

第一，请将Application.ScreenUpdating = False放到sub后的第一句，这样你前面的取消隐藏表格和选择表格也“幕后”操作了。

第二，我给你的IF语句已经是完整的了，不需要再加End IF了。下面标准的才需要End IF

IF 判断语句 Then

xxx

Else

xxx

End IF



我写代码属于野路子，语句越简单越好。

你的代码中有两个IF

其中的一个是If MsgBox......中的,它与最后面的一个END IF对应

另一个是If Cells(i, 9) ......中的,你可能认为少了一个就是在于此.此处不能加的原因是因为你的THEN后面直接加了Rows(i).Hidden = True的代码,此时就成了IF...... THEN......的语句了

若把Rows(i).Hidden = True放于下面的一行中,即其前面的THEN后面进行换行了,就要加上END IF了