指定条件に置き換える④（for使用、完全一致）

トップページ（目次）

072.指定条件に置き換える④（for使用、完全一致）

＜実行前後＞

→

Sub 指定条件に置き換え置換する④_for使用_完全一致()
    
    For 行 = 2 To 5
    
        If Range("B" & 行) = "-" Then '条件判定
        
            Range("B" & 行) = 0
            
        End If
        
    Next 行

End Sub

最終行を変数に入れた場合はこちら↓

Sub 指定条件に置き換え置換する④_for使用_完全一致_最終行変数()
    
    最終行 = Cells(Rows.Count, "B").End(xlUp).Row
    
    For 行 = 2 To 最終行
    
        If Range("B" & 行) = "-" Then
        
            Range("B" & 行) = 0
            
        End If
        
    Next 行

End Sub