Sub find函数练习2()
Dim rng As Range, address1, address2
Set rng = ActiveSheet.UsedRange.Find(what:="b")
address1 = rng.Address(0, 0)
Do Until address1 = address2
Set rng = ActiveSheet.UsedRange.FindNext(rng)
address2 = rng.Address(0, 0)
rng.Interior.ColorIndex = 6
Loop
End Sub
查找一个表格中所有的相同元素并给予标色-vba学习
最新推荐文章于 2022-07-30 18:00:22 发布