[[20151126114900]]　『文字列の数値を抜き出す』（zunzun）　ページの最後に飛ぶ

『文字列の数値を抜き出す』（zunzun）

　　　
Ａ列の≦の左右の値をＢとＣに抜き出すマクロを作成しています。
Val関数（下記）を使えば、Ｂ列には抜き出しできますが、Ｃ列の抜き出しができません。どのようにすれば、良いのでしょうか？よろしくお願いします。

x = Val(Range("A1"))
Range("B1") = x

　　　Ａ　　　　Ｂ　　　Ｃ
1　　8≦9　　　　8
2　　9≦10
3　　10≦11

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 いろんな方法がありますが、

 Sub Sample()
    Dim c As Range

    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        With c.Offset(, 1).Resize(, 2)
            .Value = Split(c.Value, "≦")
            .Value = .Value
        End With
    Next

 End Sub

（β） 2015/11/26(木) 12:03

 そちらの方式 Val を使う一例も。

 Sub Sample2()
    Dim c As Range
    Dim w As String

    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
        c.Offset(, 1).Value = Val(c.Value)
        w = StrReverse(Val(9 & StrReverse(c.Value)))
        c.Offset(, 1).Value = Left(w, Len(w) - 1)
    Next

 End Sub

（β） 2015/11/26(木) 12:41

βさん
出来ました。≦が常にあることに着目すべきでした。
StrReverseの式は、反転して抜き出したものを反転させるものですか？
（9≦10→01≦9→10）
ありがとうございました。
（zunzun） 2015/11/26(木) 13:03

コメント返信：

[ 一覧(最新更新順) ]

[[20151126114900]] 『文字列の数値を抜き出す』（zunzun） ページの最後に飛ぶ

[[20151126114900]]　『文字列の数値を抜き出す』（zunzun）　ページの最後に飛ぶ