有以下一个程式:
         Sub 判断身份证号码()
Dim i As Integer, j As Integer, A As String * 18
Dim m As Integer, n As Integer
       m = Range("B65536").End(xlUp).Row
For n = 2 To m
       A = Range("B" & n)
If Mid(A, 17, 1) Mod 2 = 0 Then
        Range("c" & n) = "女"
Else
         Range("c" & n) = "男"
End If
Range("D" & n) = Mid(A, 7, 4) & "_" & Mid(A, 11, 2) & "_" & Mid(A, 13, 2)
      j = Range("g65536").End(xlUp).Row
For i = 1 To j
If Range("G" & i) = Left(A, 6) Then
Range("E" & n) = Range("H" & i)
End If
    Next i
    Next n
End Sub

当我全部输入完成后红色字就提示出错,实在想不出办法.请大家帮忙解决,谢谢了.