如果相邻单元格不为空 + 匹配，则从上面的单元格自动填充

Question

我对 VBA 不是很熟悉，所以请多多包涵。

我的问题与此链接有关：Double-click autofill - dynamic based on adjacent cell

enter image description here

但是，属性位于另一列（例如 E 列）。我已经尝试调整代码，但无济于事。

Answer 1

这对你有用吗？

Sub FillBlanks()
Dim lr As Long
lr = Cells(Rows.Count, "E").End(xlUp).Row   'Assuming Attributes are in Column E
On Error Resume Next
'Assuming you want to fill blanks in column A
With Range("A1:A" & lr).SpecialCells(xlCellTypeBlanks)
    .Formula = "=R[-1]C"
    .Value = .Value
End With
End Sub