左移位单元格将空白列添加到表格的末尾

Question

我有M8-V68之间的数据，用户输入他们的可用性＆＃39; Y＆＃39;或者＆＃39; N＆＃39;它包括连续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行。如果没有，您需要相应调整。