vba - vbaを使用してExcelの既存の列の前に20行の空の列を追加する

Question

今日、私は非常に簡単かもしれない問題に直面していますが、私は VBA に習熟していないので難しいです。

シナリオは、列全体を挿入してから列をその列にコピーすると、Excel ファイルのサイズが数 MB になるというものです。実は、簡単に共有できるように、ファイルスペースを最小限に抑えたいと思っています。

私の質問：すべての行ではなく、特定の行の列をコピーして貼り付ける方法はありますか。この方法では、ファイルのサイズが MB ではなく数 KB になるためです。

ファイルサイズを減らすための効率的な解決策を提案してください。

Answer 1

マクロ レコーダーをオンにして、必要な操作を行い、生成されたコードを確認すると、VBA でこれを行う方法を確認できます。

具体的には、最初に範囲オブジェクトで .Insert メソッドを引数 Shift:=xlToRight と共に使用してスペースを作成し、.Copy と .Paste を使用して新しくクリアしたスペースに範囲をコピーします。

Range("C1:C2").Insert Shift:=xlToRight
Range("A1:A2").Copy
Range("C1").Select
ActiveSheet.Paste