http://q.hatena.ne.jp/1215222879
r As Long で“コンパイルエラー”同じ適用範囲内で宣言が重複しています。
というエラーが出てしまいました。
ここを削除してみた所、デバックエラーになり
endRow = DataSheet. Range("B9").End(xlDwon).Row
が“アプリケーション定義またはオブジェクト定義エラー”になってしまいます。
これを解決する方法を教えて下さい。
No.1
13539
1198
65pt
最初の質問のほうで
Set PrintSheet = Worksheets("A")
Set PrintSheet = Worksheets("B")
とやってますね。
もしかしたら DataSheetの Setが なかったりしませんか？
Mookさんの回答では
Set DataSheet = Worksheets("A") '★★★ どっちかはデータシート？：とりあえずAを変更
とやってますが、これを修正して
Set PrintSheet = Worksheets("A") '★★★ どっちかはデータシート？：とりあえずAを変更
とかにしていませんか？
SALINGER
2008/07/16 17:37:55
1
1
4
1
2
2
1
27
27
ありがとうございます。
確かめたら、最初の質問の入力が間違っていて、マクロ上ではきちんと”Ｂ”はDataSheetに定義してあるんです。
その他の原因は何だか分からないんです・・・