只需一步,快速开始
原帖由 Jonathan.K 于 2008-3-27 10:03 发表 Sub test() Dim rngData As Variant Dim i As Long Dim oDic As Object Application.ScreenUpdating = False Set oDic = CreateObject("Scripting.Dictionary") With Sheet1 ...
使用道具 举报
函数是有无数种解决方法的,先来一种较易理解的: 例如原数据在A2:A11,要剔除重复。 核心在于把不重复的按序排好,重复的T到一边去: SMALL(IF(MATCH($A$2: $A$11,$A$2: $A$11,)=ROW($A$1: $A$10),ROW($A$1 ... pureshadow 发表于 2008-3-26 16:17
本版积分规则 发表回复 回帖后跳转到最后一页
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-6 20:25 , Processed in 0.082857 second(s), 26 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.