查找一個表格中所有的相同元素並給予標色-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

>>阅读原文<<