Excel 当一行中的单元格满足某些条件时，将信息从一个工作表复制到另一个工作表

我有一份工作表，记录所有员工的工伤/残疾情况。它记录了他们受伤的时间、上次看医生的时间等信息

一旦他们在4周内没有提交医生的病历，我就会发出一封信，要求他们提交。我现在已经把它设置好了，在上次留言超过4周后，细胞会变红，这样我就可以通过它找到我需要给谁发短信了

我想把这个带到下一步，并有他们的信息自动填充到另一个工作表，一旦它已经超过4周，所以我可以简单地邮件合并从表2

以下是我的设置： 第1页： 第1行“标题行”。 第2行及下一行“每位员工及其所有记录”。 列A“姓氏”。 B列“名字”。 C栏“街道地址”。 D栏“城市、州、邮编”。 K栏“伤害”。 Z栏“最后一次就诊”。 AA栏“今天的日期”。 AB列自上次医生就诊后的天数（通过公式从AA列减去Z列计算）。 AC栏“已发送信函”

如果AB大于28，我希望将每列中的信息复制到第2页A-I列

然后（如果可能的话）当我在第2页第I列中键入日期（已发送信函）时，我希望将整行从第2页中删除，并将第I列第2页中的数据输入第1页AC列中

如果您能提供任何帮助，我们将不胜感激

---

谢谢！：）

如果我理解正确，您希望将A列到I列从sheet1复制到下一个打开的行，如果AB大于28，则将A列到I列复制到sheet2。如果这是正确的，下面的将这样做

Sub Loop_For_Erin()
Dim c as Range
For Each c in Worksheets("Sheet1").Range("AB1:AB" & Worksheets("Sheet1").Range("AB" & Worksheets("Sheet1").Rows.Count).End(xlUp).Row)
   If c.value > 28 Then
      Worksheets("Sheet1").Range("A" & c.row & ":I" & c.row).Copy Worksheets("Sheet2").Range("A" & Worksheets("Sheet2").Range("A" & Worksheets("Sheet2").Rows.Count).End(xlUp).Offset(1,0).Row)
   End If
Next C

---

您是在寻找VBA答案还是不需要任何代码？我愿意接受任何答案，这些答案将完成我需要做的事情。对VBA不太熟悉，但我能理解：）如果AB大于28，实际上是将第1页上的A-D、K和Z-AC列复制到第2页A-I列的下一个打开行。然后（如果可能），一旦在第I列第2页中输入了一个值，将从第2页中删除整行，并在第AC列中输入该值。复制这些列并不困难。我不确定我是否理解你试图做的第二部分。你能进一步解释一下吗？我将用Sheet2作为需要寄信的员工名单。一旦我给他们发了一封信，我就不再希望他们出现在第二张纸上。取而代之的是，我希望我寄信的日期出现在第1页AC栏。这一部分可能太难了。也许我们不需要这样做，我们可以补充一点，如果Sheet1中的列AC中有一个值，那么即使AB>28？？，该行也不会复制到Sheet2上？？？