VB宏基本案例(9)

Sub checkMenu()

    Sheets("all").Select
    Dim codeStr As String
    For j = 1 To 1000
        codeStr = Range("d" & j).Value
        Columns("D:D").Select
        Set fin_cha = Selection.Cells.Find(What:=codeStr, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
       
        Set fin_cha = Selection.Cells.FindNext(After:=fin_cha)
       
        If Not fin_cha Is Nothing Then
       
        Else
            Range("c" & j).Value = ".................."
        End If
    Next j
End Sub