スキルアップ・問題解決なら、モーグにおまかせ！

C列で特定の文字列、D列で特定の文字列がある場合、B列の文字列を別の文字列に修正するということをやりたいんですが、VBAでどのように書けばいいのでしょうか。
 
    B列 C列 Ｄ列
 大学院 進学 △△大学大学院博士課程
 大学院 進学 ●●大学大学院
 大学院 進学 △△大学大学院
 大学 留学 ■■大学
 企業 就職 ××電機商会
 大学 就職 △△大学
 
この場合、C列が「進学」で、「△△大学」という文字列が入っている場合に、B列を「本学大学院」に修正し、そのほかはそのまま残すということです。
 
初心者のため、何卒よろしくお願いします。

Sub ReplaceText()
    Dim lastRow As Long
    Dim i As Long
    Dim strC As String
    Dim strD As String
    
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    For i = 2 To lastRow
        strC = Cells(i, 3).Value 'C列の文字列を取得
        strD = Cells(i, 4).Value 'D列の文字列を取得
        
        If strC = "進学" And InStr(strD, "大学") > 0 Then 'C列が「進学」で、D列に「大学」が含まれる場合
            Cells(i, 2).Value = "本学大学院" 'B列を「本学大学院」に修正
        End If
    Next i
End Sub

質問者の提示条件は
vC列が「進学」で、「△△大学」という文字列が入っている場合、
ですから
素直に
If Cells(i, 3).Value = "進学" And _
   Cells(i, 4).Value = "△△大学" Then
の方がよいのでは？

早速ありがとうございました！
問題なくできました。
 
こんなことまでChatGPTでできるんですね。。勉強になりました。

WinArrow さん、大変失礼いたしましたm(_ _)m
 
naoki34hino34さん、目視確認、動作確認を行っておらずごめんなさい。

「Q＆A掲示板ご利用上のお願い」
質問者の方へのお願い
https://www.moug.net/faq/kiyaku.html#link1
 
解決したら解決マークを
  質問が解決したら、お礼を書き込み、「解決済みにする」をチェックしてください。
コードをもらえば終了ということでもないので、よろしくお願いします。
 
# 「遠足は家に帰るまでが遠足です」（小学校校長あいさつより）