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

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！