Question

如果E中的单元格为空且AJ不是空的，则查找VBA以复制上面的单元格（在E列中）。目前这是复制上面的单元格，但没有考虑AJ列。相当新的VBA，不知道我哪里出错了。任何输入都非常感谢。

{{1}}

Answer 1

试试这个。你的第一个循环没有做任何事情，你的第二个循环只是检查E列。

Sub CopyFIN() 'copies FIN from account above if E is empty and AJ is anything other than empty

Dim lr As Long
Dim rcell As Range
Dim col As Range

Application.ScreenUpdating = False

lr = Cells(Rows.Count, 6).End(xlUp).Row
Set col = Range("E12:E" & lr)

For Each rcell In col
    If Len(rcell) = 0 And Len(Cells(rcell.Row, "AJ")) > 0 Then
        rcell.Offset(-1, 0).Copy rcell
    End If
Next

Application.ScreenUpdating = True

End Sub

如果满足来自单独列的2个条件，则复制上面的单元格

1 个答案: