Question

我正在尝试编写一个循环，该循环从主工作表的页面中获取每一行，并将每个行放在相应的工作表中。例如，工作表1上的行A1：A10将被复制并放置在工作表2上的A1：A10上。而在工作表3上，A1：A10值将来自工作表一个值A2：A10。但我的问题是，我找不到使用Range和Cell函数循环遍历循环的正确语法。

我的代码：

'i is set to the first worksheet I am writting to
'wsCount is set to the last worksheet I want to write to
For i = 2 To wsCount
    Worksheets(i).Activate
    'This code shifts old information down so the most recent is always on top
    Worksheets(i).Range("A3:L262").Select
    Selection.Copy
    Worksheets(i).Range("A4").Select
    ActiveSheet.Paste
    'This sets the first cell in the row to be the current date
    Worksheets(i).Range("A3").Value = Format(Now, "ddd, d mmmm yyyy")

    'This is my problem, I am trying to set the range 
    'B3:L12 to the corresponding row in the main worksheet
    Worksheets(i).Range(Cells(3, 2), Cells(3, 12)).Value = Worksheets(1).Range(Cells(x, 2), Cells(x, 12)).Value

    Worksheets(i).Range("A1").Select
    x = x + 1

Next i

此错误会引发"Run-time error '1004': Application-defined or object-defined error"

我觉得我的语法是正确的，因为当我跑步时：

Worksheets(1).Range(Cells(10, 2), Cells(10, 12)).Value = "Test"

它运行良好，但只有在选择了工作表（1）时才会运行。所以我知道我需要选择第一个工作表来从中提取信息，到其他工作表或类似的东西。我错过了什么？它是否与循环开始时的“Worksheets（i）.Activate”语句有关？我是VBA的新手，并且不确定Excel VBA宏的权限。

Answer 1

只需在For Next结构之前添加x=1。

x=1
For i = 2 To wsCount (...)

当代码运行时，它会尝试选择单元格（0,2），但没有row = 0（x = 0）。我相信这是解决方案。

Answer 2

在此代码中：

Worksheets(1).Range(Cells(10, 2), Cells(10, 12)).Value = "Test"

Range方法适用于Worksheets(1)，但Cells方法适用于有效工作表。该代码相当于：

Worksheets(1).Range(ActiveSheet.Cells(10, 2), ActiveSheet.Cells(10, 12)).Value = "Test"

如果您只是使用固定引用，那么您可以使用带有字符串参数的Range方法的版本：

Worksheets(1).Range("B10:L10")

如果您需要根据变量值更改的引用，则可以使用With ... End With块：

With Worksheets(1)
  .Range(.Cells(x, 2), .Cells(x, 12)).Value
End With

以.开头的非限定引用引用With ... End With块中指定的对象。

在你的代码中，你需要在同一行中引用两个不同的工作表，因此With ... End With本身是不够的。使用变量来引用每个工作表可能是完成这项工作的最明确方法。在For ... Next循环开始之前，声明两个工作表变量：

Dim wsFirst As Worksheet
Dim wsCurr As Worksheet

然后继续：

Set wsFirst = Worksheets(1)

For i = 2 To wsCount
  Set wsCurr = Worksheets(i)

然后您的问题行变为：

wsCurr.Range(wsCurr.Cells(3, 2), wsCurr.Cells(3, 12)).Value = wsFirst.Range(wsFirst.Cells(x, 2), wsFirst.Cells(x, 12)).Value

您还应该分别用Worksheets(1)和Worksheets(i)替换对wsFirst和wsCurr的其他引用。

正如对问题的评论中所指出的，您还可以删除所有选择和激活，这将使您的代码更有效，并阻止它依赖于代码运行时哪些工作表处于活动状态。

Answer 3

只需更改

Worksheets(i).Range(Cells(3, 2), Cells(3, 12)).Value = Worksheets(1).Range(Cells(x, 2), Cells(x, 12)).Value

到

For Each cell In Worksheets(i).Range(Cells(3, 2), Cells(3, 12))
    Worksheets(1).Cells(x, cell.Column).Value = cell.Value
Next cell

并给x

初始值

Excel 2007范围和单元格语法问题

3 个答案: