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

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

这个想法是，工作表会自动追踪多less天，直到需要服务。 我有条件格式化倒计时列，如果它显示一个数字小于或等于5它将变成红色。 我想进一步采取这一步，以便任何显示5天或更less的车辆被复制到工作表2。

因此，如果倒计时列显示5天或更less天，我希望它复制行中的一些列到工作表2并继续function（倒计时仍然滴答）。

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

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

任何帮助将不胜感激。

Answer 1

我不是VBA专家，但你可以尝试这个初学者。

将此代码粘贴到Alt + F11 – > VBAProject – > Microsoft Excel Objects – > 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条目。