VBA運用1_城南

Public Sub 城南用()
'   author:  zsh
'   version: V1.0
'   time:    2015/09/23

    Dim count_row As Integer
    Dim currount_time As String
    Dim result_ok As String
    Dim tester As String
    Dim find_value As String
    Dim result_row As String
    Dim num As Integer

    count_row = Range("A65536").End(xlUp).Row
    currount_time = Format(Date, "MM月DD日")
    result_ok = "■"
    tester = "NNN"
    num = 0

    Dim i As Integer
    For i = 1 To count_row
        
        If Range("A" & i).Value <> "" Then
            find_value = Range("A" & i).Value
        
            Debug.Print Range("A" & i).Value
        
            With Worksheets("Sheet1 (2)").Range("B:B")
                Set c = .Find(find_value, LookIn:=xlValues)
                
                If Not c Is Nothing Then
                    result_row = c.Row
                End If
            End With
        
            If Worksheets("Sheet1 (2)").Range("J" & result_row).Value <> result_ok Then
                Worksheets("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
    
    Next i

    Debug.Print num & "個"

'   end:     zsh
End Sub