VBA替换函数

Sub test()
On Error Resume Next
Dim arr1, arr2, i, j
arr1 = Range("T1:EI3")
arr2 = Range("R9:EI14")
For i = 2 To UBound(arr2)
    For j = 1 To UBound(arr1, 2)
        If InStr(Join(Application.Transpose(Application.WorksheetFunction.Index(arr1, 0, j))), arr2(i, 1)) Then
            arr2(i, j + 2) = "中"
        Else
            arr2(i, j + 2) = Val(arr2(i - 1, j + 2)) + 1
        End If
    Next j
Next i
Range("R9:EI14") = arr2
End Sub