|
大至急でお願いします!!VBAでセル内のデータを一部読み込み数字に対応させたい
行き詰ってしまったのでお願いします。
G列のセルに4桁、H列のセルに5桁又は6桁入っています(両方アルファベットと数字の混合)
それを1・2・3・4・5という区分に分けたいです。
『1』の場合:G列のセルの末尾が"H"
『2』の場合:にはG列のセルの最後が"Y"もしくは"MMX"
『3』の場合:にはH列のセルに"12345"という数字が(前には4桁あり、後ろには何もないか、1桁あります)
『4』の場合:にはG列のセルの末尾が"Y"で、さらにH列に"12345"という数字がある場合です
(前には4桁あり、後ろには何もないか、1桁あります)
『5』の場合:上記以外のものと、H列の頭にV7、後ろに3桁か4桁あるものです。
"1234"は5桁目の数値を取る形で行いたいです。
現在のマクロでは下記のようにしておりますが、『3』『4』が上手く動きません。
Dim a AS Integer
a=1
Do until cells(a,"H").value=""
If cells(a,7).value Like "*Y" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*MMX" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*H" Then
cells(a,15).value="1"
------------------------------------
『3』『4』が良く分かりません
------------------------------------
Elseif cells(a,8).value Like "V7*" Then
cells(a,15).value="5"
Else
cells(a,15).value="5"
End If
a=a+1
Loop
どなたか是非教えてください。
A1セルを始めに指定してあります。
上記でおかしい所や、こうした方がいいというものもありましたら
併せて教えてくださいませ。
よろしくお願い致します。
|
|