我正在尝试设置一个公式,其中工作表1是当月的安装作业列表,有几列显示客户详细信息,最后一列显示下拉列表中作业的进度。
如果作业“完成”,那么我希望将整个行复制到下一个工作表(工作表2)中,如果作业正在进行中,则不会进入下一个工作表。
我还有几个失败的原因,是否可以将此数据传输到(工作表3),以显示工作表1中已归档作业的列表
发布于 2013-10-04 19:05:39
Sub copyJobs()
Dim r1
Dim r2
Dim r3
r1 = 1
r2 = 1
r3 = 1
While Sheets("Sheet1").Range("A" & LTrim(Str(r1))) <> ""
If Sheets("Sheet1").Range("B" & LTrim(Str(r1))) = "completed" Then
Sheets("Sheet1").Range(LTrim(Str(r1)) & ":" & LTrim(Str(r1))).Copy
Sheets("Sheet2").Range("A" & LTrim(Str(r2))).PasteSpecial xlPasteAll
r2 = r2 + 1
End If
If Sheets("Sheet1").Range("B" & LTrim(Str(r1))) = "failed" Then
Sheets("Sheet1").Range(LTrim(Str(r1)) & ":" & LTrim(Str(r1))).Copy
Sheets("Sheet3").Range("A" & LTrim(Str(r3))).PasteSpecial xlPasteAll
r3 = r3 + 1
End If
r1 = r1 + 1
Wend
End Sub
它将从sheet1上的第1行开始,直到列A中的值为空。在我的示例中,状态是在B列中,您当然可以更改它。
https://stackoverflow.com/questions/19178888
复制相似问题