Farris有一个包含地址的工作表。一些地址非常接近，因此街道地址是相同的，只有地址的套间号部分不同。例如，一行可能具有地址“ Seymour Street 85，套房101”，另一行可能具有“ 85 Seymour Street，Suite 412”。 Farris想知道如何根据部分匹配（仅基于街道地址而忽略套房编号）删除地址列表中的重复项。

最简单的解决方案是将地址进一步分成单独的列，以使套件号位于其自己的列中。您可以按照以下步骤操作：

。确保地址栏右侧有空白栏。

。选择包含地址的单元格。

。从“数据”菜单中选择“文本到列”。 Excel启动“将文本转换为列”向导。 （请参见图1。）

。在向导的第一步中，确保已选择“分隔符号”选项，然后单击“下一步”。

。在向导的第二步中，确保选中“逗号”复选框，然后单击“下一步”。

。在向导的第三步中，单击“完成”。

现在，街道地址应位于原始列中，而以前的空白列现在应包含原始地址中逗号后的所有内容。换句话说，套件号在其自己的列中。在这种情况下，您的数据很容易使用过滤来显示或提取唯一的街道地址。

如果您不想将地址永久分成两列，则可以使用公式确定重复项。假定地址列表已排序，则可以使用类似于以下的公式：

=IF(OR(ISERROR(FIND(",",A3)),ISERROR(FIND(",",A2))), "",IF(LEFT(A3,FIND(",",A3))=LEFT(A2,FIND(",",A2)), "Duplicate",""))

该公式假定要检查的地址在A列中，并且此公式位于另一列的第3行中的某个位置。它首先检查当前行中的地址或之前行中的地址中是否存在逗号。如果两个地址中都没有逗号，则假定没有可能的重复。

两者都有逗号，公式检查逗号前的地址部分。如果它们匹配，则单词“重复”

返回；如果它们不匹配，则不返回任何内容。

将公式复制到该列下（以使一个公式对应于每个地址）的结果是，您将拥有单词“ Duplicate”

出现在与先前地址的第一部分匹配的那些地址旁边。然后，您可以找出要处理的重复项的用途。

另一种选择是使用宏来确定可能的重复项。

可以使用多种方法来设计宏来确定重复项。此处显示的代码只是根据范围检查“键”值的前X个字符，并返回第一个匹配单元格的地址。

Function NearMatch(vLookupValue, rng As Range, iNumChars)

Dim x As Integer     Dim sSub As String

Set rng = rng.Columns(1)

sSub = Left(vLookupValue, iNumChars)

For x = 1 To rng.Cells.Count         If Left(rng.Cells(x), iNumChars) = sSub Then             NearMatch = rng.Cells(x).Address             Exit Function         End If     Next     NearMatch = CVErr(xlErrNA)

End Function

例如，假设您的地址在A2：A100范围内。

在B列中，您可以使用此NearMatch函数返回可能重复的地址。在单元格B2中输入以下公式：

=NearMatch(A2,A3:A$100,12)

函数（A2）的第一个参数是要用作“键”的单元格。将此单元格的前12个字符与A3：A $ 100范围中每个单元格的前12个字符进行比较。如果在前12个字符匹配的范围内找到一个单元格，则该函数将返回该单元格的地址。如果找不到匹配项，则返回＃N / A错误。如果将B2中的公式向下复制到单元格B3：B100，则将A列中的每个对应地址与该地址下方的所有地址进行比较。您最终得到原始列表中可能重复的列表。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2782）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

根据部分匹配删除重复项。