0

我尝试了各种表达式来完成 [看起来是] 在两个工作表之间复制 Excel 表的简单任务。另外，我需要将表达式包含在一个循环中。这是我尝试过的四种表达方式（均以“Sheets”开头）。它们都编译，但在运行时崩溃：

    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

任何帮助将不胜感激。

4

1 回答 1

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
于 2013-08-23T12:44:57.727 回答