excel - 在 Excel 2010 中的循环中嵌套 if..then 时遇到问题

Question

如果这是一个简单的问题，我深表歉意，我昨天刚刚开始宏编程，自从 qBasic(或任何语言)以来就没有用 BASIC 编写过。我试图读取变量是否等于特定值，如果是，则将不同的单元格写入电子表格(如果它包含数据)。我不断收到没有 for 的 next 错误。没有第一个 if 语句就可以正常运行，有人可以帮助我吗？如果你能帮助写出值(value)而不是内容，那就太好了，但我可以在不打扰你们的情况下弄清楚这一点。感谢您帮助我走到这一步，这个网站非常宝贵。您可能会认出一些编码。

子 B920LOI()

x = 5iMaxRow = 3000

对于 iRow = 3 到 iMaxRow

If Sheets("Sheet2").Cells(iRow, "B") = "B920" Or Sheets("Sheet2").Cells(iRow, "B") = " B920" Then



    If Sheets("Sheet2").Cells(iRow, "K") > 35 And Sheets("Sheet2").Cells(iRow, "K") < 55 Then

    ' Check that cell is not empty.
    ' Copy the cell to the destination
    With Worksheets("Sheet2").Cells(iRow, "K")
    .Copy Destination:=Worksheets("920 LOI").Cells(x, "B")

    End With

    x = x + 1


    Else
        'Nothing in this cell.
        'Do nothing.

    End If

Else
        'Nothing in this cell.
        'Do nothing.

End If

下一个iRow

结束子

这是“工作版本”，谢谢。

Answer 1

您的嵌套必须匹配...“End With”需要位于 With 所在的 If block 内。