VBA替换函数

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