WPS宏插件无法正常使用

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
