指定単語を置き換える③（for使用、部分一致）

トップページ（目次）

046.指定単語を置き換える③（for使用、部分一致）

＜実行前後＞

→

Sub 指定単語を置き換え置換する③_for使用_部分一致()
    
    For 行 = 1 To 7
    
        Range("A" & 行) = Replace(Range("A" & 行), "株式会社", "(株)")
    
    Next 行

End Sub

Replace(置換対象, 置換前, 置換後)の形式で書く最終行を変数にした場合はこちら↓

Sub 指定単語を置き換え置換する③_for使用_部分一致_最終行変数()

    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    For 行 = 1 To 最終行
        
        Range("A" & 行) = Replace(Range("A" & 行), "株式会社", "(株)")
    
    Next 行

End Sub