如何将数据行从工作表1复制到工作表2，如果单元格<=值

Question

我试图把一个Excel表格放在一起，它将帮助跟踪某些车辆的服务何时到期。

这样做的想法是，工作表将自动跟踪需要服务的天数。我对倒计时列有条件格式，如果它显示一个小于或等于5的数字，它就会变成红色。我想更进一步，以便任何显示5天或更短时间的车辆被复制到第2页。

​

​

因此，如果倒计时列显示5天或更短的时间，我希望它将行中的某些列复制到工作表2并继续函数(倒计时仍在滴答滴答作响)。

如果这是不可能的，那么整行也可以。

​

​

这样，任何需要服务的车辆都会在同一区域显示。

任何帮助都将不胜感激。

Answer 1

我不是VBA专家，但你可以先试试这个。

将此代码粘贴到Alt+F11 -> VBAProject -> Microsoft -> Sheet1 (Sheet1)中。

Private Sub Worksheet_Change(ByVal Target As Range)

'Declarations
Dim c1 As Object
Dim c2 As Object
Dim countdown As Integer
Dim rego As String
Dim duedt As String

Application.ScreenUpdating = False

Worksheets("Sheet2").Range("A2:C500").Clear
'Copy row
For Each c1 In Worksheets("Sheet1").Range("E3:E500").Cells
    If c1.Value <= 5 And c1.Value <> 0 Then
        countdown = c1.Value
        rego = c1.Offset(0, -4).Value
        duedt = c1.Offset(0, -1).Value
        For Each c2 In Worksheets("Sheet2").Range("C2:C500").Cells
            If c2.Value = "" Then
                c2.Value = countdown
                c2.Offset(0, -2).Value = rego
                c2.Offset(0, -1).Value = duedt
            Exit For
            End If
        Next c2
    End If
    If c1.Value = 0 Then
    Exit For
    End If
Next c1

Application.ScreenUpdating = True

End Sub

我假设‘倒计时’不会有'0‘值，你将有最多500个条目。