VBA宏未正确粘贴

作者: 一别而尽几念深i
发布时间: 2024-01-21 10:02:51 (5月前)
转自：

3 条回复

0#
回复此人
哇。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 更正（在我看来） </p> <pre> <code> If wsCombined.Range("A3") > 0 Then </code> </pre> <P> 应该成为 </p> <pre> <code> IF wsCombined.Range("A3").Value <> "" Then </code> </pre> <P> 不要为End函数使用自定义函数。它是多余的，限制了你可以用它做什么。 </p> <pre> <code> wsCombined.Rows("3:" & LastRow(wsCombined)).ClearContents </code> </pre> <P> 应该成为 </p> <pre> <code> wsCombined.Range("A3",WSCombined.Range("A1048576").End(xlup).Address).EntireRow.Delete </code> </pre> <P> 另一个 </p> <pre> <code> wsProjects.Range("A3:" & "R" & LastRow(wsProjects)).Copy </code> </pre> <P> 应该成为 </p> <pre> <code> wsProjects.Range("A3",wSProject.Range("R3").End(xlDown).Address).Copy </code> </pre> <P> 等等。我将很快回到这个答案，但我想如果你删除自定义函数并使用内置功能，错误就会消失。 </p> </DIV>

编辑
1#
回复此人
庸人自扰 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 尝试添加一个 <code> xlPasteValues </code> 在你的每一个之后 <code> .PasteSpecial </code> 代码行 </p> <pre> <code> wsCombined.Range("A3").PasteSpecial xlPasteValues </code> </pre> <P> 和 </p> <pre> <code> wsCombined.Range("A" & wsCombined.Range("A" & .Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues </code> </pre> </DIV>

编辑

登录后才能参与评论