如何在Excel中按值自动排序列？
在Excel中处理列表或表格时，通常希望数据始终保持有序，特别是在添加新信息时。例如，假设你管理一个如下面截图所示的采购表，其中商品价格经常更新或添加新条目。在这种情况下，你可能会注意到当你输入新值时，Excel并不会自动重新排序“价格”列——数据会保持在原来的位置，直到你再次手动排序。这很容易导致混淆或错误，特别是当你需要快速分析或呈现始终有序的信息时。因此，知道如何在有更改或添加时根据其值自动排序列可以节省大量时间并保持工作流程的准确性。
本指南提供了实用的方法，帮助你在更新工作表时自动按值对特定列进行排序。下面，你会发现VBA宏解决方案以及适用于新版Excel的动态公式解决方案。每种方法都适合特定场景，并提供了设置、应用技巧、参数解释和故障排除的详细信息，以确保你能有效地实施最合适的方案。
使用VBA按值自动排序列
此VBA宏每次在工作表中的某一列输入新值或修改现有数据时，都会对该列的所有数据进行自动排序。如果你使用的是旧版本Excel，或者希望表中的数据始终保持原地排序而无需使用额外的列，这种方法非常适合。
这种方案适用的典型场景：
- 当你希望表格或列中的数据在任何更改后立即反映更新后的顺序，而无需手动排序时。
- 如果你管理多个用户频繁更新相同数据范围的协作工作表，并且需要视图保持一致排序时。
开始前需知：
- VBA解决方案会对你的工作表进行直接更改。在开始之前保存文件是个好主意。
- 只有在Excel环境中启用了宏的情况下，此宏才能工作。
- 宏将附加到特定的工作表上，如果表格布局发生变化，可能需要调整。
1. 在Sheet标签栏中右键单击当前工作表名称，然后从上下文菜单中单击“查看代码”。
2. 在打开的“Microsoft Visual Basic for Applications”窗口中，将以下VBA宏代码粘贴到目标工作表的代码窗口中。
VBA：在Excel中自动排序列
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub注释：
1) 在上述VBA代码中， "B:B" 指代B列，“B1”是B列第一行的单元格，“B2”是标题下方的单元格。你可以修改这些引用以匹配你要自动排序的数据列。
2) 参数 Header:=xlYes 第五行指定你的数据范围包含标题行，确保标题不会与列值一起排序。如果你的数据范围没有标题，请将其更改为 Header:=xlNo 并同时调整 Key1:=Range("B2") 为 Key1:=Range("B1").
3) 只要指定列中有单元格值发生更改，就会触发该宏。
3. 返回到你的工作表。现在，每当你在“价格”列中添加新数字或更新现有值时，该列将立即按升序重新排序。
提示： 始终在列中最后一个已使用单元格之后立即输入新值。如果数据中存在空白单元格，排序将无法按预期运行。
使用Excel公式（动态数组）按值自动排序列
对于使用Excel 365或Excel 2021及更高版本的用户，动态数组函数如SORT和SORTBY提供了一种高效、无代码的方式来生成排序列表，并在数据更改时保持自动更新。此解决方案不需要VBA，在最新版本的Excel中是原生支持的，适用于你希望保留原始数据不变并在单独的区域或工作表中使用排序副本的情况。
我应该在什么情况下使用这种方法？
- 如果你需要在不同位置（例如用于报告、仪表板或打印）实时显示原始数据的排序版本，同时保留原始未加工数据时。
- 当你使用的是支持动态数组的Excel 365、Excel 2021或更高版本时。
- 此方法在新区域中显示排序后的数据，但不会重新排列你的原始数据。如果你需要就地重新排序，请考虑上面的VBA解决方案。
- 动态数组在Excel 2019或更早版本中不可用。
1. 决定要在何处显示排序列表。例如，如果你的原始表格在A1:C10（第1行为标题），并且你希望在E1单元格中显示排序列表，则选择E1。
2. 在E1单元格中输入以下公式：
=SORT(A2:C10,2,1)在上述公式中：
- A2:C10 是你的原始数据范围（不包括标题）。根据你的数据范围调整这个值。
- 2 表示你正在按第二列排序——例如，如果价格在所选范围的第二列中。
- 1 指定升序。如果需要降序，请使用 -1。
3. 按下Enter键。该公式将输出一个动态、排序后的数据副本。如果你在原始范围内添加、删除或编辑项目（例如新的价格或产品），排序列表会立即更新——无需手动干预。
注释：
- 如果在原始区域下方输入了更多数据，则公式中的引用（例如
A2:C10）必须相应扩展。 - 对于不断变化的数据范围，考虑使用Excel表格（插入 > 表格），并在SORT公式中引用表格名称以实现自动范围更新。
- 如果使用单列（例如 B2:B10），公式简化为
=SORT(B2:B10,1,1)。
演示：在Excel中使用VBA按值自动排序列
轻松按出现频率在Excel中排序
Kutools for Excel的“高级排序”功能允许你毫不费力地按各种标准（如文本长度、姓氏、绝对值、频率等）对数据进行排序。
Kutools for Excel - 通过超过300个必备工具，让Excel功能大幅提升。永久免费享受AI功能！立即获取
最佳Office办公效率工具
| 🤖 | Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数…… |
| 热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入…… | |
| 高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表…… | |
| 列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列…… | |
| 特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）…… | |
| 15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| …… |
通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……
Office Tab为Office带来多标签界面，让您的工作更加轻松
- 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
- 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
- 可提升50%的工作效率，每天为您减少数百次鼠标点击！
所有Kutools加载项，一键安装
Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。
- 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
- 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
- 协同更高效——提升Office应用间的整体工作效率
- 30天全功能试用——无需注册，无需信用卡
- 超高性价比——比单独购买更实惠