excel - 如果偏移量相同，则根据以下值填充空单元格

Question

我想用以下值填充 B 列上的空单元格，但前提是 A 列上的偏移量相同，并且必须针对数千个不同的名称和值进行此操作。
我有这个，但实际上我需要相反的(例如，如果 A 列上的偏移量相同，则根据以下值填充最高值)

Sub Fillin()

With Range("B:B").SpecialCells(xlCellTypeBlanks)
          .Formula = "=IF(RC[-1]=R[-1]C[-1],R[-1]C,"""")"
          .Formula = "=IF(RC[+1]=R[-1]C[-1],R[+1]C,"""")"
          
End With
End Sub

例如:

Column A Column B
-----------------

 - BMW     blue
 - Audi    blank (should fill in as red because Audi = Audi on A)
 - Audi    red
 - Audi    green

谢谢!

Answer 1

Dim c As Range

For Each c in Application.Intersect(ActiveSheet.Columns(2), ActiveSheet.UsedRange).Cells
    if Len(Trim(c.value))=0 and c.offset(0,-1).Value = c.offset(1, -1).Value Then 
        c.value=c.offset(1, 0).value
    end if
Next c