Excel VBA質問箱 IV

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

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


71250 / 76732 ←次へ | 前へ→

【9977】Re:追加で質問です
発言  つん E-MAIL  - 03/12/26(金) 16:29 -

引用なし
パスワード
   どらちゃん さん、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ですね(^^;
3 hits

【9223】セル内情報の分割? どらちゃん 03/11/24(月) 22:08 質問
【9224】Re:セル内情報の分割? Kein 03/11/24(月) 22:30 回答
【9709】Re:セル内情報の分割? どらちゃん 03/12/15(月) 11:31 お礼
【9971】Re:追加で質問です どらちゃん 03/12/26(金) 13:23 質問
【9977】Re:追加で質問です つん 03/12/26(金) 16:29 発言
【9986】Re:追加で質問です Kein 03/12/26(金) 21:50 回答
【10005】Re:追加で質問です どらちゃん 03/12/29(月) 9:09 お礼

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