为什么粘贴操作粘贴什么？

为什么下面的代码什么都不粘贴？ 它实际上是复制我想要的，但粘贴操作不起作用。

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) 

谢谢！

Answer 1

因为您在范围对象之前缺lessDOT

更改

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

至

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

你也可能想看到这个