こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

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

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

投稿日時 - 2013-07-10 20:41:04

QNo.8170910

困ってます

質問者が選んだベストアンサー

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


まず、
> タスクマネージャーから強制終了するしかないのでしょうか?
頑張って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
組み込まれた「不要なスタイル」を消す方法など、詳しく書いてありますので、
まだご覧になっていないのであれば、ご一読されることをオススメします。



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

投稿日時 - 2013-07-10 23:08:48

お礼

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

投稿日時 - 2013-07-27 11:32:34

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問