如果要複製上面單元格中的值，如果單元格值爲空，則使用VBA

Question

'我試圖讓Excel識別空白單元格，並使用單元格上方的值 填充值。

Dim cell As Range 
Dim lastrow As Long 
lastrow = .Cells(1048576, 1).End(xlUp).Row - 1 

For Each cell In Range("i2:j" & lastrow) 
    If IsEmpty(cell.Value) Then 
     cell.FormulaR1C1 = "=R[-1]C" 
     Exit For 
    End If 
Next cell 

Answer 1

嘗試......

Sub FillBlanks() 
Dim lr As Long 
lr = Cells(Rows.Count, 1).End(xlUp).Row 
On Error Resume Next 
Range("I2:J" & lr).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" 
End Sub