Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38785 / 76732 ←次へ | 前へ→

【43078】Re:文字列から数字だけを半角数字で抜き出す...
回答  yata  - 06/10/1(日) 17:41 -

引用なし
パスワード
   こんばんは
皆さんの簡潔なコードは大変参考になります。
スマートでないですが私も作ってみました
SUBSTITUTE関数ならエラー対策が要らないと聞いていましたので。
セルが空白でも出来そうです。
接頭辞の付け方は皆さんのをまねました。

Sub 数字抽出()
Dim Data As Range
Dim 文字列 As String, moji As String,suuji As String

Set Data = Range(Cells(1, 1), Range("A65536").End(xlUp))
For Each myRng In Data
文字列 = StrConv(myRng, 8)  '半角文字にしておく

'文字列から数字だけを消す
moji = 文字列
For i = 0 To 9
 moji = Application.WorksheetFunction.Substitute(moji, i, "")
Next

R = Len(moji)  '数字を除いた記号や文字の数
suuji = 文字列
'元の文字列から文字を消す
For i = 1 To R
suuji = Application.WorksheetFunction.Substitute(suuji, Mid(moji, i, 1), "")
Next
'残った数字部分を表示
myRng.Offset(, 1) = "'" & suuji
Next myRng
Set myRng = Nothing
End Sub

1 hits

【43063】文字列から数字だけを半角数字で抜き出す... 無人島 06/10/1(日) 9:29 質問
【43064】Re:文字列から数字だけを半角数字で抜き出... ぱっせんじゃー 06/10/1(日) 10:02 発言
【43065】Re:文字列から数字だけを半角数字で抜き出... かみちゃん 06/10/1(日) 10:12 回答
【43066】Re:文字列から数字だけを半角数字で抜き出... Hirofumi 06/10/1(日) 10:18 回答
【43078】Re:文字列から数字だけを半角数字で抜き出... yata 06/10/1(日) 17:41 回答

38785 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free