2021年4月12日月曜日

【マクロ】特定の文字から左を削除する

 特定の文字から左を削除する 

この場合はアンダーバーより左を削除する

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 件のコメント:

コメントを投稿