如何根据上方和下方的单元格自动填充 excel 中的值

Question

好人，我有一个 table 完整的唯一 ID（如下所述），但有几个 ID 缺少值。

我想要 formula/code 根据任何单元格上方和下方的值填充空白。

例如：这里两个唯一id~(620006845180)之间有两个空行。

任何人都可以帮助我用与上面和下面相同的值填充这些空间。 :( 我卡住了。

    620006845180
    xxxxxxxxxxxx
    xxxxxxxxxxxx
    620006845180
    620006845180

Answer 1

好的，当然。这假设 id 在 A 列中

Sub FillBlankCells() 

Dim lastRow As Long: lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim IDRange As Range: Set IDRange = Range("A1:A" & lastRow)
Dim rng As Range

For Each rng In IDRange
  If rng.Value = "" Then
    If rng.End(xlUp).Value = rng.End(xlDown).Value Then _
    rng.Value = rng.End(xlUp).Value
  End If
Next rng

End Sub

Answer 2

由于循环引用，您不能在同一列中执行此操作。但是您可以使用另一列来完成它。

我假设您在 A 列和第 2 行中有这些数字，并在 B 中插入一个空列，然后在 B2 中输入以下公式。然后从单元格 B2 复制 B 列的其余行。然后隐藏你的A列，你会在B列得到你想要的。

=IF(A2<>"",A2,IFERROR(IF(MATCH(B1,A3:A100,0)>0,B1,""),""))

如果您觉得可能有 100 多个空行。那么您可能需要将公式中找到的 100 替换为您希望为空的最大行数。

如何根据上方和下方的单元格自动填充 excel 中的值

How to autofill values in excel based on the cells above and below

excel

vba

excel-formula

missing-data

excel-2016