|
こんばんわ。ATです。
下記の条件分岐がうまくいかず、困っています。
【セル:G1】は倉庫名で、【セル:K1】は担当者名を《列タイトル》に
してあります。
セル:G2が、[倉庫A] か [倉庫B] か [倉庫C] の場合、
セル:K2に、担当者の [鈴木さん] を入力したいと、考えています。
Sub 条件分岐()
Select Case Range("G2").Value
Case Is = "倉庫A", "倉庫B", "倉庫C"
Range("K2").Value = "鈴木さん"
Case Is = "倉庫D", "倉庫E", "倉庫F"
Range("K2").Value = "山田さん"
Case Is = "倉庫G", "倉庫H, "倉庫I"
Range("K2").Value = "森さん"
End Select
Select Case Range("G3").Value
Case Is = "倉庫A", "倉庫B", "倉庫C"
Range("K3").Value = "鈴木さん"
Case Is = "倉庫D", "倉庫E", "倉庫F"
Range("K3").Value = "山田さん"
Case Is = "倉庫G", "倉庫H, "倉庫I"
Range("K3").Value = "森さん"
End Select
End Sub
※上記の Select Case Range("G●").Value のデータ量が毎回不定です。
少ない時 ⇒ "G50"
多い時 ⇒ "G250" (今後、超える事があるかもしれません)
Select Case Range("G●").Value
↑
データ量に関係無く、セルG2〜セルGの最終行まで、上記の条件分岐を
LOOPで処理するには、どうしたらよいでしょうか?
ご教授のほど、宜しくお願いします。
|
|