数组查找问题

ppyh

Private Sub c按钮_Click()
Dim j1 As String, arr, brr(32, 3), i As Long, n As Long
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
j1 = ActiveSheet.[j1].Value & "##"
For i = 1 To UBound(arr)
Debug.Print arr(i, 1)
If arr(i, 1) Like j1 Then
brr(n \ 2, 2 * (n Mod 2)) = arr(i, 1)
brr(n \ 2, 2 * (n Mod 2) + 1) = arr(i, 2)
n = n + 1
End If
Next
[d2].Resize(33, 4) = brr
Application.ScreenUpdating = True
End Sub
这段代码得出的效果如下:
D列          E列        D列          E列      
101          李大      102          李二  
103          李三      104          李四

想得到如下该怎么做啊?请帮我解释以上代码:
D列          E列        D列          E列      
101          李大      104         李四  
102         李二       105         李五
103          李三