Excel 为什么粘贴操作不粘贴任何内容？

为什么下面的代码不粘贴任何内容？它实际上复制了我想要的内容，但粘贴操作不起作用

With Workbooks(NomeAmostra)
     Range("B55").Copy
End With

     Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate
       Range("AG" & n).PasteSpecial Paste:=xlValues 'Colagem dos resultados
         Set Horario = Range("AG" & n)
            Horario = Left(Horario, Len(Horario) - 4)

我改变了它，现在它工作得很好，但我不明白原因

Workbooks(NomeAmostra).Activate
Range("B55").Copy

  Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate
     Range("AG" & n).PasteSpecial Paste:=xlValues 'Colagem dos resultados
       Set Horario = Range("AG" & n)
         Horario = Left(Horario, Len(Horario) - 4)

---

谢谢

因为在范围对象之前缺少一个点

改变

With Workbooks(NomeAmostra)
    Range("B55").Copy
End With

到

---

您可能还想看看

@mehow:Oops sorrry:）

With Workbooks(NomeAmostra)
    .Range("B55").Copy
End With