如何创建VBA宏，以上月MM-YY格式匹配Excel工作表标签

原代码的问题 #

• VBA中不能直接使用Excel工作表函数TEXT()和TODAY()，需改用VBA内置日期处理函数
• 工作表名称拼接错误，未将变量Month和Year插入到目标字符串中
• 缺少错误处理逻辑，若目标工作表不存在会直接报错

修正后的VBA代码 #

查找「Keeps MM-YY」格式的工作表 #

Sub KeepsTab()
    Dim lastMonthDate As Date
    Dim monthStr As String
    Dim yearStr As String
    Dim targetSheetName As String
    
    ' 获取上月最后一天的日期（用于提取年月，跨年份场景更可靠）
    lastMonthDate = DateSerial(Year(Date), Month(Date), 0)
    ' 格式化为MM和YY格式的字符串
    monthStr = Format(lastMonthDate, "MM")
    yearStr = Format(lastMonthDate, "YY")
    
    ' 拼接目标工作表名称
    targetSheetName = "Keeps " & monthStr & "-" & yearStr
    
    ' 检查工作表是否存在，存在则选中，不存在则提示
    On Error Resume Next
    Sheets(targetSheetName).Select
    If Err.Number <> 0 Then
        MsgBox "未找到工作表：" & targetSheetName, vbExclamation
    End If
    On Error GoTo 0
End Sub

扩展：查找「Keeps and Drops MM-YY」格式的工作表 #

只需修改目标名称的拼接部分：

targetSheetName = "Keeps and Drops " & monthStr & "-" & yearStr

代码说明 #

• DateSerial(Year(Date), Month(Date), 0)：VBA中获取上月最后一天的标准写法，比TODAY()-DAY(TODAY())更稳定，能自动处理跨年场景（比如1月的上月为去年12月）
• Format()函数：VBA中用于格式化日期为指定字符串格式，替代Excel的TEXT()函数
• 错误处理逻辑：避免因工作表不存在导致宏崩溃，同时给用户明确的提示信息

内容的提问来源于stack exchange，提问作者TuckNorris