エクセルの列挿入に関して

質問

質問１
全てのワークシートを選択し列の挿入をすると「Excelが原因でEXCEL.EXEにエラーが発生しました。Excelは終了します。」というエラー表示が出てしまいます。ただし、１枚のワークシートだけだと列の挿入はできます。ワークシートは２２枚有り、１枚のワークシートの大きさは（列CE行１６）で、計算式は約６０ぐらいのセルに入れてあります。原因と対処を教えてください。
質問２
上記のエラー発生後、同じファイルを選択すると「〇〇は編集のためロックされています。」という表示が出て読取専用になり、編集後の上書保存ができません。プロパティの下にある属性欄の「
読取専用」にはチェックが入っていません。読取専用をはずすにはどうしたらいいですか。
よろしくお願いします。

回答No.4

kenken0001 · ベストアンサー

質問１に回答します。
繰り返し同じ作業をするのであれば
下記のマクロを使ってみてください。
１．シートを選択
２．列を選択
３．「挿入」とするところで
下のマクロを実行します。

内容は、指定されたシートを
１枚ずつ個別に選んで
選択された列の挿入をしていきます。
一度にやらずにわざと分解作業にしています。
効果があるか分かりませんが、
良ければ試してみてください。

'*****ココカラ*****
Sub 一括列挿入()
Dim シート名 As Worksheet

選択範囲 = Selection.Address

For Each シート名 In Worksheets

シート名.Select

Columns(選択範囲).Select
Selection.Insert Shift:=xlToRight

Next
End Sub
'*****ココマデ*****

マクロの使い方、準備について
不明な点は質問ください。

alt+F11を押してＶＢＥを起動
挿入－標準モジュールを選択し
ココカラ～ココマデの部分をコピーして貼付け。
エクセルシートに戻り作業開始
１．シート選択、２．列選択、
３．ツール－マクロ－マクロ－「一括列挿入」を選択して実行

行挿入はできません。（列挿入のみ）
これでもうまくいかない時は
各作業ごとに少し時間を置いてやらせる
方法もあります。

１回だけとか、たまになら
シート数を減らして
何回かに分けた方が早いです。

お礼

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

回答No.3

kbonb

こんにちは

　以下のページがご参考になるのでは？

[XL2000] 「ファイルは編集のためロックされています」メッセージについて
http://www.microsoft.com/japan/support/kb/articles/J056/5/83.asp

[XL2000]強制終了およびハングアップの際のチェック項目
http://www.microsoft.com/japan/support/kb/articles/J023/4/22.asp

参考URL：

http://www.microsoft.com/japan/support/kb/articles/J056/5/83.asp

お礼

回答ありがとうございました。確認してみます。

回答No.2

k_345

Excelは、一つのファイルにシート数が多いとエラーを起こしやすくなります。
ですから、質問1に関しては、一度に全てのシートに列を挿入せずにナンシートずつかに分けて挿入するか、ファイル自体のシート数を10くらいに減らされたほうがいいかと思います。

質問2については下の方も書かれているように、Excelを再起動、それでもダメならWindows自体を再起動すれば直るのではないでしょうか？

お礼

回答ありがとうございました。確認してみます。

補足

シート数が２２シートあります。これが問題なのでしょうか。

回答No.1

yuu200

質問１は分からないです。
質問２のほうは異常終了したからではないですか？
再起動すれば直るような・・・
直らなかったらすみません。

お礼

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