查找一个表格中所有的相同元素并给予标色-vba学习

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

版权声明

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处。如若内容有涉嫌抄袭侵权/违法违规/事实不符，请点击 举报 进行投诉反馈！