Question

VBA把满足条件的某一个单元格起点填充该单元格所包含的层？

如图片1所示，B列为层次，1层为顶层，下面有2到不知道多少层，而1层管理的范围直到到下一个1层为止（不包含下一个一层），C列为条件，现在需要求当C列为A时，B列对应的1层所管理的层次全部用黄色显示，如何用VBA进行编程？实现效果如图2





Answer 1

Sub nn()
Dim i%
For i = 2 To [b65536].End(3).Row
If Cells(Range(Cells(2, 2), Cells(i, 2)).Find(1, , , xlWhole, , xlPrevious).Row, 3) = "A" Then
Range("b" & i).Interior.ColorIndex = 6
End If
Next
End Sub

Answer 2

Sub test()
a = Range("f18").End(xlUp).Row
Cells(a, 12) = 1 '写入你需要的值
End Sub