WPS宏插件一直显示bug，有人看的明白么

Sub Mapping_Click()

Dim i, j, dr, hr As Integer
Dim data, code As String

  dr = Worksheets("数据").Range("T65536").End(xlUp).Row
  hr = Worksheets("替换品名").Range("B65536").End(xlUp).Row
  
  
For i = 2 To dr
  
  If Worksheets("数据").Cells(i, 20) <> "" Then
    
    For j = 2 To hr
    
    data = Worksheets("数据").Cells(i, 20)
    code = Worksheets("替换品名").Cells(j, 1)
    
      If data = code Then
      
        Worksheets("数据").Cells(i, 20).Value = Worksheets("替换品名").Cells(j, 2)
        
        Exit For
        
      End If
      
    Next j

  End If
    
Next i

MsgBox "OK"

End Sub