由于许多IF，Excel VBA错误“Next Without”
我有下面的代码和VBA给我一个“下一个没有为”错误，当我肯定都有。 我在网上查了一下，明白是因为很多ifs，有人能告诉我我的问题在哪里吗？
我有3个workbboks，我希望每行将被剪切并复制到正确的工作簿中按照第一列中的nimber。
Dim i As Integer Dim RowTable As Integer RowTable = Sheets(3).Range("A1", (Range("A1").End(xlDown))).Rows.count 'loop For i = 2 To RowTable 'SORTING DATA TO WORKBOOKS 'Oren, Karin, Noam 'Oren If Selection.Value = 1 Then Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If Else 'Karin If Selection.Value = 2 Then Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If Else 'Noam If Selection.Value = 3 Then Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If End If 'next row mainWB.Activate Sheets(3).Range("I2").End(xlDown).Select 'i do the same procedure in the indirect manager workbooks as i did in the first workbook 'i will copy the names to a differen range and then remove duplicates 'then i will have a list of direct managers in each wb 'and i will name ech direct manager as a number and open a worksheet based on his name Next VBA打算通过支持缩进来帮助避免这样的错误。 你应该尝试实现的逻辑如下所示：
For n = 1 to 10 If 1 <> 2 Then 'enter code here Else Do ' enter code here Loop While 0 <> 0 End If Next n
我已经根据上述原则重新安排了您的代码。 这是结果。
Private Sub FormattedCode() Dim i As Integer Dim RowTable As Integer RowTable = Sheets(3).Range("A1", (Range("A1").End(xlDown))).Rows.Count 'loop For i = 2 To RowTable 'SORTING DATA TO WORKBOOKS 'Oren, Karin, Noam If Selection.Value = 1 Then ' Oren Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) End If ' this I inserted Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If ' Else ' this is illegal here If Selection.Value = 2 Then 'Karin Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) End If ' this I inserted Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If ' Else ' this is illegal here If Selection.Value = 3 Then ' Noam Selection.EntireRow.Cut WB1.Activate WB1.Sheets(1).Range("A1").Offset(1, 0).Select If Selection.Value = "" Then Selection.PasteSpecial (xlPasteValues) End If ' this I inserted Else Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) End If ' End If ' superfluous 'next row mainWB.Activate Sheets(3).Range("I2").End(xlDown).Select 'i do the same procedure in the indirect manager workbooks as i did in the first workbook 'i will copy the names to a differen range and then remove duplicates 'then i will have a list of direct managers in each wb 'and i will name ech direct manager as a number and open a worksheet based on his name Next End Sub