比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据

您可以使用Excel的条件格式和筛选功能来实现这个需求。具体步骤如下：

1. 在第二张表格中选中需要比较的两个4列的无序数据区域，点击“条件格式” -> “新建规则” -> “使用公式确定要设置格式的单元格”，输入以下公式：
=AND(ISNA(MATCH(A1,$E$1:$H$5,0)),A1<>"")
这个公式的意思是，如果当前单元格的值在第二个数据区域中没有找到匹配项，且当前单元格不为空，则将其标红。

2. 在第三张表格中选中需要比较的两个4列的无序数据区域，点击“数据” -> “筛选”，在弹出的筛选界面中，选择需要显示的列，并勾选“仅显示与以下条件匹配的行”，在下拉框中选择“颜色”，并选择红色，点击确定即可。

这样，第二张表格中差异数据已经用红色字体标出，第三张表格中也只显示了差异数据。注意，以上方法假设第一个数据区域在当前工作表中，如果不在当前工作表中需要修改公式中的数据区域范围。

相关问题

用VBA代码实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据

以下是用VBA代码实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据的方法：

1. 首先打开Excel，按下Alt + F11进入VBA编辑器。

2. 在VBA编辑器中，打开需要操作的Excel文件，然后点击“插入” -> “模块”，在新建的模块中输入以下代码：

Sub CompareData()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim arr1 As Variant, arr2 As Variant, arr3 As Variant
    Dim i As Long, j As Long, k As Long
    
    ' 指定需要操作的工作表
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    Set ws3 = Worksheets("Sheet3")
    
    ' 获取需要比较的数据区域
    arr1 = ws1.Range("A1").CurrentRegion.Value
    arr2 = ws1.Range("E1").CurrentRegion.Value
    
    ' 在第二张表格中标出差异
    For i = 1 To UBound(arr1, 1)
        For j = 1 To UBound(arr1, 2)
            If IsError(Application.Match(arr1(i, j), arr2, 0)) And arr1(i, j) <> "" Then
                ws2.Cells(i, j).Font.Color = vbRed
            End If
        Next j
    Next i
    
    ' 在第三张表格中只显示差异数据
    k = 1
    For i = 1 To UBound(arr1, 1)
        For j = 1 To UBound(arr1, 2)
            If IsError(Application.Match(arr1(i, j), arr2, 0)) And arr1(i, j) <> "" Then
                arr3(k, 1) = arr1(i, j)
                arr3(k, 2) = arr1(i, j + 1)
                arr3(k, 3) = arr1(i, j + 2)
                arr3(k, 4) = arr1(i, j + 3)
                k = k + 1
            End If
        Next j
    Next i
    
    ' 在第三张表格中输出差异数据
    ws3.Range("A1").Resize(k - 1, 4).Value = arr3
End Sub

3. 在代码中，首先指定需要操作的工作表，然后获取需要比较的数据区域。接着，在第二张表格中标出差异，如果某个单元格的值在第一个数据区域中没有找到匹配项，且当前单元格不为空，则将其标红。最后，在第三张表格中只显示差异数据，将差异数据存储到一个数组中，然后输出到第三张表格中。

4. 在代码输入完成后，按下F5执行代码，即可实现比较在同一张表格的两个4列的无序数据，在第二张表格用红色字体标出差异，在第三张表格只显示差异数据的功能。

用VBA写一个对比表格的代码,其中需要对比的表格无序且位于同一张工作表中，差异用颜色标出

下面是一个 VBA 代码，可以用于比较同一张工作表中的两个无序表格中的数据，并将它们的差异用颜色标出：

Sub CompareTables()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    
    '设置需要比较的表格
    Set ws = Worksheets("Sheet1")
    
    '获取表格的最后一行和最后一列
    lastRow = Application.WorksheetFunction.Max(ws.Range("A:A").End(xlDown).Row, _
                                               ws.Range("E:E").End(xlDown).Row)
    lastCol = Application.WorksheetFunction.Max(ws.Range("A:Z").End(xlToLeft).Column)
    
    '比较表格1和表格2中的数据，并将差异用颜色标出
    For i = 2 To lastRow '从第2行开始是因为第1行是表头
        For j = 1 To lastCol
            If ws.Cells(i, j).Value <> ws.Cells(i, j + 4).Value Then '假设需要比较的两个表格中间隔了4列
                ws.Cells(i, j).Interior.ColorIndex = 6 '将表格1中不同的单元格标为黄色
                ws.Cells(i, j + 4).Interior.ColorIndex = 6 '将表格2中不同的单元格标为黄色
            Else
                ws.Cells(i, j).Interior.ColorIndex = xlNone '将表格1中相同的单元格颜色恢复为默认
                ws.Cells(i, j + 4).Interior.ColorIndex = xlNone '将表格2中相同的单元格颜色恢复为默认
            End If
        Next j
    Next i
    
    MsgBox "比较完成！"
End Sub

这个代码假设需要比较的两个表格位于同一张工作表中，比较结果将会直接用颜色标出。在比较时，它会逐个比较两个表格中的单元格，如果发现有不同的内容，则会将两个单元格都标为黄色，表示这里存在差异。如果两个单元格相同，则将它们的颜色恢复为默认。最后，它会弹出一个提示框告诉你比较已经完成。注意，这个代码中的比较条件是需要比较的两个表格中间隔了4列。如果这个条件不符合你的需求，你可以根据实际情况进行修改。