|
こんにちは!
いつもこちらでは大変お世話になっております、m(_ _)m
現在AD列に、下方向へ「=$B2&$L2」という数式を入れて、
B2とL2のテキストをくっつけた値をAC列には表示させています。
B列とL列の値は限りがあるので、
下の行に行くとデータがなくて“#N/A”という表示になります。
AD列をつかってDo Until〜Loop分で
Dim AA As String
Range("AD2").Select
Do Until ActiveCell.Value = "" '空欄になるまで繰り返す命令
AA = ActiveCell.Value
Select Case AA
Case "あいうえお" '
ActiveCell.FormulaR1C1 = "あ行"
ActiveCell.Font.ColorIndex = 3
Case "かきくけこ"
ActiveCell.FormulaR1C1 = "か行"
ActiveCell.Font.ColorIndex = 3
Case "さしすせそ"
ActiveCell.FormulaR1C1 = "さ行"
ActiveCell.Font.ColorIndex = 3
End Select
ActiveCell.Offset(1, 0).Select '一つ下のセルを選択
Loop
という構文を作りましたが、上記では
「セルの値が空欄になるまで繰り返す処理」なので、
やはり途中からAC列が"#N/A"になっているので、そこでVBが止まってしまいます。。
エラー("#N/A")になるまで処理を繰り返す構文はどのように書けばよろしいのでしょうか??
大変お手数ですが、ご教授よろしくお願いいたします。m(_ _)m
#当方、Excel2000ユーザーです。
|
|