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