• 系统环境：Windows 10
• Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块，本文涉及的是：时间与日期

今天讲讲如何获取昨天是几号

Part 1：场景介绍

• 已知一列日期，求其上一天是几号

Part 2：代码

Sub test()    
    Rem>>昨日之日不可留 今日之日多烦忧    
    Rem>>    

    Dim today    
    Dim yesterday  
      
    Set sht = ThisWorkbook.Worksheets("示例")
    maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row
        
    For i = 2 To maxRow Step 1
        today = sht.Cells(i, "A")
        yesterday = DateAdd("d", -1, today)
        sht.Cells(i, "B") = yesterday    
    Next i
End Sub

Part 3：部分代码解读

1. yesterday = DateAdd("d", -1, today)，在已知时间的基础上按照固定时间间隔进行计算获取新的时间点
2. DateAdd(间隔单位,间隔数值,基础值)，间隔数值可正可负，正值表示未来，负值表示过去

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条