Excelでセルからダッシュを迅速に削除するにはどうすればよいですか？

ワークシートのセルに郵便番号や長いISBN番号のリストがあり、その長い数字にダッシュが含まれているとします。何らかの目的で、これらの数字間のダッシュを取り除く必要がある場合（次のスクリーンショット参照）、Excelでこれらの数字間のダッシュを迅速に削除する方法はありますか？

数式を使用してセルからダッシュを削除する
Kutools for Excelを使用して簡単にセルからダッシュを削除する
VBAコードを使用してセルからダッシュを削除する

数式を使用してセルからダッシュを削除する

このSUBSTITUTE関数を使用すると、数字はテキスト値に変換されるため、ダッシュを削除しても先頭の0は削除されず、数字が科学表記にもなりません。以下の手順を行ってください：

1. 隣接する空白セル（C1など）に、この数式を入力します： =SUBSTITUTE(A1,"-",""), スクリーンショットをご覧ください：

2. Enterキーを押し、セルC1を選択してから、この数式を含む範囲まで塗りつぶしハンドルをドラッグします。これで、数字間のダッシュが削除されました。スクリーンショットをご覧ください：

Kutools for Excelを使用してセルからダッシュを削除する

Excel初心者の方にとって、数式やコードは難しいものですが、ご心配なく。 Kutools for Excelの特定の文字を削除機能を使用することで、セルからダッシュを迅速に削除できます。

1. ダッシュを削除したいセルの範囲を選択し、次に Kutools > テキスト > 特定の文字を削除 をクリックします。スクリーンショットをご覧ください：

2. 特定の文字を削除ダイアログボックスで、カスタムオプションをチェックし、「-」文字をテキストボックスに入力すると、プレビューウィンドウで結果を確認できます。その後、OKボタンをクリックして選択したセル内のすべてのダッシュを削除します。スクリーンショットをご覧ください：

注意: 選択したセルに先頭のゼロや多くの桁数が含まれる場合、先頭のゼロを保持し、ダッシュを削除した後に数字が科学表記になることを避けるために、特定の文字を削除ユーティリティを適用する前に、下のスクリーンショットのようにセルをテキスト形式にフォーマットする必要があります。

VBAコードを使用してセルからダッシュを削除する

次のVBAコードを使用すると、セル範囲内の数字間のダッシュも削除できます。

1. ダッシュを削除したい範囲を選択します。

2. ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

3. 挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBA：数字間のダッシュを削除する

Sub DeleteDashes()
'Update 20130907
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. そしてF5キーを押してこのコードを実行すると、使用したい範囲を選択するように求めるダイアログが表示されます。スクリーンショットをご覧ください：

5. その後OKをクリックすると、セル内の数字間のダッシュが削除されます。また、数字形式はテキスト形式に変換されます。スクリーンショットをご覧ください：

関連記事：

• セルからアルファベット文字を削除する
• セルから非数値文字を削除する
• セルから数値文字を削除する
• セルから印刷不可能な文字を削除する
• セルから非アルファベット文字を削除する
• 改行を素早く削除する
• 非英数字文字を削除する