「セルの書式が多すぎるため、書式を追加できません」

質問

エクセル２０１０を使っていて、
ワードをコピーしてエクセルに貼り付けをしようとしたら、
「セルの書式が多すぎるため、書式を追加できません」が表示され、何度OKボタンを押しても、罰ボタンを押しても、消せません。

今までもワードからエクセルにコピペすることはあったのですが
今回のような表示が出たのは初めてです。

ワードは1ページ、エクセルは２ＭＢです。
そんなに容量が多いとは思えません。

http://www.excel.studio-kazu.jp/tips/0018/
を見ると、2010の場合は、
書式の数の制限が 64000とのことですが、
そんなにあるとは思えません。

これはタスクマネージャーから強制終了するしかないのでしょうか？
原因と今後の対策を教えてください。

回答No.1

tsubuyuki · ベストアンサー

私にわかる範囲で、で申し訳ないですが・・

まず、
> タスクマネージャーから強制終了するしかないのでしょうか？
頑張ってＯＫボタンを押し続けると何とかなりますが、
何回押せばいいか・・はケースバイケースです。
気が遠くなるくらい押し続けなければならないことも結構あります。
ですので、諦めて強制終了が賢いかもしれません。

では、原因。
これもケースバイケースですが、よくあるパターンだと
「余計なスタイル・ハイパーリンクなどの拡張書式」がくっついてくるケースが多いです。

ちなみに、ワードでＡ４サイズ（デフォルト書式）で
１ページにいっぱいのひらがなを打ち込んだ場合は１，４４０文字。
これをエクセルで新規ブックに貼り付けてＸＬＳＸ形式で保存してやると、サイズは９ＫＢです。
例えば、ワードで各行末に改行が入っているとしても、サイズは１０ＫＢですので、
> ワードは1ページ、エクセルは２ＭＢです。
これは「新規ブックにワードから貼り付けているのだとしたら」かなり大きいと言えます。
それだけ余計な書式が多く含まれている、とご理解頂けるでしょう。

対策として考えられること。
ワードでコピーし、エクセルに貼り付ける際に、
「貼り付け先の書式に合わせる」を使って貼り付けると、
純粋にテキスト部分だけを貼り付けることが出来ます。
ワードのソレに合わせて書式を組み直すのは手間かもしれませんが、
この場合はソレが最良の対策と言えます。

あるいは、既存の２ＭＢのブックに貼り付けるのだとしたら、
このブックに設定されているスタイルを削除してみると、
サイズダウン出来るかもしれません。
（例示しますが、お使いになる前にバックアップを忘れずに。）

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
組み込まれた「不要なスタイル」を消す方法など、詳しく書いてありますので、
まだご覧になっていないのであれば、ご一読されることをオススメします。

根本的な解決にはならないかもしれませんが、ひとまず参考までに。

お礼

ありがとうございました。