Sub qcw()
Dim m As Integer
m = Range("C65536").End(xlUp).Row
For x = 3 To m
If InStr(Cells(x, 3), "中山市") > 0 Then
Cells(x, 4) = "本市"
ElseIf Left(Cells(x, 3), 6) <> "广东省中山市" And Left(Cells(x, 3), 3) = "广东省" Then
Cells(x, 4) = "本省外市"
Else
Cells(x, 4) = "外省"
End If
Next
End Sub
Sub qcw()
Dim m As Integer
m = Range("C65536").End(xlUp).Row
For x = 3 To m
If Left(Cells(x, 3), 6) = "广东省中山市" Then
Cells(x, 4) = "本市"
ElseIf Left(Cells(x, 3), 6) <> "广东省中山市" And Left(Cells(x, 3), 3) = "广东省" Then
Cells(x, 4) = "本省外市"
Else
Cells(x, 4) = "外省"
End If
Next
End Sub
Sub qcw()
Dim m As Integer
m = Range("C65536").End(xlUp).Row
For x = 3 To m
If InStr(Cells(x, 3), "中山市") > 0 Then
Cells(x, 4) = "本市"
ElseIf Left(Cells(x, 3), 6) <> "广东省中山市" And Left(Cells(x, 3), 3) = "广东省" Then
Cells(x, 4) = "本省外市"
Else
Cells(x, 4) = "外省"
End If
Next
End Sub