excel粘贴时出现故障,在Excel 2013中使用VBA复制和粘贴时出现问题

最新推荐文章于 2022-08-04 16:24:43 发布

weixin_39819138

最新推荐文章于 2022-08-04 16:24:43 发布

阅读量541

点赞数

文章标签： excel粘贴时出现故障

用户在Excel2013中遇到一个问题，尝试将公式从一个范围复制到另一个范围时，公式意外地粘贴到了另一工作簿中。问题在于`ActiveSheet.Paste`命令不起作用。在另一线程中找到了解决方案，使用`Selection.PasteSpecial xlPasteAll`修复了问题。尽管如此，用户仍想知道为什么`ActiveSheet.Paste`不再有效。

摘要由CSDN通过智能技术生成

I'm attempting to process a large number of large files and need to copy/paste formulas from one range of cells to another. The code I'm using is this:

Range("I12:P12").Select

Selection.Copy

For i = 13 To 3000

ActiveCell.Offset(1, 0).Select

ActiveSheet.Paste

When I run the code, instead of pasting the copied formulas into the destination cells, the program pastes the formulas into the corresponding cells of ANOTHER open workbook. I wrote the code in Excel 2010 and it worked fine. The original code was much simpler.

Rather than the For...Next structure, I was able to select the destination cells using a blanket range statement:

Range("A1:A3000").Select

ActiveSheet.Paste

When I ran it on Excel 2013 it began behaving badly.

I need the other workbook open as it provides inputs to the code that is being executed. There is, however, no code for writing to the other open workbook. The only copy location is the active worksheet in the active workbook.

Any thoughts?

解决方案

Found a solution in another thread that fixed the problem. Using Selection.PasteSpecial xlPasteAll. Still, the original question remains. Why doesn't ActiveSheet.Paste work?