VBA uses 1_ city south

 Public SubSouth City ()'author:zsh'version:v1.0'TIME:2015/09/23    DimCount_row as Integer    DimCurrount_time as String    DimResult_ok as String    DimTester as String    DimFind_value as String    DimResult_row as String    DimNum as IntegerCount_row= Range ("A65536"). End (Xlup). Row Currount_time=Format(Date,"mm month DD Day") Result_ok="■"Tester="Cheung Shao-Fai"Num=0    DimI as Integer     fori =1  toCount_rowIfRange ("A"& i). Value <>""  ThenFind_value= Range ("A"&i). Value Debug.Print Range ("A"&i). Value withWorksheets ("Sheet1 (2)"). Range ("b:b")                Setc =. Find (Find_value, lookin:=xlvalues)If  notC is  Nothing  ThenResult_row=C.rowEnd If            End  with                    IfWorksheets ("Sheet1 (2)"). Range ("J"& Result_row). Value <> RESULT_OK ThenWorksheets ("Sheet1 (2)"). Range ("I"& Result_row). Value =currount_time Worksheets ("Sheet1 (2)"). Range ("J"& Result_row). Value =Result_ok Worksheets ("Sheet1 (2)"). Range ("O"& Result_row). Value =Tester Num= num +1            End If        End If        NextI Debug.Print Num&"a"'end:zshEnd Sub

VBA uses 1_ city south