下午好,
我正在使用这些数据透视表生成的数据,并且我想用它们上面的值填充第一列(从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代替了所有内容。如果有人理解其中的任何一个,他们的帮助将不胜感激。提前致谢!
编辑:起初我以为是因为这些数据在表中,但我未列出它,问题仍然存在
您正在浏览一列,一次浏览一列。您需要使用:
For Each cellule5 In Range("N1").CurrentRegion.Columns(1).Cells
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句