在兩個工作表之間複製Excel表格

Question

我已經嘗試過各種表達式來做[在兩個工作表之間複製Excel表格的簡單任務]。另外，我需要將表達式放在循環中。這裏有四個表達式（都以「表格」開頭）我嘗試過了。他們都編譯，但然後崩潰後運行：

p = 6 
For i = 1 To NumTables 
    'Read "OP LLs" table into "EIRP budget" 
    Sheets("EIRP Budget").[B6:L17] = Sheets("OP LLs").Range(Cells(p, 2), Cells(p + 11, 12)) 
    Sheets("EIRP Budget").[B6:L17] = Sheets("OP LLs").[Cells(p, 2), Cells(p + 11, 12)] 
    Sheets("OP LLs").Range(Cells(p, 2), Cells(p + 11, 12)).Copy Sheets("EIRP Budget").[B6] 
    Sheets("OP LLs").["B" & p & : & "L" & p + 11].Copy Sheets("EIRP Budget").[B6:L17] 
    p = p + 15 
Next 

任何幫助將不勝感激。

Answer 1

我懷疑你有，因爲你的不合格細胞的困難（你不指定什麼工作表單元格指）

嘗試（未測試）：

dim wksCopyFrom as Worksheet 
dim wksCopyTo as Worksheet 

set wksCopyFrom = Sheets("OP LLs") 
set wksCopyTo = Sheets("EIRP Budget") 

For i = 1 To NumTables 
    p = 6 
    'Read "OP LLs" table into "EIRP budget" 
    wksCopyFrom.Range(wksCopyFrom.Cells(p,2), wksCopyFrom.Cells(p+11,12)).Copy wksCopyTo.Range("B6") 
    p = p + 15 
Next