IF公式求助~~~

Option Explicit
Sub abc()
　Dim a, i, j, k, kk, t, p
　t = Split("进货1,代发1,1,下单1,进货2,2", ",") '3个为一组
　a = Range("a2:c" & [a2].End(xlDown).Row + 1).Value
　ReDim b(1 To UBound(a) - 1, 1 To 1)
　For i = 1 To UBound(a) - 1
　　If a(i, 1) <> a(i + 1, 1) Then
　　　For j = 0 To UBound(t) Step 3
　　　　For k = p + 1 To i
　　　　　If Len(b(k, 1)) = 0 And a(k, 3) = t(j) Then
　　　　　　For kk = p + 1 To i
　　　　　　　If Len(b(kk, 1)) = 0 And a(kk, 3) = t(j + 1) Then
　　　　　　　　b(k, 1) = t(j + 2): b(kk, 1) = t(j + 2)
　　　　　　　　Exit For
　　　　　　　End If
　　　　　　Next
　　　　　End If
　　　　Next
　　　Next
　　　p = i
　　End If
　Next
　[d2].Resize(UBound(b)) = b
End Sub