質問: 区分番号で各別ブック(計9ブック)に振り分けて転記をしたい いつもお世話になります。
回答: 区分を増やす方法は良くないと思います。 また別の色を付ける事になったら、そのたびに区分を増やして変更していかなければなりません。 区分表の名前に色をつけるものいい方法ではないです。 1列追加して色番号を入れるだけで、簡単な修正ですみます。 G列に色番号を入れます。黒は1、赤は3、青は5を登録します。 色番号は下記サイトを参考に 貼り付けシートのBH2 =IFERROR(VLOOKUP($H2,区分表!$A$2:$G$300,7,FALSE),"") コードは 'ここで色設定-------- cno = 1 If sv1 = 7 Then cno = 3 ElseIf sv1 = 9 Then cno = 5 End If これを cno = .Range("BH" & r) この1行に変えるだけです。 >無力すぎて・・・ 自分の仕事ですよね。 少し変わっただけでここへ質問しなくていいように、汎用的なデータにする事を考えて下さい。 それから質問が解決したら、それで終わりにしないで、必ずプログラムを理解するようにして下さい。