本文详细介绍了 Excel 中的 EXACT 函数及其在 VBA 中的实现方法。EXACT 函数用于比较两个文本字符串是否完全相同，区分大小写。通过编写自定义的 VBA 函数 VBA_EXACT，我们可以在 Excel 中实现相同的功能。文章还通过一个实际表格数据案例，展示了如何使用 VBA 代码比较两个表格中的数据，并找出完全相同的记录。案例中包含了详细的代码解释和运行结果，帮助读者更好地理解和应用这一功能。无论是处理简单的文本比较，还是复杂的表格数据对比，本文都提供了实用的解决方案。

什么是 EXACT Function in Excel？

EXACT 是 Excel 中的一个文本函数，用于比较两个文本字符串，并返回 TRUE 或 FALSE，表示这两个字符串是否完全相同。EXACT 函数区分大小写，因此 "Apple" 和 "apple" 会被视为不同的字符串。

语法：

EXACT(text1, text2)

• text1：第一个要比较的文本字符串。
• text2：第二个要比较的文本字符串。

用 VBA 实现 EXACT Function

在 VBA 中，我们可以通过编写自定义函数来实现 EXACT 的功能。以下是一个示例代码：

Function VBA_EXACT(text1 As String, text2 As String) As Boolean
    ' 比较两个字符串是否完全相同（区分大小写）
    VBA_EXACT = (text1 = text2)
End Function

复杂数据案例演示

假设我们有一个包含员工信息的表格，其中包含员工的姓名、工号和部门。我们想要比较两个表格中的数据，看看是否有完全相同的记录。

表格数据

表1：员工信息

表2：员工信息

VBA 代码实现

Sub CompareTables()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim matchCount As Long
    
    ' 设置工作表
    Set ws1 = ThisWorkbook.Sheets("表1")
    Set ws2 = ThisWorkbook.Sheets("表2")
    
    ' 获取表1和表2的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化匹配计数器
    matchCount = 0
    
    ' 遍历表1和表2的每一行
    For i = 2 To lastRow1
        For j = 2 To lastRow2
            ' 比较姓名、工号和部门是否完全相同
            If VBA_EXACT(ws1.Cells(i, 1).Value, ws2.Cells(j, 1).Value) And _
               VBA_EXACT(ws1.Cells(i, 2).Value, ws2.Cells(j, 2).Value) And _
               VBA_EXACT(ws1.Cells(i, 3).Value, ws2.Cells(j, 3).Value) Then
                matchCount = matchCount + 1
                Exit For
            End If
        Next j
    Next i
    
    ' 输出匹配结果
    MsgBox "在两个表格中，有 " & matchCount & " 条完全相同的记录。"
End Sub

Function VBA_EXACT(text1 As String, text2 As String) As Boolean
    ' 比较两个字符串是否完全相同（区分大小写）
    VBA_EXACT = (text1 = text2)
End Function

代码解释

• CompareTables 子过程：
• 首先获取两个工作表 ws1 和 ws2，分别代表表1和表2。
• 使用 End(xlUp) 方法获取表1和表2的最后一行。
• 使用嵌套的 For 循环遍历表1和表2的每一行，并使用 VBA_EXACT 函数比较姓名、工号和部门。
• 如果找到完全相同的记录，则增加 matchCount 计数器的值。
• 最后，使用 MsgBox 输出匹配结果。
• VBA_EXACT 函数：
• 这个函数用于比较两个字符串是否完全相同，区分大小写。
• 如果两个字符串相同，则返回 True，否则返回 False。

运行结果

在这个案例中，表1和表2的前5条记录是完全相同的，因此运行代码后会弹出消息框，显示 "在两个表格中，有 5 条完全相同的记录。"。

通过 VBA 实现 EXACT 函数，我们可以轻松比较两个表格中的数据，并找出完全相同的记录。这种方法特别适用于处理复杂的数据对比任务，尤其是在数据量较大的情况下。