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