回答受付が終了しました

エクセルのセル、「数字文字」の文字だけ消す方法ありませんか? ひとつづつDeleteキーで消すのが大変です。 何か方法がありそうです。宜しくお願いいたします。

Excel319閲覧

回答(7件)

0

数字と文字が混在した1つのセルから、数値と認識できない文字を除き、文字列として返します。 対象文字位置は $A$1:$A$50 で1文字目から50文字目までとしていますが、$A$4:$A$10 とすれば4文字目から10文字目までを対象とし、11文字目以降は数字、文字があっても無視します。 B1セルに =CONCAT(IFERROR(MID(A1,ROW($A$1:$A$50),1)*1,"")) を入力し、ctrl+shift+enter で配列数式にします。 配列数式になると数式が { } で囲まれます。

画像
0

マクロでよろしければ・・ 選択範囲内の セルの中身が 数字だけになります。 (選択範囲内→セル 1コ から OKです。) Sub 文字列削除() Dim R1 As Long, C1 As Long R1 = Selection(1).Row C1 = Selection(1).Column Dim R2 As Long, C2 As Long R2 = Selection(Selection.Count).Row C2 = Selection(Selection.Count).Column Dim Se2 As Long Se2 = Selection.Count Dim i1 As Long For i1 = 1 To Se2 Selection(i1).Select Dim St1 As String St1 = ActiveCell.Value ActiveCell.Value = "" Dim Len1 As Long Len1 = Len(St1) Dim i2 As Long For i2 = 1 To Len1 If IsNumeric(Mid(St1, i2, 1)) = True Then Dim Mi1 As String Mi1 = Mid(St1, i2, 1) ActiveCell.Value = ActiveCell.Value & Mi1 End If Next i2 Range(Cells(R1, C1), Cells(R2, C2)).Select Next i1 End Sub

マクロの実行結果が 意に沿ったものであるか 否かの 確かめを おねがいします。

0

> 「数字文字」 と決まっているなら =LEFT(A1,LENB(A1)-LEN(A1)+1) でいいかと思います。文字の中に半角の英字やカタカナが混じっている とダメですが。

0

B1=MID(NPV(9,IFERROR(-MID(A1,ROW($1:$50),1),"")),4,15) ★この式は「配列数式」です。式を入力後、CtrlとShiftを押しながらEnterを押して式を確定させてください ★式が確定すれば、式の両端に、{ }がつきます ★式を確定後、下にコピー

画像

◆ついでに 【ケース1】:数字+文字列 B1=-LOOKUP(1,-LEFT(A1,ROW($1:$15))) 【ケース2】:文字列+数字 B1=-LOOKUP(1,-RIGHT(A1,ROW($1:$15)))

画像
0

同じ「文字」だけを消すなら 「検索と置換」でできそうなので別解を書いておきます ①Ctrl+H を押して「検索と置換」が出ます ② 検索する文字列:文字 置換後の文字列: ※置換後には何も入力しない ③すべて置換

画像