Excel VBAを使用して列を上書きして元の列を削除する

Question

スクリプトを簡略化する作業をしていましたが、一番左側の空いている列まで範囲の列をコピーするスクリプトを作成したかったのです。その後、元の列を削除します。

私はこのスクリプトを微調整して、私が欲しいものをほとんど見つけ出しました。すべてをコピーしますが、削除しません。

また、上記の列範囲内のどの行を参照するかを選択できるようにする必要があります。

誰かがスクリプトを見て、私が始めたことを終えるのを手伝ってもらえますか？私はExcel VBAをゆっくりと学びました。私の仕事は私が準備が整う前に複数の方向に前進していましたので、コピーと削除のオプションは単純にすべきですが、私の仕事のためにいろんなことを正しく学ぶ時間がなかったので、これは簡単な答えですが残念ですが、このスクリプトを可能な限りリーンにしておく必要があります。これは私が知っているものコードとヘルプのためのインターネット。

Option Explicit 

Sub MoveColumns() 

    Dim cel As Range 

    With ActiveSheet 
     For Each cel In Intersect(.UsedRange, .[B:N]).SpecialCells(xlCellTypeBlanks).Cells 
      cel = cel.Offset(0, 1) 
     Next 
    End With 
End Sub 

ありがとうございます。

Answer 1

メインの下でデータを気にしない、私はこのスクリプトを実行するときに、それはそれの下に何も実行され、それを取り除くするスクリプトを持っています。コピーG：GをF：Fに移動し、G：Gを削除し、H：HをG：Gに移動し、H：Hを削除し、すべての列がスペースなしで並べられるまで続行したい場合その間に重複はありません。何をしたい

は、物事を移動する複雑な方法です。最も簡単な方法は、空白の列を削除することです。残りの列は自動的に行194

はHTH