|
どらちゃん さん、keinさんこんにちは
横から失礼します
>以下の3つめの時、「noto rekr」にならず、「notorekr」をつながってしまいます。
>*******************
>aft1.2 2009/5
>nfs 2.58% 2009/4/20
>noto rekr 10.5 2034/5/11
> ↓
>aft
>nfs
>noto rekr
>*******************
>
>関数matchがよくわからないので、自分で修正ができず申し訳ないのですが
>どなたか教えていただけないでしょうか。
私も、VBScript.RegExpは初めて見ました。
http://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp
こんなページがありました↑
Keinさんのコードを拝見したら、文字列からアルファベットを抜き出して
まとめて転記するって感じですね。
なので、途中のスペースも無視されてしまってるようです。
もちっと待てば、Keinさんの回答がつくと思いますが、
ちと、別のやりかたを考えてみました。
めっちゃベタなやり方ですが・・・
Sub test2()
Dim r As Range
Dim i As Long
Dim k As Long
For Each r In Selection
k = 0
For i = 1 To Len(r.Value)
If IsNumeric(Mid(r.Value, i, 1)) = False Then
k = k + 1
Else
r.Offset(, 1).Value = Trim(Left(r.Value, k))
Exit For
End If
Next i
Next r
End Sub
最初に数字が来る位置を割り出して、その位置以前の部分を抜き出しって感じです。
数字以外の文字もはぶくなら、NGですね(^^;
|
|