|
reiko さん、こんにちわ。
>ちなみにIf Then Elseで今書いているコードは
>以下の通りです。
>ここでは機種は4種類しか書いていませんが
>実際には50種類ぐらいあります。
Sub 機種区分()
Dim wshichiran As Worksheet
Dim intkishu As Integer, rr&, dt
Set wshichiran = Worksheets("上期一覧表")
'
intkishu = wshichiran.Range("B65536").End(xlUp).Row
With wshichiran
'逆ループ?
For rr& = intkishu To 5 Step -1
Select Case .Cells(rr&, 2).Value 'B列の値で分岐
Case "CMS", "TCS", "条件5" '・・・, "条件6"
dt = 1
Case "HJC", "HSC", "条件7" '・・・, "条件8"
dt = 2
Case Else
dt = "共通"
End Select
.Cells(rr&, 1).Value = dt 'A列に分岐結果を入れる
Next
End With
Set wshichiran = Nothing
End Sub
こんな感じです。
Case のところに条件を追加していけばいいです。
|
|