Excel用上面的值填充空行

用“top”值填充空白值，类似于Editing> Fill> Top提供的function。 不同之处在于填充函数需要逐行进行，而不是将其应用于较大的数据集。 示例如下：

Apple 1 foo Banana 1 foo 2 foo bar Cherry 2 bar 3 foo 6 bar Grape 1 foo 

最终会如下所示：

 Apple 1 foo Banana 1 foo Banana* 2 foo Banana* 2* bar Cherry 2 bar Cherry* 3 foo Cherry* 6 bar Grape 1 foo //new values represented with * 

请注意，第二列（ 2 ）中的第三项也被降低，这意味着这可以应用于多列。

在这个值将转换成第一个表中具有Cherry>2, Cherry>3, Cherry>6的表格转换为可用作关联表格的格式。

Answer 1

试试这个简短的macros：

 Sub FillInTheBlanks() Dim i As Long, N As Long, j As Long N = Cells(Rows.Count, "C").End(xlUp).Row For i = 2 To N For j = 1 To 2 If Cells(i, j).Value = "" Then Cells(i, j).Value = Cells(i, j).Offset(-1, 0).Value Next j Next i End Sub