VBA - 自然な 'Excel cant insert new cells'エラー

Question

非常に大きなマクロで作業しています。

私は、他のものに取り組むために2日間プロジェクトを停止しました。

私は戻ってそれを選んだ、と今私は1004ランタイムエラーを取得：

Microsoft Excel can't insert new cells because it would push non-empty cells off the end of the worksheet. These cells might appear empty but have blank values, some formatting, or a formula. Delete enough rows or columns to make room for what you want to insert and try again.

エラーがコードにここに提示：

Sub Initial_Setup() 

    'Create Transform Tab 

     Sheets.Add Before:=Worksheets("Lists") 
     ActiveSheet.Name = "Transform" 

    'Copy Raw Data Over 

     Sheets("Sitedata").Select 
     Cells.Select 
     Selection.Copy 
     Sheets("Transform").Select 
     Range("A1").Select 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 

    Columns("A").Select 
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

アイブ氏はこれを調査し、原因が隠された文字から範囲ペインをもう一度フリーズするために自動入力することができます。

ここはキッカーですが、これだけではこのエラーが発生していません。データを移動する方法は関係ありません。 Special Paste、VBAはペーストされたすべてのセルを空でないセルとして扱います。 Range（ "A1"）。Value = Range（ "A1"）.VBAは、貼り付けられたすべてのセルを空でないセルとして扱います。

私が= Len（）テストを行う場合、0文字です。私が= IF（a1 = ""、 "x"、 ""）を行う場合、その "x"をテストします。私が= CountA（）を実行すると、1が得られます。Ctrl + endは実際のデータセットの終わりで右端の一番遠い列ではなく、AA3086になります。

回避策は、 "Cells.Select"をよりターゲットを絞った参照に変更しようとしていますが、これはさまざまな場所でのパッチ適用の始まりになります。

他の誰かがこのようなことを経験したことがありますか、過去2〜3日間に経験したことがありますか？

ありがとう、

Answer 1

私はエラーメッセージが正確に何を意味すると思いますか？マクロが行を挿入する限り、そのメッセージがトリガーされます。あなたが新しいシートでそれを試しても、問題はありませんか？