(_最初に見たときに思ったほど時間はかかりませんし、安全です!)
以下の手順では、2つのシートがあります。
元のシートを YourOriginalSheet と呼んでみましょう(これは元のシートの実際の名前を表します)。
もう一方のシート ShortSheet を呼び出してみましょう。
(1) YourOriginalSheet, Select, Copy に関連するセルの範囲を記入する(まだどこにも貼り付けないでください)。
(2) ShortSheetという名前の新しいシートを追加し、_コピーする範囲の**左上隅*を表すセル(おそらくA1)にカーソルを入れて、このように貼り付ける。
(2a) Paste Special... > Formulas [右クリックして左上隅のセル]
(2b) Paste Special... > Values
(2c) Paste Special...
(2d) Formats
(2e) シートの見栄えを良くするのに役立ちそうな他のPaste Special...
オプションを入れてください。
(3) Column Widths を押して、Paste Special の右下隅を見つけ、関連するデータがすべて含まれていることを確認する。
(4) Ctrl-Shift-End ワークブックを作成する。
(5) ShortSheetを削除 (関連データは現在Saveに保存されています)
(6) Save As ...の名前を元のシートの実際の名前に変更YourOriginalSheetmacroShortSheetSelectShortSheetCopy`.
Nothing has changed except to make the workbook a lot smaller, so all macros, external references to this worksheet, etc. should still work.
Here is a Personal.xlsb to accomplish the steps in (2).
0x1&
_Before using the macro, Ctrl + Shift + Vを押して、それに変更します。