excel - 用基于另一个单元格值的非空白单元格填充空白单元格值

Question

我在填充列的空白单元格时遇到问题。
我在 A、B、C、D 中有 4 个列标题。
我正在尝试根据附加的数据创建宏来填充动态数据的空白单元格，其中 D 列中的单元格值是随机填充和空白的。空白单元格值需要根据 A 列中提到的值填充。
我已经创建了宏，但它只能用上述值填充空白，而没有得到确切的结果..
有人可以帮忙吗...

以下结果预计来自编码......

下面是我创建的宏

Sub FillblankCells()

lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row

With Range("D2:D" & lr)
.SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With


End Sub

Answer 1

字典可能是矫枉过正，但这应该工作。

Sub x()

Dim lr As Long, r As Range
Dim oDic As Object

lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Set oDic = CreateObject("Scripting.Dictionary")

'store column A for each entry in D
For Each r In Range("D2:D" & lr).SpecialCells(xlCellTypeConstants)
    oDic(r.Offset(, -3).Value) = r.Value
Next r

'retrieve each column A for blanks in D
For Each r In Range("D2:D" & lr).SpecialCells(xlCellTypeBlanks)
    r.Value = oDic(r.Offset(, -3).Value)
Next r

End Sub