Excel VBA質問箱 IV

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

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


38797 / 76732 ←次へ | 前へ→

【43065】Re:文字列から数字だけを半角数字で抜き出す...
回答  かみちゃん  - 06/10/1(日) 10:12 -

引用なし
パスワード
   こんにちは。かみちゃん です。

ぱっせんじゃーさんからコメントがついていますが、私も書いてしまいましたので
せっかくなので提示させていただきます。

>文字列から数字だけ抜き出して半角数字にする方法

数字だけをすべて抜き出した後に、最後に半角に変換して、文字列にする接頭辞
'(アポストロフィ)を付けています。
また、A1からA列の最後のセルまでを処理するようなコードです。
(この点は、処理対象範囲をあらかじめ選択してから実行する、ぱっせんじゃー
さんのコードと異なるところです。)

Sub Macro1()
 Dim LastCell As Range
 Dim c As Range
 Dim i As Integer
 Dim strData As String

 Set LastCell = Cells(Rows.Count, 1).End(xlUp)
 For Each c In Range("A1", LastCell)
  strData = ""
  For i = 1 To Len(c.Value)
   If IsNumeric(Mid(c.Value, i, 1)) Then
    strData = strData & Mid(c.Value, i, 1)
   End If
  Next i
  c.Value = "'" & StrConv(strData, vbNarrow)
 Next
End Sub

0 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 回答

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