关于VBA宏代码修正的求助，我下面的代码怎么实现S列和AR列数据小于0复制到欠款提醒...

tiankongdeyu

Private Sub 查询欠款合同_Click()
If MsgBox("查询欠款合同吗！?", vbYesNo) = vbNo Then Exit Sub
With Sheet1
   Dim i&, j&
    With Sheets("欠款提醒")
        For i = Range("a65536").End(3).Row To 6 Step -1
            If Range("S" & i).Value Or Range("AR" & i).Value < 0 Then
                j = .Range("a65536").End(3).Row + 1
                .Range("a" & j & ":S" & j).Value = Range("a" & i & ":S" & i).Value
            End If
        Next i
    End With
End With
MsgBox "欠款合同已更新，请看【欠款提醒】表"
End Sub

lcluck2002

不知道，但是要是你能上个附件，说不定就知道了。

ykcbf1100

最好上附件，不然不好说。