excel表格中怎么把俩个一样的数圈出来

在Excel表格中圈出两个一样的数，可以使用条件格式、VBA宏代码、函数公式等方法，具体步骤如下：使用条件格式、使用VBA宏代码、使用函数公式。 下面将详细介绍如何使用条件格式这一方法来实现。

一、使用条件格式

1. 选择数据范围

首先，打开Excel表格，选择你需要查找相同数值的单元格范围。可以是一个列、一个行，或者整个表格。

2. 使用条件格式

在Excel菜单栏中，选择“开始”选项卡，然后点击“条件格式”按钮。在下拉菜单中选择“新建规则”。

3. 设定规则

在新建规则窗口中，选择“使用公式确定要设置格式的单元格”。在“为符合此公式的值设置格式”框中，输入以下公式：

=COUNTIF(A:A, A1)>1

这里，A:A表示你选择的列，A1表示你选择的第一个单元格。这个公式的意思是：如果在列A中，某个单元格的值出现超过一次，则应用格式。

4. 设置格式

点击“格式”按钮，选择你希望的格式（例如，填充颜色、字体颜色、边框等）。点击“确定”完成设置。

5. 确认应用

最后，点击“确定”应用规则。Excel将自动对数据范围内的相同值进行格式化。

二、使用VBA宏代码

1. 开启开发者选项

首先，确保Excel的开发者选项卡是可见的。如果不可见，可以通过以下步骤启用：

点击“文件”菜单，然后选择“选项”。
在Excel选项窗口中，选择“自定义功能区”。
在右侧的主选项卡列表中，勾选“开发工具”选项，然后点击“确定”。

2. 创建新宏

点击“开发工具”选项卡，然后点击“Visual Basic”按钮。在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新模块。

3. 编写代码

在新模块中，输入以下代码：

Sub HighlightDuplicates()
    Dim Rng As Range
    Dim Cell As Range
    Dim Duplicates As Collection
    Set Duplicates = New Collection
    On Error Resume Next
    ' Change the range to your specific range
    Set Rng = Range("A1:A100")
    For Each Cell In Rng
        If WorksheetFunction.CountIf(Rng, Cell.Value) > 1 Then
            Duplicates.Add Cell.Address, CStr(Cell.Value)
        End If
    Next Cell
    On Error GoTo 0
    For Each Cell In Rng
        If Not IsError(Application.Match(Cell.Address, Duplicates, 0)) Then
            Cell.Interior.Color = RGB(255, 0, 0) ' Highlight duplicates in red
        End If
    Next Cell
End Sub

4. 运行宏

关闭VBA编辑器，返回Excel表格。在“开发工具”选项卡中，点击“宏”按钮，选择刚才创建的HighlightDuplicates宏，然后点击“运行”。

三、使用函数公式

1. 添加辅助列

在数据范围旁边添加一列，作为辅助列。假设你的数据在A列，你可以在B列中输入公式来查找重复项。

2. 输入公式

在B1单元格中输入以下公式：

=IF(COUNTIF(A:A, A1)>1, "Duplicate", "")

这个公式的意思是：如果A列中的某个值出现超过一次，在B列中显示“Duplicate”。

3. 应用格式

选择A列，然后点击“条件格式”按钮。在下拉菜单中选择“新建规则”，然后选择“使用公式确定要设置格式的单元格”。在“为符合此公式的值设置格式”框中，输入以下公式：

=B1="Duplicate"