|
こんにちは。かみちゃん です。
ぱっせんじゃーさんからコメントがついていますが、私も書いてしまいましたので
せっかくなので提示させていただきます。
>文字列から数字だけ抜き出して半角数字にする方法
数字だけをすべて抜き出した後に、最後に半角に変換して、文字列にする接頭辞
'(アポストロフィ)を付けています。
また、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
|
|