如果使用VBA，单元格值为空，则要从上面的单元格复制值

Question

'我正在尝试让Excel识别一个空白单元格并填入来自的值    在细胞之上。

d = dict([('test-rz-01.test.de', '10.60.1.100'), ('test2.test.de', '10.60.1.10')])
# {'test-rz-01.test.de': '10.60.1.100', 'test2.test.de': '10.60.1.10'}

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