各位大佬，求教如何顺利的运行

Sub wXX()
网页链接 = False
Dim i, j As Long
For i = 2 To 20713
For j = 2 To 21246
If Sheet("Sheet4").Cells(i, 1) = Sheet("4").Cells(j, 1) Then
Sheet("Sheet4").Cells(i, 6) = Sheet("4").Cells(j, 28)
end if
Next
Next
网页链接 = True
End Sub