基于Column X数据复制列内容并计算日期差的VBA实现求助

需要处理工作表数据，需求如下：

• X列每行的有效数据行数不固定
• 当X列对应行有值时，若Y列同行为空，将N列同行的值复制到Y列空白处
• 最终计算Z列日期减去Y列日期的月数时长

现有测试代码存在语法问题，无法实现需求：

Sub Test()

Dim i As Integer
 
NumRows = Range("N2", Range("N2").End(xlDown)).Rows.Count
 
Range("X2").Select
 
For i = 1 To NumRows
 
    If Cells(1 + X, 1) <> "" Then

        Cells(1 + n, 1).Select

                Selection.Copy
 
Range("Y").PasteSpecial Paste:=xlPasteValues
   
    ActiveCell.Offset(1, 0).Select
    
    Next

End If
End Sub

Sub ProcessData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要处理的工作表，可根据实际修改名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据的最后一行（以X列为基准，避免N列提前结束）
    lastRow = ws.Cells(ws.Rows.Count, "X").End(xlUp).Row
    
    ' 遍历从第2行开始的数据行
    For i = 2 To lastRow
        ' 检查X列当前行是否有值，且Y列当前行为空
        If ws.Cells(i, "X").Value <> "" And ws.Cells(i, "Y").Value = "" Then
            ' 将N列的值复制到Y列
            ws.Cells(i, "Y").Value = ws.Cells(i, "N").Value
        End If
        
        ' 计算Z列减Y列的月数，结果放在AA列（可自行修改目标列）
        If IsDate(ws.Cells(i, "Z").Value) And IsDate(ws.Cells(i, "Y").Value) Then
            ws.Cells(i, "AA").Value = DateDiff("m", ws.Cells(i, "Y").Value, ws.Cells(i, "Z").Value)
        End If
    Next i
End Sub

• 避免使用Select/Selection：直接通过工作表对象引用单元格，提升代码效率和稳定性
• 正确获取最后一行：以X列为基准确定数据范围，避免因N列数据不完整导致遗漏行
• 条件判断逻辑：先检查X列有值且Y列为空，再执行复制操作
• 日期月数计算：使用DateDiff函数计算两个日期的月差，同时添加日期有效性检查，避免报错
• 可自定义部分：工作表名称、月数结果存放列（当前为AA列）可根据实际需求修改

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