VBA 宏 匹配以及单元格颜色

Sub a1()
For i = 1 To 3700
    If Cells(i, 2) = "" Then
        Rows(i).Delete
    End If
Next
End Sub
Sub gdna()
Dim a As Integer
For i = 1 To 2000
    a = 0
    For j = 1 To 22400
        If Sheet3.Cells(j, 2) = Cells(i, 2) Then
            Cells(i, 3 + a) = Sheet3.Cells(j, 4)
            Cells(i, 3 + a).Interior.ColorIndex = 6
            a = a + 1
        End If
    Next
Next
End Sub