例えば、エクセルの各セルに以下の様な入力があったとして、
|2500/(2012)|3600/(2013)|
|3500/(2012)|1280/(2013)|
これらの「/」以下の数値、文字を一括で削除する方法を教えてください。
最終的な結果として以下の様な形にしたいと考えています。
|2500|3600|
|3500|1280|
よろしくお願いいたします。
Sub 置き換え() Dim RE, A1 As Range Set RE = CreateObject("VBScript.RegExp") RE.Pattern = "/.*" For Each A1 In Selection A1.Value = RE.Replace(A1.Value, "") Next Set RE = Nothing End Sub
マクロで 選択したセルを一括で消去します。
削除したい文字のパターンが少ないのであれば、
最も簡単な方法は「置換」です。
検索する文字列を変更していけば一応の目的は果たせる
はずですが、より厳密かつ正確に消すのでしたら
VBAや正規表現アドオンなどを使用するべきでしょう。
参考 Excelで正規表現をつかう
http://kokodane.com/tec3_37.htm
Sub 置き換え() Dim RE, A1 As Range Set RE = CreateObject("VBScript.RegExp") RE.Pattern = "/.*" For Each A1 In Selection A1.Value = RE.Replace(A1.Value, "") Next Set RE = Nothing End Sub
マクロで 選択したセルを一括で消去します。
エクセルで、CTRL+F(検索) ⇒ 置換タブ
検索する文字列(N):/*
置換後の文字列(E):空白「何もしない」
ですべて置換のボタンをクリック
すると、目的は果たせます。
ありがとうございます。
確かにできますね。
しかも簡単に。これは便利。
ありがとうございます。
2013/07/05 13:52:34置換を使用するのではなく、マクロかなにかで一気に「/」以下を消し去りたいのです。
実際は「/」以下に多種多様な文章、数値が入っています。