查找Excel工作表中的重复数据

查找Excel工作表中的重复数据 fanjy 发表于 2008-12-12 22:52:00 前不久，一位网友求教，要求找出Excel工作表中的重复数据并在单元格中列出。我给出了一个数组公式供参考，但不是太符合要求，因为这个数组公式虽然找出了重复数据，但是如果将数组公式向下复制时超出了出现重复数据的数量，会在相应单元格中显示错误。不久，这位朋友获得了更好的一个公式。这个公式非常好，很好地解决了这类问题，因此，我将其转贴于此，供有兴趣的朋友参考。 先看看下图: 在列A和列B中存在一系列数据(表中只是示例，可能数据还有很多)，要求找出某人(即列A中的姓名)所对应的所有培训记录(即列B中的数据)。也就是说，在单元格E1中输入某人的姓名后，下面会自动显示这个人所有的培训记录。 我们知道，Excel的LOOKUP系列的函数能够很方便地实现查找，但是对于查找后返回一系列的结果，这类函数无能为力，因此只能联合其它函数来实现。 这里，在方法一中使用了INDEX函数、SMALL函数、IF函数和ROW函数，在方法二中还使用了Excel 2007中新增的IFERROR函数。 方法一: 1、选择单元格E3; 2、输入公式:=INDEX(B:B,SMALL(IF($A$2:$A$25=$E$1,ROW($A$2:$A$25),65536),ROW(1:1))) & " "，然后同时按下Ctrl+Shift+Enter键，即输入数组公式。 3、选择单元格E3后下拉至所有单元格。 方法二: 1、选择单元格F3; 2、输入公式:=IFERROR(INDEX($A$2:$B$9,SMALL(IF($A$2:$A$9=$E$1,ROW($A$2:$A$9)-ROW($A$2)+1,ROW($A$9)+1),ROW(1:1)),2)," ")，然后同时按下Ctrl+Shift+Enter键，即输入数组公式。 3、选择单元格F3后下拉至所有单元格。 使用Excel工作表来安排工作——OnTime事件 fanjy 发表于 2008-10-31 13:09:00 前不久，有位朋友问:由于工作太多太杂，导致经常常忘记要做的事情，希望利用Excel工作表来定时提醒要进行的工作。也就是说，在到达某个时刻后，工作表中的文本框会自动显示该时刻应该做的工作。如下面的图1和图2所示，图1为工作安排表，A列为工作安排，B列为开始该工作的时间;图2为用于显示当前应进行的工作。 图1:工作安排表，在A列中是工作安排，B列中是工作开始的时间。可根据需要修改和添加 图2:显示当前工作的界面。单击“显示”按钮后程序开始工作，当达到某时刻后，文本框中会显示当前应进行的工作 (注:这只是示例，可以根据自已的实际需要在图1的工作表中增加工作安排及相应的时间) 程序代码如下: Option Explicit Sub DisplayData() Application.OnTime Now + TimeSerial(0, 0, 1), “ChangeText” End Sub Sub ChangeText() Dim rng As Range, rngFind As Range, rngValue As Range Dim rngStart As Range Dim dTime As Date Dim lLastRow As Long On Error Resume Next lLastRow = Sheet3.Range(”B65536″).End(xlUp).Row Set rng = Sheet3.Range(”B1:B” & lLastRow) dTime = Time Set rngFind = rng.Find(dTime) Sheet5.TextBox1.Value = rngFind.Offset(0, -1).Value DisplayData End Sub 工作表中的“显示”按钮关联的子过程为“DisplayData”。 我们只要将某个需要自动打开的工作簿的快捷方式放到C:\Prograrn Files\Microsoft Office\Office10\XLStart文件夹中，以后每次启动时，Excel都会自动打开相应工作簿。