|
こんにちは。
「 番号 数量 」
以下のデータは、何列の何行目にあるのですか?
行のことも誤解の無いように書いたほうがいいですね。
繰り返し処理のなかで、
文字列を分解する必要がある場所かどうかは、
文字列中に"年" がふくまれているかどうかで判定します。
If InStr(s,"年") > 0 Then といった書き方です。
文字列を分解する部分は下のコードを参考にしてください。
繰り返しの処理はご自分で組み立ててみてください。
Sub test()
Dim s As String
Dim ary
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim s4 As String
s = "○○ 2011年9月"
ary = Split(s, " ", 2) 'スペースが二つ以上あることも考慮。
s1 = ary(0) '' "○○"
s2 = Trim(ary(1)) '' "2011年9月"
ary = Split(s2, "年")
s3 = ary(0) '' "2011"
s4 = Replace(ary(1), "月", "") '' "9"
End Sub
|
|