大侠们，帮忙看下这段代码问题出在哪里了？谢谢

Lovertdos

之前可能是我要求那多了，后来修改了下，C列不再输出结果，只在E列到V列输出相对应内容。
这段代码输出的内容怎么和左边的内容不是一一对应的呢，请大侠们帮忙，谢谢！

Private Sub CommandButton1_Click()
    Dim d, ar, br, i&, j&, n&
    Set d = CreateObject("Scripting.Dictionary")
    Application.ScreenUpdating = False
    Sheet1.Range("D1:CC100001").ClearContents
    ar = Sheet1.Range("A1").CurrentRegion
    br = Sheet2.Range("Y1").CurrentRegion: n = 1
    For i = 2 To UBound(ar)
        d(ar(i, 1) & ar(i, 2)) = ""
    Next
    For i = 2 To UBound(br)
        If d.exists(br(i, 1) & br(i, 2)) Then
            n = n + 1
            For j = 1 To UBound(br, 2)
                br(n, j) = br(i, j)
            Next
        End If
    Next
    Sheet1.Range("E1").Resize(n, UBound(br, 2)) = br
    Application.ScreenUpdating = True
End Sub

已经解决了，非常感谢 ahnyt大侠的热心帮助，谢谢！