excel两个表怎么取消重排

在Excel中取消两个表的重排： 使用“排序和筛选”功能、调整原始数据顺序、使用VBA代码

在Excel中取消两个表的重排，可以通过多种方法实现。首先，您可以使用Excel的“排序和筛选”功能来恢复原始数据的顺序。其次，您可以手动调整数据的顺序，确保两个表的数据一致。最后，您还可以编写VBA代码自动化取消重排的过程。本文将详细介绍这三种方法及其具体步骤。

一、使用“排序和筛选”功能

Excel的“排序和筛选”功能可以帮助您快速恢复数据的原始顺序。以下是具体步骤：

1、标记原始顺序

在对数据进行排序之前，建议添加一列来标记数据的原始顺序。这样，您可以随时恢复到原来的顺序。

在数据表的左侧插入一列，命名为“原始顺序”。
在“原始顺序”列中，从1开始编号，直到最后一行。

2、排序和取消排序

选择需要排序的数据区域。
在“数据”选项卡中，点击“排序和筛选”按钮。
选择排序条件，例如按某一列的升序或降序进行排序。
当需要取消重排时，只需按照“原始顺序”列进行排序，即可恢复到原始数据顺序。

3、应用到多个表

如果您有多个表需要取消重排，可以在每个表中添加“原始顺序”列，并按照相同的步骤进行操作。

二、调整原始数据顺序

有时候，您可能需要手动调整数据的顺序，特别是当数据量较少时。这种方法虽然耗时，但可以确保数据完全按照您的需求进行排列。

1、复制和粘贴

打开两个表，将需要调整的表复制到一个新的工作表中。
手动调整数据的顺序，使其与另一个表的数据顺序一致。
将调整后的数据粘贴回原来的表中。

2、使用公式

您还可以使用Excel公式来匹配和调整数据顺序。例如，使用VLOOKUP或INDEX函数来查找和匹配数据。

在需要调整顺序的表中，插入一个新列。
使用VLOOKUP或INDEX函数查找另一个表中的数据，并将其填充到新列中。
根据新列中的数据顺序，调整原始数据的顺序。

三、使用VBA代码

对于复杂的数据重排任务，编写VBA代码可以极大地简化工作。以下是一个简单的VBA示例代码，帮助您取消两个表的重排：

Sub CancelReorder()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim r1 As Range
    Dim r2 As Range
    Dim cell As Range
    Dim dict As Object
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set r1 = ws1.Range("A1:A" & ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row)
    Set r2 = ws2.Range("A1:A" & ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row)
    Set dict = CreateObject("Scripting.Dictionary")
    ' 将表2的原始顺序存入字典
    For Each cell In r2
        dict(cell.Value) = cell.Row
    Next cell
    ' 根据表2的原始顺序调整表1
    For Each cell In r1
        If dict.exists(cell.Value) Then
            ws1.Rows(cell.Row).Copy Destination:=ws1.Rows(dict(cell.Value))
        End If
    Next cell
End Sub

1、代码解释

该代码首先定义了两个工作表和两个数据范围。
使用字典对象存储表2的原始顺序。
遍历表1的数据，根据表2的原始顺序调整表1的数据顺序。

2、运行代码

打开Excel工作簿，按Alt + F11进入VBA编辑器。
插入一个新模块，将上述代码粘贴到模块中。
关闭VBA编辑器，返回Excel。
按Alt + F8运行宏，并选择CancelReorder。

通过上述三种方法，您可以轻松取消两个表的重排，恢复数据的原始顺序。根据实际需求选择最适合的方法，可以提高工作效率，确保数据的准确性和一致性。