VBA 文字列を１文字ずつ調べて"_"が見つかったら文字列前半＋アンダーバーを消したい

文字列を先頭から１文字ずつ調べて半角アンダーバーが見つかったら文字列前半＋アンダーバーを消したいです。例：A1セルに「RITA_CTA070000」というのが入っていたらマクロ実行後に「CTA70000」とA1セルに入っているのがいいです。どうすればいいでしょうか。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/06/23 13:58

A1セルの場合です。

Dim i As Long
i = InStr(Range("A1").Value, "_")
If i > 0 Then
Range("A1").Value = Right(Range("A1").Value, Len(Range("A1").Value) - i)
End If

No.2 回答者： めぐみん_ 回答日時： 2021/06/23 20:26

これって "_" が２個以上あるとか０個の時でもなどのケースはあるのでしょうか？

取り敢えず１個と言うなら

with range("A1")
.value = split(.value, "_")(1)
end with

とか？