| |
▼MMX さん：
>現象
>・データの存在するシートを元に、別のシート上で自動作表を行っています。
>・作表作業を行うシートは、実行毎に「Cells.Delete」でクリアしてます。
>・作表は、元データのレイアウトを採用しつつ、
> 「率欄」などの追加項目を列挿入して罫線・着色編集を行っています。
>
> この作表処理を何度か繰り返していると
> 以下のような警告が表示されて処理が進められなくなってしまいます。
>
> 「実行時エラー'1004'
> データの消失を防ぐために、空白でないセルをワークシートの外に
> シフトすることはできません。はみ出してしまう右側または下側のセルを
> 削除またはクリアしてみてください。その後〜ブックを保存して最後のセルを
> リセットしてください」
>
> 恐らく「Cells.SpecialCells(xlLastCell).Address」が
> 大きくなってしまうのが原因のような気がしますが
> このアドレスは再設定、若しくは初期化する事はできないのでしょうか？
> これについて、ご存じの方いませんでしょうか？
質問内容の正確な解答ではありませんが、
使用済み最後のセルが空白であれば、範囲外に追い出すことは出来るので、
Worksheets("Sheet1").UsedRange
等で代用できないでしょうか？
|
|
G-Luck
- 05/2/23(水) 15:42 -
