エクセルVBA 表を小さく縦スクロールを小さく

質問

VBAのLOOPを　バグって　表が　大きくなりました。

余分のデータは小さくしたのですが、縦スクロールが　小さく成りません。

マクロ記録で　下記をやってみたのですが、効果ありません。
どこで、間違ったのでしょうか？

Selection.SpecialCells(xlCellTypeLastCell).Select
Rows("291964:291964").Select
Selection.Delete Shift:=xlUp
Columns("BH:BH").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.LargeScroll ToRight:=-3
ActiveWindow.LargeScroll Down:=-1
Range("A1").Select
ActiveWorkbook.Save

それとも、縦スクロールを現実データに反映させる方法は別にあるのでしょうか？
よろしくどうぞ

回答No.3

root8110

うちのExcel2013では反映されるんだけどなんでかな。
後は、新しいファイルに要る分だけコピペするくらいしか思いつかない。

お礼

お世話様

コピペも　コードもたくさんあるので、シートのコピーだけで手間も結構・・・

結局　マクロじゃなく　コードに　書いて　実行した
同じだと思うんだけど

まあ、不可解ながら、終わりました

回答No.2

root8110

No.1です。
表の下のほうに余分なデータができてしまったため、縦スクロールのマウスでつかめる部分（で通じるかな？）がすごく短くなってしまったのかと思い、要らないデータを消せばいいのかと思ったのですが、ではどういう状況なんでしょうか。
言葉で説明しにくければ、画像付きで質問しなおしてもらえば状況が分かって回答しやすいかもしれません。

お礼

要は　そういう事。

データを削除しても　スクロールバーの　大きさに反映されないってことで、
基本は　削除の後、セーブして開きおすのが、要領らしいが、反映されない。

エクセルは　2010　このあたりに何かあるのかも・・・・

回答No.1

root8110

念のため、ファイルをバックアップしてから実行してください。
仮に100行目以降が要らない行とすると、

Range("100:291964").Delete
ActiveWorkbook.Save

でどうでしょうか。
「100」の部分は実際のデータにあわせて変えてください。

お礼

お世話様
Delete　の事じゃないんですが・・・・