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而不进行循环< / p>

Answer 1

不确定您要做什么，但是（正如您对OP的评论中所述），don't use .Select/.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或{{ 1}}。这些不是特定的，但每次调用宏时都会更改。无论你选择什么都是起点。您甚至可以开始点击，从而在宏运行时更改Selection。简而言之，您应该明确地开始编码，并且不允许VBA / Excel为您做出决定。

让我们从Selection开始吧。这行代码要求VBA做出两个假设：

如果您打开了多个Excel文件。应该从哪个Excel文件开始？
在文件中可能有几张纸。这些工作表应选择Range("J14").Select？

显式编码意味着您（希望在任何时候）都非常具体您所指的内容。因此，不应仅仅陈述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

做ActiveCell＆lt;＆gt;范围

2 个答案: