图片描述

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

zengdamo
69 声望6 粉丝

教书匠 程序猿-Weibo


引用和评论

0 条评论