質問: エクセルのセル内にある文字列の特定文字以下を一括で削除したい。 例えば、エクセルの各セルに以下の様な入力があったとして、 |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 ``` マクロで 選択したセルを一括で消去します。