与 运行 宏不一致 Copy/Paste

Question

当我专门 运行 Sub "EmailAbertura"（下图）时，我得到了想要的结果。但是，当我 运行 它在其他潜艇列表中时，它会复制并粘贴一个甚至不在 sheet 上的数字。为什么会这样？谢谢！

Sub EmailAbertura()
Dim Email As Workbook
Dim Sheet As Worksheet
Dim LCA As Workbook
Dim Lastro As Worksheet

Set Email = Workbooks("Email")
Set Sheet = Email.Sheets("Sheet1")
Set LCA = Workbooks("Controle de Lastro LCA_FEC - Test")
Set Lastro = LCA.Sheets("Controle Lastro")

Lastro.Range("B7").Copy
Sheet.Range("F2").PasteSpecial
End Sub

但是当我将它包含在这个宏中时，它不起作用。

Sub DoLCA() 'fazer todos de LCA para fechamento e abertura'
AddEmLCA
MenosResLCA
LCAHist
SalvarLCA
EmailDadosLCA
MudaDataLCA
DeleteDateLCA
EmailAbertura
SalvarLCA_aber
Fechar
End Sub

Answer 1

是否有可能有两个（或更多）宏正在使用 Copy/Paste 来执行它们的任务？在执行相应的 "Paste" 之前，可能正在执行第二个 "Copy"。因此，换句话说，您在执行第一个粘贴之前复制了第二个副本。