|
あまりコードに手を入れないで書くとこんな感じ。
終りの条件はあくまでも空欄として。(#N/Aエラーのときは続きます。)
Dim AA As String
Range("AD2").Select
Do Until ActiveCell.Value = "" '空欄になるまで繰り返す命令
AA = ActiveCell.Value
Select Case AA
Case "あいうえお" '
ActiveCell.Value = "あ行"
ActiveCell.Font.ColorIndex = 3
Case "かきくけこ"
ActiveCell.Value = "か行"
ActiveCell.Font.ColorIndex = 3
Case "さしすせそ"
ActiveCell.Value = "さ行"
ActiveCell.Font.ColorIndex = 3
End Select
ActiveCell.Offset(1, 0).Select '一つ下のセルを選択
Do Until Not IsError(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
Loop
|
|