编译错误

dsyxr903

Dim i%, j%, ar
ar = [a1:as19]
ReDim br(1 To UBound(ar), 1 To 32)
For i = 5 To UBound(ar)
   If Trim(ar(i, 2)) = "" Then GoTo line
        n = n + 1

        For j = 13 To 18  
            br(n, j - 12) = ar(i, j)
        Next j

        For j = 20 To 24
            br(n, j - 12) = ar(i, j)
        Next j

        br(n, 14) = ar(i, 26)

        For j = 34 To 40  
            br(n, j - 12) = ar(i, j)
        Next j

        For j = 42 To 44  
       br(n, j - 12) = ar(i, j)
        Next j
    End If

Next i
line:
With Sheets("流水")
    ws = .Cells(Rows.Count, 3).End(xlUp).Row + 1
    .Cells(ws, 1).Resize(UBound(ar), 32) = br
End With

老师帮忙看看，编译时提示：End If 没有If块。这是哪时出了问题？

maditate

If Trim(ar(i, 2)) = "" Then GoTo line
  语句……
End If


If 语句没有你上面这种写法的。
If Trim(ar(i, 2)) = "" Then
  GoTo line
Else  
   语句……
End If

dsyxr903

maditate 发表于 2019-10-3 11:18
If Trim(ar(i, 2)) = "" Then GoTo line
  语句……
End If

多谢指点

microyip

dsyxr903

microyip 发表于 2019-10-3 14:09

感谢老师的指点，受教了