Excel 如何通过vba将数据从一张图纸传输到指定单元格下的另一张图纸？

我正在根据条件格式将数据从sheet3（“报价”）自动传输到sheet1（“客户”）和sheet2（“潜在客户”），并且还希望在关闭文档时在sheet1（“客户”）和sheet2（“潜在客户”）上手动输入数据，而不删除这些条目，并从sheet3（报价）中传输数据低于根据条件在表1（“客户”）和表2（“潜在客户”）上手动输入的最后一个值

以下是我到目前为止的编码：

Private Sub Workbook_Open()
Dim i, LastRow
LastRow = Sheets("QUOTES").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("QUOTES").Cells(i, "d").Value = "C" Then
Sheets("QUOTES").Cells(i, "d").EntireRow.Copy Destination:=Sheets("CUSTOMERS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
Sheets("PROSPECTS").Range("a2:i500").ClearContents
For i = 2 To LastRow
If Sheets("QUOTES").Cells(i, "d").Value = "P" Then
Sheets("QUOTES").Cells(i, "d").EntireRow.Copy Destination:=Sheets("PROSPECTS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
For i = 2 To LastRow
If Sheets("PROSPECTS").Cells(i, "n").Value = "1" Then
Sheets("PROSPECTS").Cells(i, "n").EntireRow.Copy Destination:=Sheets("CUSTOMERS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub

任何暗示都将不胜感激

---

Luis

问题/问题到底是什么？请更新您的OP以包含一个问题或问题。为什么不在关闭之前将其从

Workbook\u Open

重命名为

Workbook\u\u？您也可以设想将其设置为宏或按钮操作，以便用户选择何时进行这些复制。谢谢。我遇到的问题er是指手动输入到Sheet1和Sheet2上的数据在文档关闭后将被删除。如何将自动数据传输到具有特定值的特定单元格下方，如Sheet1和Sheet2上的“zz”，以及如何在文档关闭后仅从这些表单中清除自动传输的数据？