Excel VBA 添加新工作簿并复制/粘贴答案

【问题标题】：Excel VBA Add new Workbook and Copy/PasteExcel VBA 添加新工作簿并复制/粘贴
【发布时间】：2020-11-13 20:09:58
【问题描述】：

我的代码需要帮助。它以“A 工作簿”开始，然后添加“X 工作簿”并从“A 工作簿”复制数据以及过滤后的数据。然后它从“A 工作簿”中取消过滤数据并添加另一个“Y 工作簿”并从“A 工作簿”中复制内容。然后回到“工作簿”

Workbooks.Add

Workbooks.Add

Windows("A Workbook").Activate

Cells.Select

Selection.SpecialCells(xlCellTypeVisible).Select

Selection.Copy



Windows("X Workbook").Activate

Application.CutCopyMode = False

ActiveSheet.PasteSpecial

Windows("A Workbook").Activate

Range("F1").Select

ActiveSheet.ShowAllData

Columns("A:O").Select

Selection.Copy

Windows("Y Workbook").Activate

Application.CutCopyMode = False

ActiveSheet.PasteSpecial

Windows("A Workbook").Activate

【问题讨论】：

请同时描述您面临的问题。
谢谢！该代码不会复制或粘贴，它似乎只是在创建工作簿，但它无法复制内容。

标签： excel vba add

【解决方案1】：

首先，你真的需要阅读this

其次，没有复制任何内容的原因是您在粘贴之前使用Application.CutCopyMode = False 取消了“复制”。它应该在之后进行，并且实际上不需要一行代码，例如：

<your defined range>.SpecialCells(xlCellTypeVisible).Copy Sheets("X").Range("A1")

【讨论】：