Do While <>范围

Question

我有这个VBA excel宏代码

Sub fillcells()
    Range("J14").Select
    Do While ActiveCell <> Range("J902")
        ActiveCell.Copy
        ActiveCell.Offset(6, 0).Select
        ActiveCell.PasteSpecial
    Loop
End Sub

一开始运行良好，但现在当我尝试运行宏时，循环突然在单元格J242处停止，其他时候出现错误的“错配类型”，有时宏只选择单元格J14而不执行循环。

Answer 1

不确定您想做什么，但是(如对OP的注释中所指出的)，.Activate。以下是你想做的事情(我想)：

Sub fillcells()
Dim i& ' Create a LONG variable to count cells

For i = 14 To 901 Step 6
    Cells(i, 10).Offset(6, 0).FormulaR1C1 = Cells(i, 10).FormulaR1C1
Loop
End Sub

这将从单元格J14循环到J901，复制/粘贴*到单元格6行偏移量。

*注意，我实际上没有复制/粘贴。由于您的原始代码使用了PasteSpecial，所以我假设您只希望粘贴这些值。在这种情况下，可以将两个范围/单元格设置为相等。

Answer 2

除了@BruceWayne已经说过的话:每当你有这种典型的现象，即某件事只是“有时”发生时，它通常是使用关键字，如Active、Current或Selection。这些不是特定的，但每次调用宏时都会更改。无论你选择什么都是起点。您甚至可以开始单击，从而在宏运行时更改Selection。简而言之，您应该开始显式地编码，并且不允许VBA / Excel为您假定/作出决定。

让我们从Range("J14").Select开始。这一行代码要求VBA做出两个假设：

1. 如果您有几个Excel文件打开。它应该从哪个Excel文件开始？
2. 文件中可能有几个工作表。在哪一张纸上应该选择J14？

显式编码意味着您(希望在任何时候)非常具体您所指的内容。因此，不只是声明Range("J14")，您应该使用：

ThisWorkbook.Worksheets("SheetNameYouWantToReferTo").Range("J14")

但在另一个答案中却指出，这在这种情况下甚至是不必要的。相反，按所示循环行并使用：

ThisWorkbook.Worksheets("SheetNameYouWantToReferTo").Cells(i, 10).Offset(6, 0).Formula = ThisWorkbook.Worksheets("SheetNameYouWantToReferTo").Cells(i, 10).Offset(i, 10).Formula

由于这有点长，所以可以使用With语句来做空它：

With ThisWorkbook.Worksheets("SheetNameYouWantToReferTo")
    .Cells(i, 10).Offset(6, 0).Formula = .Cells(i, 10).Formula
End With