VBA从AA3到最后一行逐行取X/Y/Z值生成DateSerial值

• 日期生成逻辑放在循环外，仅读取了第3行X/Y/Z列的值，后续所有行写入的都是第3行生成的固定日期，不会随行号更新
• 循环内的cell.Offset(-3).Value等语句无赋值操作，属于无效代码，且Offset参数使用错误：需要取当前行左侧列的值时，应指定列偏移参数，原代码仅传入行偏移参数，会向上取错误行的单元格
• 代码中使用的LastRow变量未定义、未赋值，运行时会直接抛出变量未定义错误

Sub WriteDateToAA()
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    Dim MyDate As Date
    Dim oRange As Range, cell As Range
    Dim LastRow As Long
    
    ' 取X列最后一个有数据的行号作为循环终止行，可根据实际数据列调整
    LastRow = Cells(Rows.Count, "X").End(xlUp).Row
    
    Set oRange = Range("AA3:AA" & LastRow)
    
    For Each cell In oRange
        ' 读取当前行对应的X、Y、Z列值：X列在AA列左侧3位，Y列左侧2位，Z列左侧1位
        x = CInt(cell.Offset(0, -3).Value)
        y = CInt(cell.Offset(0, -2).Value)
        z = CInt(cell.Offset(0, -1).Value)
        
        ' 生成日期写入当前行AA列
        MyDate = DateSerial(z, x, y)
        cell.Value = MyDate
        ' 如需统一日期格式可取消下一行注释，按需修改格式字符串即可
        ' cell.NumberFormat = "yyyy-mm-dd"
    Next cell
End Sub

• 补充LastRow的取值逻辑，从工作表最大行号开始向上定位X列最后一个非空单元格，避免循环范围错误
• 将X/Y/Z列值的读取、日期生成逻辑全部移入循环内部，每遍历一行就读取本行的三个参数生成对应日期，保证数据逐行匹配
• 修正Offset偏移参数：Offset(行偏移量, 列偏移量)，取同行左侧列时行偏移量设为0，列偏移量设为对应负数，删除原代码中无意义的无效语句
• 明确MyDate的变量类型为Date，避免隐式类型转换导致的日期异常

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