如果要复制上面单元格中的值，如果单元格值为空，则使用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