エクセル2013 セル内の ( から右側を削除

質問

A列のセルにある文字列の中に ( が存在したら
(　から右側を削除して左側だけをA列に表示したいのですが、
( が存在するセルと存在しないセルがあります。

下記コードを現在使用していますが
( が存在しないとエラーになってしまうため
エラーを回避するコードを教えてください。

宜しくお願い致します。

lastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow
r = Application.WorksheetFunction.Search("(", Range("A" & i), 1)
k = Left(Range("A" & i).Value, r - 1)
Range("A" & i).Value = k
Next

回答No.2

mshr1962 · ベストアンサー

r = Application.WorksheetFunction.Search("(", Range("A" & i), 1)
を
r = Application.WorksheetFunction.Search("(", Range("A" & i) & "(", 1)
とすればいいのでは？

お礼

ありがとうございました。
単純なようで、私には難しいです。
使わせて頂きます。

回答No.1

keithin

range("A:A").replace what:="(*", replacement:="", lookat:=xlpart
とかでいいです。

お礼

ありがとうございました。
活用させていただきます。