向左移位單元格將空白列添加到表格末尾

Question

我在M8-V68中有數據，用戶輸入其可用性爲'Y'或'N'。它包括連續10天，日子每天都在變化（按功能= TODAY（））我需要在日子在變化的時候將用戶提供的數據轉移。

所以，這個想法是像下面，

  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 

因此，對於02/11數據被刪除，其他人轉移。正如我所指出的那樣，日期已經隨着我的意願而變化，所以我想要的只是數據向左移動，即將到來的日期的新列將是空白的。

Answer 1

如果你打開VBA，這會做的伎倆：

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行。如果不是，你將需要相應地進行調整。