質問: 社員cd(回数) next 回数 end sub ***************************** よろしくお願いします
回答: こんにちは。 コードとしては、失礼ですが、動的配列を使いながら、2バイト文字変数では、ものすごくバランスが悪いです。申し訳ないのですが、私には、修正とかいうレベルではないです。2バイト文字の変数のオンパレードはミスの元です。動的配列を使いたい気持ちは分からないわけではないけれども、そのためには、もう少し、初歩的な技術の蓄積が必要ではないでしょうか。 もともと、そのコードでは動くわけないのでしょうから、掲示板に載せるために、相当に省いているのか加工しているのだと思います。 sheets("評価シート").copy after:=sheets("評価シート") "" のクォーテーションは、どうなっているのでしょうか? activesheet.name = 氏名(回数) これも、実にエラーが発生しやすいです。 それから、 for i = rng.rows.count to 1 step -1 左から順に入れていくなら、このように逆にしたほうがよいのではないでしょうか。これは一例です。 sub evaluationsheetmaking() dim sh1 as worksheet dim sh2 as worksheet dim rng as range dim i as long set sh1 = worksheets("社員一覧") set sh2 = worksheets("評価シート") with sh1 set rng = .range("a2", .range("a65536").end(xlup).offset(, 1)) end with for i = rng.rows.count to 1 step -1 on error resume next sh2.copy after:=sh2 with activesheet .name = rng.cells(i, 2).value .cells(4, 5) = rng.cells(i, 2).value .cells(4, 3) = rng.cells(i, 1).value end with on error goto 0 next i set rng = nothing end sub