求助

vba轻松解决

乙料1异常为什么乙料4正常，都按异常来处理
Option Explicit
Sub 按条件筛选表格()
　Dim a, i, j
　With Sheets("sheet2")
　　.Cells.Clear
　　Sheets("sheet1").[a1].CurrentRegion.Copy .[a1]
　　a = .[a1].CurrentRegion
　　ReDim b(1 To UBound(a), 1 To 1)
　　For i = 3 To UBound(a, 1)
　　　For j = 2 To UBound(a, 2)
　　　　If a(i, j) = "" Then Exit For
　　　Next
　　　If j = UBound(a, 2) + 1 Then
　　　　b(i, 1) = "?"
　　　ElseIf j = 2 Then
　　　　b(i, 1) = "异常"
　　　End If
　　Next
　　.[a1].Offset(, UBound(a, 2) + 1).Resize(UBound(b)) = b
　　For i = UBound(b) To 3 Step -1
　　　If b(i, 1) = "?" Then Rows(i).Delete
　　Next
　End With
End Sub