Excel 在工作表之间有条件地复制、粘贴、删除缺少的数据

我继承了一本被滥用了数月的工作簿（数据输入不好、剪切粘贴不好、重复等）。我几乎已经完成了数据排序，但为了避免类似的问题，我正在尝试自动化一些过程。我是VBA新手，不知道为什么我的代码不能工作。有几个工作表通过我们的新客户端进程跟踪应用程序。每个工作表都有相同的15列，元数据在前10行（=总和计数），标题在第11行。当我们有兴趣加入我们的组织时，一些简单的数据被输入A-D和L-O列（包括）。我希望在输入日期时，将特定行移到下一个工作表，以指示流程中的某个步骤已完成。例如，当客户返回申请表时，日期将输入G列，特定行将移至下一个工作表并从原始工作表中删除。日期输入有效，但未复制L-O列。救命啊

我使用的代码是：

Private子工作表\u更改（ByVal目标作为范围）
如果不相交（Target、Range（“G12:G100”）和Range（“A”和Rows.Count）.End（xlUp.Row））为空，Target.Cells.Count=1，则
如果IsDate（Target.Value）=True，则
范围（单元格（Target.Row，“A”），目标。复印工作表（“等待面试”）。范围（“A”和Rows.Count）。结束（xlUp）。偏移量（1，0）
Target.EntireRow.Delete
如果结束
如果结束
端接头

先谢谢你

---

AlVBA

想想什么范围

range（Cells（Target.Row，“A”），Target）

代表什么。还要注意

range（“G12:G100”和range（“A”和Rows.Count”）.End（xlUp.Row）

应该是

range（“G12:G”和range（“A”和Rows.Count”）.End（xlUp.Row）

。感谢BigBen，我确实有（G12:G）并且记不起我为什么更改了它。这次更改并没有解决粘贴问题。是的，因为

Range（Cells（Target.Row，“A”），Target）

只包括A到G列。@BigBen OIC，我确实怀疑，但我的VBA不够流利，不知道如何更改代码。我玩了一次。没有成功。我希望在输入日期之前查询G列，然后剪切并粘贴整行。你有什么可以分享的解决方案吗？