セルをシフトしたままにして空白の列をテーブルの末尾に追加します

Question

私はM8-V68の間にデータを持っていますが、ユーザは「Y」または「N」としてその空き状況を入力します。それは10日連続で、日々は毎日シフトしています（関数=今日までに）。私は、日々の変化に合わせてユーザーが提供するデータをシフトする必要があります。

だから、アイデアは、私は明日の文書を開くと、私は以下を参照してくださいしたいと思い、

  02/11 03/11 04/11 
Mark  Y  Y  N 
Kate  N  Y  Y 

を、以下のようなものです、

  03/11 04/11 05/11 
Mark  Y  N 
Kate  Y  Y 

ので、2月11日のデータが削除され、他はシフトされる。私が指摘したように、日付は既に私が望むようにシフトしているので、私が望むのはデータが左にシフトし、次の日付の新しい列が空白になります。あなたはVBAに開放している場合は

Answer 1

が、これはトリックを行うだろう：

Sub AddNewDate() 
    Columns("M:M").Delete Shift:=xlToLeft 
    Range("V8").Value = Int(VBA.Now + 10) 
    Range("V8").NumberFormat = "DD/MM" 
End Sub 

それはあるいはあなたと大丈夫であってもなくてもよい、最終的にあなたのヘッダー内の数式を、上書きされます。ない場合は、あなたがこれを行うことができます：

Range("M9:M69").Delete Shift:=xlToLeft 

を私はあなたの日付を想定していない場合は、行8であり、あなたはそれに応じて調整する必要があります。