エクセルで数字だけ貼り付け

質問

文章をコピペした後、漢字やひらがなを除いて数字だけ残すにはどうしたらいいのでしょうか？
形式を選択して貼り付けではできませんでした。

回答No.2

zap35 · ベストアンサー

＃０１です。半角数字のみを抜き出すユーザ関数にしてみました。
以下のマクロを標準モジュールシートにペーストして、任意のセルに　=NUMSTRING(A1) のように入力して下さい。

標準モジュールシートとはAlt＋F11でVBE画面を開き、シート名→右クリック→挿入→標準モジュール　で表示される画面です。

Private Function NumString(ByVal TrgRange) As String
Dim RExp, strPattern As String, ch As Long
　Set RExp = CreateObject("VBScript.RegExp")
　RExp.Pattern = "[0-9]"
　For ch = 1 To Len(TrgRange.Value)
　　If RExp.Test(Mid(TrgRange.Formula, ch, 1)) Then
　　　NumString = NumString & Mid(TrgRange.Formula, ch, 1)
　　End If
　Next ch
End Function

お礼

貼り付けのオプションが出てやってみたらできました！
ありがとうございます<m(__)m>

回答No.1

zap35

数字だけ残すとは正確にはどのような意味でしょうか。
・全角、半角の区別はどうする？
・小数点や区切り記号のカンマは？
・小数点やカンマを残すなら「2..00」「2,000,0」など数字と見なせない文字列はどうする

など期待されることが曖昧です

補足

半角の数字だけ残したいんです。
小数点やカンマなどは使いません。