特定の文字から左を削除する
この場合はアンダーバーより左を削除する
selectionではなくRangeで範囲指定しても良い。
Offset(0,1)にすると隣の列に書き出してくれる。
Dim r As Range
For Each r In Selection '範囲
r.Offset(0, 0) = Right(r, Len(r) - InStr(1, r, "_")) '特定文字
Next
0 件のコメント:
コメントを投稿