查找一个表格中所有的相同元素并给予标色-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.UsedRang

业界 2016年08月05日