みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルで数字だけを消すことはできないでしょうか

エクセルで1つのセルの中に数字と文字の両方が
あります。数字だけを消したいのですが。数字
は数式の結果ではありません。

数字はすべて同じ物ではないので、置換は使え
ませんでした。

このサイトにもある、編集→ジャンプ→定数・
数式も利用してみましたが「該当するセルがあ
りません」と表示されてしまいます。

この二つ以外の方法はありませんか?

投稿日時 - 2006-10-04 15:44:58

QNo.2450506

暇なときに回答ください

質問者が選んだベストアンサー

> 数字はすべて同じ物ではないので、置換は使え
> ませんでした。

一回の置換では難しいですが、

「0」→空白
「1」→空白
「2」→空白


「9」→空白

と、10回実施すればよいのでは?

投稿日時 - 2006-10-04 16:01:45

このQ&Aは役に立ちましたか?

19人が「このQ&Aが役に立った」と投票しています

回答(5)

ANo.5

こんばんは。

>編集→ジャンプ→定数・数式も利用してみましたが

マクロでよければ、こんな方法もあります。ただし、数式内の数字は、削除しません。
以下は、ジャンプ機能を利用しています。

Sub FigureDelete()
'セルの数字を取る
 Dim rng As Range
 Dim c As Variant
 Dim Matches As Object
 Dim Match As Object
 
 On Error Resume Next
 Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers Or _
 xlTextValues)
 If Err.Number > 0 Then Exit Sub
 On Error GoTo 0
 Application.ScreenUpdating = False
 With CreateObject("VBScript.RegExp")
  For Each c In rng.Cells
   .Pattern = "\d+|[0-9]+"
   .Global = True
   .IgnoreCase = False
   Set Matches = .Execute(c.Value)
   If Not Matches Is Nothing Then
    For Each Match In Matches
     c.Value = Replace(c.Value, Match.Value, "")
    Next Match
   End If
  Next
 End With
 Application.ScreenUpdating = True
 Beep
End Sub

投稿日時 - 2006-10-04 21:21:32

ANo.4

Sub Macro1()
For i = 0 To 9
Cells.Replace What:=i, Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, MatchByte:=False
Next i
End Sub

↑これでどうでしょうか。
半角全角関係なく数字を消去します。

投稿日時 - 2006-10-04 17:24:13

ANo.3

地道に「検索(Ctrl-f)」で検索する文字列に"*0*"を指定して0を含むセルを探して手で編集、次は"*1*"を指定して1を含むセルを探して・・・を"*9*"までやるのが一番現実的でしょうね。

大量にあって、手で1つ1つ出来ないというのであれば、マクロを使うしか無いと思います。

ちなみに、全角の"1"も数字と見なすのであれば、検索のときに「半角と全角を区別する」のチェックをはずしましょう。

投稿日時 - 2006-10-04 16:13:29

Ctrl+G>セルの選択>定数>数字にチェックを入れてDeleteではだめですか。

投稿日時 - 2006-10-04 16:00:08

あなたにオススメの質問