实现思路 #

要搞定这个需求，核心是精准构造年月对应的日期范围——Excel的AutoFilter是基于单元格实际日期值（不是显示的文本格式）筛选的，直接搜"Jan/2020"这类文本可能会踩坑。具体步骤：

1. 确定目标工作表和数据区域；
2. 根据指定年月，算出该月的起始（比如2020/1/1）和结束日期（2020/1/31）；
3. 对日期列应用AutoFilter，筛选出范围内的行；
4. 提取筛选后的可见单元格，把对应列的值复制/计算到目标区域。

VBA代码示例 #

Sub FilterByMonthYearAndCopyValues()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim targetRange As Range
    Dim targetMonth As Integer, targetYear As Integer
    Dim startDate As Date, endDate As Date
    
    ' 自定义参数：替换成你的实际信息
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    targetMonth = 1 ' 目标月份
    targetYear = 2020 ' 目标年份
    Set dataRange = ws.Range("A1:D100") ' 假设数据在A1:D100，首行是表头
    Set targetRange = ws.Range("F2") ' 结果从F2开始粘贴
    
    ' 构造筛选的日期范围
    startDate = DateSerial(targetYear, targetMonth, 1)
    endDate = DateSerial(targetYear, targetMonth + 1, 0) ' 自动获取当月最后一天
    
    ' 先清除之前的筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 对A列（第1列）应用日期范围筛选
    dataRange.AutoFilter Field:=1, Criteria1:=">=" & startDate, _
        Operator:=xlAnd, Criteria2:="<=" & endDate
    
    ' 复制筛选后可见区域的B列（第2列）值到目标区域
    dataRange.Columns(2).SpecialCells(xlCellTypeVisible).Copy
    targetRange.PasteSpecial Paste:=xlPasteValues
    
    ' 收尾：清除筛选、取消复制状态
    ws.AutoFilterMode = False
    Application.CutCopyMode = False
End Sub

先给结论：这些场景完全不需要VLOOKUP！VLOOKUP适合有「键-值对照表」的匹配场景（比如用年月查对应部门），而你的需求都是基于自身日期的批量处理/标记，用AutoFilter（批量操作行）或直接遍历/数组处理（更灵活）才是最优解。下面分场景拆解：

场景1：按年月筛选后，对应行另一列填充“Month-Yes” #

实现思路

用AutoFilter锁定目标年月的行，然后给可见单元格批量赋值，比逐行遍历效率高很多（数据量大时尤其明显）。

VBA代码示例

Sub MarkFilteredRows()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim targetMonth As Integer, targetYear As Integer
    Dim startDate As Date, endDate As Date
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    targetMonth = 1
    targetYear = 2020
    Set dataRange = ws.Range("A1:D100") ' 日期在A列，要填充的是D列
    
    ' 构造日期范围
    startDate = DateSerial(targetYear, targetMonth, 1)
    endDate = DateSerial(targetYear, targetMonth + 1, 0)
    
    ' 清除旧筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 筛选目标年月的行
    dataRange.AutoFilter Field:=1, Criteria1:=">=" & startDate, _
        Operator:=xlAnd, Criteria2:="<=" & endDate
    
    ' 给可见行的D列（第4列）赋值，跳过表头
    dataRange.Columns(4).Offset(1).SpecialCells(xlCellTypeVisible).Value = "Month-Yes"
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub

场景2：当“CreationDate”为Jan/2020时，“Month_Yr”列填01_2020 #

实现思路

两种方式可选：

1. 只想处理特定年月的行：用AutoFilter筛选后批量赋值（和场景1逻辑一致）；
2. 要给所有行动态转换格式：直接用Format函数遍历处理，更灵活（比如所有行都要转年月格式）。

VBA代码示例（遍历所有行版本）

Sub ConvertDateToMonthYearFormat()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取A列最后一行
    
    ' 遍历A列（CreationDate），填充B列（Month_Yr）
    For i = 2 To lastRow ' 跳过表头行
        If IsDate(ws.Cells(i, "A").Value) Then
            ' 全局转换：所有日期都转成mm_yyyy格式
            ws.Cells(i, "B").Value = Format(ws.Cells(i, "A").Value, "mm_yyyy")
            
            ' 只针对Jan/2020的行：打开下面注释
            ' If Format(ws.Cells(i, "A").Value, "mmm/yyyy") = "Jan/2020" Then
            '     ws.Cells(i, "B").Value = "01_2020"
            ' End If
        End If
    Next i
End Sub

场景3：检查A列日期，仅将年月写入B列 #

实现思路

完全不需要筛选或VLOOKUP，直接用Format函数提取年月即可。数据量大的话，用数组批量处理比逐行遍历快N倍。

VBA代码示例（数组批量处理）

Sub ExtractMonthYearToColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dateArr As Variant
    Dim resultArr As Variant
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRow < 2 Then Exit Sub ' 没有数据直接退出
    
    ' 把A列数据读入数组（提速关键）
    dateArr = ws.Range("A2:A" & lastRow).Value
    ReDim resultArr(1 To UBound(dateArr, 1), 1 To 1) ' 初始化结果数组
    
    ' 批量处理数组里的日期
    For i = 1 To UBound(dateArr, 1)
        If IsDate(dateArr(i, 1)) Then
            resultArr(i, 1) = Format(dateArr(i, 1), "mm_yyyy") ' 可改成"yyyy-mm"等格式
        Else
            resultArr(i, 1) = "" ' 非日期值留空
        End If
    Next i
    
    ' 把结果写回B列
    ws.Range("B2:B" & lastRow).Value = resultArr
End Sub

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