excel，如下所述，公式？

右击当前工作表标签，查看代码，把下列代码贴在的VBA窗口中，按F5运行就可以了 Sub mFilter() Dim mDic, cell As Range Set mDic = CreateObject("scripting.dictionary") For Each cell In Range("b1:f500") If cell.Value "" And mDic.exists(cell.Value) = Fals