Question

我有一张工作表，可以跟踪所有员工的工作和残疾情况。它会跟踪他们受伤的时间，最后一次医生访问时间等信息。

一旦他们在4周内没有提交医生的说明，我会发出一封信请求一个。我现在已经设置了自上一个音符已经超过4周时细胞变红的地方，所以我可以通过找到我需要发送注释的人。

我想把它带到下一步，并且一旦超过4周就将其信息自动填充到另一个工作表中，这样我就可以简单地从表2中邮寄合并。

这是我的设置：表1：第1行＆＃39;标题行＆＃39;。第2行和第3行每位员工及其所有记录＆＃39;。 A栏＆＃39;姓氏＆＃39;。 B栏＆＃39;名字＆＃39;。 C栏＆＃39;街道地址＆＃39;。列D＆＃39;城市，州，邮编＆＃39;。专栏K＆＃39;伤害＆＃39; 专栏Z＆＃39;最后一次医生的访问＆＃39; AA栏＆＃39;今天的日期＆＃39;。 AB栏＆＃39;自上次医生访问以来的天数（通过公式从AA列中减去Z列计算）。专栏AC＆＃39; Letter Sent＆＃39;。

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

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

您可以给予的任何帮助都非常感谢！

谢谢！：）

Answer 1

如果我理解正确，如果AB大于28，你想要将sheet A中的列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

当该行中的单元格符合特定条件时，将信息从一个工作表复制到另一个工作表

1 个答案: