エクセルのマクロVBA条件分岐の仕方

質問

適切な方法を知りたいと思っています。よろしくお願いします。
エクセルA列に
　　　　A列　　　　B列　　　　C列
１行　E-000-1　 　
２　　2000-0001 　　
３　　00300000　　
４　　34598291
５　　R-000-1　
６　 99333345　
７　　00300
８　　2009-0013
９　　47539859
１０　0192
１・５行目のようにアルファベットで始まり"-"が２番目にある文字列（"a"とします）、２・８行目のように"-"が５番目にある文字列（"b"とします）、その他１～８桁の文字列("c"とします)が合計で５千件近く入っています。（abcは重複することもあります。）
cより上にあるaとbはｃの属性です。エクセル上で、
abcをそれぞれのCBA列に分けて行ごとにｃの属性を出そうとしています。
並び順は、ｃ（複数）の上に必ず、abがあるはずですが、不規則にbが無くて、acの時があります。そのときはb情報はないので、B列をNにしたいのです。
マクロで以下のような表にまで加工しました。
ここで、データがacの順に並んでいる時だけ(６・７行目）、cの入っている方の行（７行目）B列に"N"を入れたい感じです。

　　　　A列　　　　B列　　　　C列
１行　E-000-1　　　　　　　 E-000-1　 　　
２　　2000-0001 2000-0001 　　　　
３　　00300000　　
４　　34598291
５　　R-000-1　　　　　　　 R-000-1　
６　 99333345　（N）
７　　00300
８　　2009-0013
９　　47539859 2009-0013
１０　0192
よろしくお願いいたします。

回答No.3

papayuka · ベストアンサー

> 通常は１～３行目の様な繰り返しで、abcccccabcc・・・
> 等と並んでいるのですが、５・６行目のように、acと並ぶ時があります。

１　　E-000-1　　　a
２　　2000-0001　 b
３　　00300000 　　c
４　　34598291 　　c
５　　R-000-1　　　a
６　　99333345 　　c
７　　00300　　　　　c
８　　2009-0013　　b
９　　47539859 　　 c
10　　0192 　　　　　c

この例だと1～4はabcc、5～7はaccだけど、8～10は bcc では無い？

仕様が見えないけど、やりたい事はこんな意味？

Sub aaa()
　i = 1
　Do While Range("A" & i) <> ""
　　If Mid(Range("A" & i), 2, 1) = "-" Then
　　　　If Mid(Range("A" & i + 1), 5, 1) <> "-" Then
　　　　　 Range("B" & i + 1) = "N"
　　　　End If
　　End If
　　i = i + 1
　Loop
End Sub

お礼

ありがとうございました！！
できました。まさにその方法で、abcを判別していたので、思っていたとおりのコード文です！
ifとmidの組み合わせなどで、どうしてもエラーになって困っていました。
ありがとうございました！！(^^)/

回答No.2

noname#8445

データが１列だけでしたら

dim Aretu_backup as string

と変数（記憶エリア＜架空セルと思ってください＞）を持たせて、

全てのチェックPGMのあとに前データ比較用として
代入し、次の処理のときにチェックしてあげれば
いいのではないでしょうか

Aretu_backupは短い言葉でも良いです
予約語（sub）などは使えません

マクロはループ（回す処理ですよね）
確認の為

補足

何度もありがとうございます。
初心者なものですみません。
>前データ比較用として代入し、次の処理のときにチェックしてあげれば

チェックするコードを知りたいです。
B列とC列にbaをコピーするのは、"-"の位置で判別しloopをかけています。
最終的には以下の様な表にするのが目的です。
（行削除と下へコピーマクロは作成済み）
A列　　　　B列　　　　C列
３　　00300000　2000-0001 　E-000-1　 　　　
４　　34598291 2000-0001 　E-000-1　 　　　
６　 99333345 N　　　　　R-000-1　
７　　00300　　　N　　　 　R-000-1　
９　　47539859　2009-0013　 R-000-1　
１０　0192　　　2009-0013　 R-000-1　

現状のマクロだと、B・C列下へコピーとabの行を削除をすると、６・７行目に４行目のbが入ってしまう状態です。
このマクロの前に、６・７行目を比較してNを入れられればと思っています。

質問文の訂正
また間違ってました。
×８　　2009-0013
×９　　47539859 2009-0013

○８　　2009-0013　2009-0013
○９　　47539859 　　
よろしくお願いいたします。

回答No.1

noname#8445

acの時があるとはいうものの

６　 99333345　（N）

２番目に"-"がありませんよ。
ちょっとわからないかな

補足

回答ありがとうございました。
わかりにくくてすみません。

>並び順は、ｃ（複数）の上に必ず、abがあるはずですが、不規則にbが無くて、acの時があります。

通常は１～３行目の様な繰り返しで、abcccccabcc・・・
等と並んでいるのですが、５・６行目のように、acと並ぶ時があります。

＞ここで、データがacの順に並んでいる時だけ(６・７行

間違えてました。
×６・７行目
○５・６行目

＞目）、cの入っている方の行（７行目）B列に"N"を入れたい感じです。

間違い
×７行目
○６行目
よろしくお願いいたします。