Dim R As Long
    
    Range("B:B").ClearContents
    
    With Application
        For R = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If .Sum(.CountIf(Cells(R, "A"), Array("*株式会社*", "*��*", "*有限会社*", "*��*"))) Then
                Cells(R, "B").Value = Cells(R, "A").Value
            End If
        Next R
    End With


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

こんにちは。

VBAの初心者でどなたか、ご教授をお願いします。

●やりたい事
A列は顧客の名前一覧があり、そこから「会社」だけを隣のセル（B列）に移動をさせたい。
→「会社」の検索条件は「株式会社、�梶A有限会社、�求vがある。

●書いたコード
色々なサイトを参考にして、自分なりにコードを書いてみましたが、これ以上、進展することができませんでした。

 Dim R As Long
     Range("B:B").ClearContents
 For R = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(R, "A").Value Like "*株式会社*" Then
        　　Cells(R, "B").Value = 〇
        End If
Next R

●上記コードに足りないこと。
・検索するのが「株式会社」だけ
・隣のセルに移動できない。（現在は〇を入力させるだけ）


どなたか、アドバイスをお願いいたします。