与运行macros复制/粘贴不一致

当我专门运行子“EmailAbertura”（下面），我得到了预期的结果。 但是，当我在其他潜艇的列表中运行它时，它会复制并粘贴一张甚至不在纸上的数字。 为什么会发生？ 谢谢！

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 

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

 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

两个（或更多）macros是否可能使用复制/粘贴来执行其职责？ 也许在执行相应的“粘贴”之前执行第二个“复制”。 所以，换句话说，在你完成第一个粘贴之前，你做了第二个副本。