当该行内的单元符合特定条件时，将信息从一个工作表复制到另一个工作表
我有一张工作表，logging所有员工的工作/残疾状况。 它可以跟踪他们受伤的时间，上次去医生的时间等信息。
一旦他们在四周内没有提交医生的笔记，我会发一封信，要求提供一份。 我现在已经设置了自从上一个音符开始已经超过4周的单元格变成红色的地方，所以我可以通过find我需要发送音符的人。
我想把它带到下一个步骤，一旦它已经超过4周，他们的信息会自动填充到另一个工作表中，这样我就可以简单地将邮件合并到工作表2中。
这是我的设置：表1：行1'标题行'。 第2行和“每个员工和所有logging”。 A列“姓氏”。 B列'名字'。 C列“街道地址”。 D列“城市，州，邮编”。 K栏'受伤'。 Z栏“最后的医生访问”。 AA栏“今天的date”。 AB列“最后一次医生访视的天数（通过公式计算，从列AA中减去Z列）。 AC列“寄出的信”。
如果AB大于28，我希望将这些列中的信息复制到表2的AI列中。
然后（如果可能的话）当我在第一栏第二页（已发信）中input一个date时，我希望将整行从表2中删除，并将列I，表2中的数据inputAC列，第1页。
任何帮助你可以给予非常感谢！
谢谢！ 🙂
如果我理解正确，如果AB大于28，则希望将sheet1中的列A到I复制到下一个打开的行（sheet2上的列A到I）。如果这是正确的，则下面的代码将执行此操作。
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