對於每一個在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 

這給我只有一個MsgBox False。所以，我認爲它必須出於某種原因已爲第一個單元格只跑了，所以我寫了下面的測試：

Dim cellule5 As Range 

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

，並與5.如果有人瞭解任何該取代一切，他們的幫助會相當讚賞。提前致謝！

編輯：起初我還以爲是因爲這些數據是在一個表中，但我未列名它和問題依然存在

Answer 1

你是在一個時間翻翻列，1列。您需要使用：

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