excel VBA代码问题。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, j&, str1$
If Target.Address = "$E$2" Then
i = Range("H65536").End(xlUp).Row + 1
str1 = UCase(Target.Value)

Dim str2$,k&,m&
k = worksheets("sheet1").Range("B65536").End(xlUp).Row
if k<1 then k=1

for m = 1 to k
str2=worksheets("sheet1").cells(m,2)
if str1 = str2 then
m=-1

exit for

end if

next

if m<>-1 then
Target=""
GoTo aa
end if

If i < 5 Then i = 5
For x = 5 To i
If Cells(x, 8) = str1 And Cells(x, 9) = "" Then
Cells(x, 9) = str1
GoTo aa
End If
Next
Cells(i, 8) = str1
aa:
Application.EnableEvents = False
Target.ClearContents
Target.Select
Application.EnableEvents = True
End If
End Sub

管理我的网络里面重新添加一个无线网络即可