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

Question

当我独家运行Sub“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

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

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

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