Excel中设置日期2024/01/01为2024/01，且VBA也为2024/01

VBA（宏）代码：

设置单个单元格日期

Sub SaveCustomDate()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的Sheet名称
    Dim rng As Range
    Set rng = ws.Range("A1") ' 修改为你想输入日期的单元格范围

    ' 设置单元格格式为自定义格式
    rng.NumberFormat = "yyyy/mm"

    ' 在单元格中输入日期
    rng.Value = "2019/01"
End Sub

设置多个单元格日期，循环

Sub SaveCustomDateRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("2024年-Top-P系列") ' 你的Sheet名称
    Dim i As Integer

    ' 循环从1到12，代表月份
    For i = 1 To 12
        ws.Cells(i + 1, 2).NumberFormat = "yyyy/mm" ' 设置格式
        ws.Cells(i + 1, 2).Value = Format(DateSerial(2024, i, 1), "yyyy/mm") ' 设置值
    Next i
End Sub