質問: 「セルの書式が多すぎるため、書式を追加できません」 エクセル2010を使っていて、 ワードをコピーしてエクセルに貼り付けをしようとしたら、 「セルの書式が多すぎるため、書式を追加できません」が表示され、何度okボタンを押しても、罰ボタンを押しても、消せません。 今までもワードからエクセルにコピペすることはあったのですが 今回のような表示が出たのは初めてです。 ワードは1ページ、エクセルは2mbです。 そんなに容量が多いとは思えません。 http://www.excel.studio-kazu.jp/tips/0018/ を見ると、2010の場合は、 書式の数の制限が 64000とのことですが、 そんなにあるとは思えません。 これはタスクマネージャーから強制終了するしかないのでしょうか? 原因と今後の対策を教えてください。
回答: 私にわかる範囲で、で申し訳ないですが・・ まず、 > タスクマネージャーから強制終了するしかないのでしょうか? 頑張ってokボタンを押し続けると何とかなりますが、 何回押せばいいか・・はケースバイケースです。 気が遠くなるくらい押し続けなければならないことも結構あります。 ですので、諦めて強制終了が賢いかもしれません。 では、原因。 これもケースバイケースですが、よくあるパターンだと 「余計なスタイル・ハイパーリンクなどの拡張書式」がくっついてくるケースが多いです。 ちなみに、ワードでa4サイズ(デフォルト書式)で 1ページにいっぱいのひらがなを打ち込んだ場合は1,440文字。 これをエクセルで新規ブックに貼り付けてxlsx形式で保存してやると、サイズは9kbです。 例えば、ワードで各行末に改行が入っているとしても、サイズは10kbですので、 > ワードは1ページ、エクセルは2mbです。 これは「新規ブックにワードから貼り付けているのだとしたら」かなり大きいと言えます。 それだけ余計な書式が多く含まれている、とご理解頂けるでしょう。 対策として考えられること。 ワードでコピーし、エクセルに貼り付ける際に、 「貼り付け先の書式に合わせる」を使って貼り付けると、 純粋にテキスト部分だけを貼り付けることが出来ます。 ワードのソレに合わせて書式を組み直すのは手間かもしれませんが、 この場合はソレが最良の対策と言えます。 あるいは、既存の2mbのブックに貼り付けるのだとしたら、 このブックに設定されているスタイルを削除してみると、 サイズダウン出来るかもしれません。 (例示しますが、お使いになる前にバックアップを忘れずに。) sub del_style() dim myrng as range for each myrng in range(range("a1"), range("a1").specialcells(xllastcell)) select case myrng.style case "どちらでもない", "出力", "currency [0]" '↑消したくないスタイルを列記 case else myrng.style = "normal" end select myrng.hyperlinks.delete 'ついでにハイパーリンクも削除 next end sub こんな感じです。 各シートでこれを走らせてやると良いと思います。 数秒、時間がかかります。 ところで、ご提示のリンク先からのリンク先(ややこしいな)は、ご覧になりましたか? http://okwave.jp/qa/q7297027.html 組み込まれた「不要なスタイル」を消す方法など、詳しく書いてありますので、 まだご覧になっていないのであれば、ご一読されることをオススメします。 根本的な解決にはならないかもしれませんが、ひとまず参考までに。