求满足双条件的VBA代码：E列为空且AJ列非空时复制上方单元格

嘿，刚接触VBA不用慌，我来帮你搞定这个问题～你的需求是当E列单元格为空，且对应AJ列单元格不为空时，复制E列上方的单元格内容，现有代码的问题就是没加入AJ列的条件判断，所以不管AJ列是什么状态，只要E列空就复制，不符合预期。

先给你修正后的完整代码，每一步都加了注释，方便你理解：

Sub CopyFIN()
    ' 功能：当E列单元格为空且对应AJ列单元格不为空时，复制E列上方单元格的内容
    Dim lr As Long
    Dim rcell As Range
    Dim colE As Range ' 明确指向E列，避免列号混淆
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升代码运行速度
    
    ' 获取E列最后一行的行号（确保遍历到所有需要处理的行）
    lr = Cells(Rows.Count, "E").End(xlUp).Row
    ' 设定要遍历的E列范围（从第2行开始，因为第1行一般是表头，不需要复制上方）
    Set colE = Range("E2:E" & lr)
    
    ' 逐个遍历E列的单元格
    For Each rcell In colE
        ' 核心判断：E列空 且 AJ列非空
        ' AJ列是E列往右偏移31列（E是第5列，AJ是第36列，36-5=31）
        If IsEmpty(rcell) And Not IsEmpty(rcell.Offset(0, 31)) Then
            ' 把上方单元格的内容赋值给当前单元格
            rcell.Value = rcell.Offset(-1, 0).Value
        End If
    Next rcell
    
    Application.ScreenUpdating = True ' 恢复屏幕刷新
    MsgBox "处理完成！", vbInformation ' 弹出提示，告诉你操作结束
End Sub

关键修改点说明 #

• 修正了列号错误：原代码里lr = Cells(Rows.Count,6)...的6是F列，我改成了直接用"E"来指定列，更直观不容易错
• 加入了AJ列的条件判断：用Not IsEmpty(rcell.Offset(0,31))来检查对应AJ列的单元格是否不为空，这是你之前代码缺失的核心逻辑
• 优化了遍历范围：明确从第2行开始遍历（如果你的表头不在第1行，记得改成对应的行号），避免处理表头
• 增加了用户反馈：最后弹出提示框，让你知道代码运行完毕

给新手的小建议 #

• 可以按F8键一步步运行代码，观察每一步的执行情况，能更快理解VBA的运行逻辑
• 运行代码前最好先备份数据，避免误操作导致数据丢失
• 如果需要复制格式而不只是内容，可以把rcell.Value = ...改成rcell.Offset(-1,0).Copy rcell

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