首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >Excel -如果单元格包含特定文本,则将整行移动到下一个工作表中

Excel -如果单元格包含特定文本,则将整行移动到下一个工作表中
EN

Stack Overflow用户
提问于 2013-10-04 18:21:51
回答 1查看 7.4K关注 0票数 0

我正在尝试设置一个公式,其中工作表1是当月的安装作业列表,有几列显示客户详细信息,最后一列显示下拉列表中作业的进度。

如果作业“完成”,那么我希望将整个行复制到下一个工作表(工作表2)中,如果作业正在进行中,则不会进入下一个工作表。

我还有几个失败的原因,是否可以将此数据传输到(工作表3),以显示工作表1中已归档作业的列表

EN

回答 1

Stack Overflow用户

发布于 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列中,您当然可以更改它。

票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/19178888

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档