如果VBA的单元格值为空，则希望从上面的单元格复制值

“我正试图让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

试试这个

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

试试这个

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

---

它应该用上面的值填充I:J列中的所有空单元格。由于公式的存在是否有空格，或者有空的单元格，即公式中既没有值也没有空白？它们是从一个支点复制和粘贴的。我使用空白行中的ISBLIN公式，这些值对于空白单元格来说是正确的。然后它应该工作。要检查是否选择I:J列中包含空白数据的范围，请按Ctrl+G-->特殊-->选择空白，然后单击确定。您在选择的列I:J中是否看到空白单元格，或者得到一个没有发现单元格的消息？它显示了空白单元格。你知道VBA为什么不把它们取出来吗？它应该用上面的值填充I:J列中的所有空单元格。由于公式的存在是否有空格，或者有空的单元格，即公式中既没有值也没有空白？它们是从一个支点复制和粘贴的。我使用空白行中的ISBLIN公式，这些值对于空白单元格来说是正确的。然后它应该工作。要检查是否选择I:J列中包含空白数据的范围，请按Ctrl+G-->特殊-->选择空白，然后单击确定。您在选择的列I:J中是否看到空白单元格，或者得到一个没有发现单元格的消息？它显示了空白单元格。有没有关于VBA为什么不接收它们的想法？