Excel - 如果單元格包含特定文本，則將整行移動到下一個工作表中

Question

我正在嘗試設置一個公式，其中工作表 1 是該月的安裝作業列表，有幾列顯示客戶詳細信息，最后一列顯示下拉列表中的作業進度。

如果作業已“完成”，那么我希望將整行復制到下一個工作表（工作表 2）中，如果作業正在進行中，則它不會進入下一個工作表。

我也有幾個失敗的原因是否可以將此數據傳輸到（工作表 3）以顯示工作表 1 中提交的工作列表

Answer 1

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 列中，您當然可以更改它。