求解释每行代码的意思

杠精

Sub test()
Dim brr(1 To 100000, 1 To 11)
Set d = CreateObject("scripting.dictionary")
arr = Sheets("美团").UsedRange
For i = 2 To UBound(arr)
    a = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7))
    d(arr(i, 1)) = a
Next
arr = Sheets("数据").UsedRange
For i = 2 To UBound(arr)
    s = Left(arr(i, 3), 5)
    If d.exists(s) Then
        a = d(s)
        For j = 0 To 4
            If a(j) <> "" Then
                n = n + 1
                For k = 1 To 11
                    brr(n, k) = arr(i, k)
                    brr(n, 4) = a(j)
                Next
            End If
        Next
    Else
        n = n + 1
        For k = 1 To 11
            brr(n, k) = arr(i, k)
            brr(n, 4) = brr(n, 3)
        Next
    End If
Next
Sheets("数据").[a2].Resize(n, 11) = brr
End Sub