Excel VBA 添加新工作簿並復制/粘貼

Question

我的代碼需要幫助。 它以“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

Answer 1

首先，你真的需要閱讀這篇文章

其次，沒有任何內容被復制的原因是因為您在粘貼之前使用Application.CutCopyMode = False取消了“復制”。 之后它應該是 go，實際上不需要一行代碼，例如：

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