从电子表格中删除条目并将特定数据字段移动到其他电子表格

Question

我在 Excel 文件中有 2 个电子表格，我在电子表格 1 中输入要完成的日常对象，在电子表格 2 中输入主数据（存储已完成的对象）

截至目前，我手动删除电子表格 1 中的条目并将这些条目保存在主数据中，即电子表格 2（剪切和粘贴）

如果我添加新列并更新“已完成”，然后该条目从电子表格 1 中删除并移至电子表格 2，有什么方法可以自动化此过程。

我已在下面附上所需的输出屏幕截图：

表1（每日需完成的项目）：

主数据（保存已完成的对象，然后从电子表格 1 中删除）

此后，更新后的 Sheet 1 应如下所示：

提前谢谢大家。

Answer 1

此代码将标记为

Completed

的完整行从

Sheet1

移动到

Master Sheet

。执行反转行的任务以避免删除发生时编号冲突。

Sub move_rows()

Dim sourcesheet As Worksheet, targetsheet As Worksheet
Set sourcesheet = Worksheets("Sheet1")
Set targetsheet = Worksheets("Master Sheet")

lastrow = sourcesheet.Range("A1").End(xlDown).Row
targetrow = targetsheet.Range("A1").End(xlDown).Row + 1
If targetrow = 1048577 Then targetrow = 1
For i = lastrow To 1 Step -1
  If sourcesheet.Cells(i, 3) = "Completed" Then
    sourcesheet.Rows(i).Copy targetsheet.Rows(targetrow)
    targetsheet.Rows(targetrow).Insert
    sourcesheet.Rows(i).Delete
  End If
  
Next i
targetsheet.Rows(targetrow).Delete
End Sub