vba - For Each 在 Excel VBA 中不起作用

Question

下午好，

我正在处理这些数据透视表生成的数据，我想用上面的值填充第一列中的一些空单元格(从 N1 开始):

(我想在那里发布一张图片，但显然我需要 10 个声誉才能做到这一点。这有多愚蠢？)

所以我写了这个:

Sub orange_square()

Dim cellule5 As Range

For Each cellule5 In Range("N1").CurrentRegion.Columns(1)
    cellule5.Value = cellule5.Offset(-1,0).Value

Next
End Sub

但它什么也没做，所以我写了这个:

Dim cellule5 As Range

For Each cellule5 In Range("N1").CurrentRegion.Columns(1)
     MsgBox (IsEmpty(cellules))
Next

这只给了我一个带有 False 的 MsgBox。所以我认为由于某种原因它必须只在第一个单元格运行，因此我编写了以下内容作为测试:

Dim cellule5 As Range

For Each cellule5 In Range("N1").CurrentRegion.Columns(1)
     cellule5.Value = 5
Next

它用 5 替换了所有内容。如果有人理解其中任何一个，我们将非常感谢他们的帮助。提前致谢!

编辑:起初我以为这是因为这些数据在表中，但我将其取消列出，问题仍然存在

Answer 1

您正在浏览各列，一次查看一列。您需要使用:

For Each cellule5 In Range("N1").CurrentRegion.Columns(1).Cells