Excel將一系列單元格復制到另一個工作簿

Question

在第一個工作簿中，篩選完所有單元格后，我必須將前 20 行復制到另一個工作簿中。

這是我的代碼，但我不知道如何讓它復制前 20 行：

Range("AN2:AP1000").Select
Range("A2:A1000").Select
Selection.Copy
Windows("Workbook2").Activate
Range("O15:Q35").Select
Range("N15:N35").Select
ActiveSheet.Paste

我有 2 個范圍，因為要復制的數據位於 2 個不同的列中。 這是要復制的表（前 20 行數據）： table

Answer 1

切勿使用 select 或 activate - 請改用范圍變量

dim Source1 as range
dim source2 as range
dim dest1 as range
dim dest2 as range
set source1 = Range("A2:A1000").SpecialCells(xlCellTypeVisible)
set source2 = Range("AN2:AP1000").SpecialCells(xlCellTypeVisible)
with Workbooks("Workbook2").worksheets(1)  'i assume first sheet
     set dest1 = .Range("O15") 
     set dest2 = .Range("N15")
end with
source1.copy dest1
source2.copy dest2