嘿，刚好对Excel拆分排序这块熟得很，来给你一步步解决这两个问题！

这里给你两种实用方法，按需选就行：

方法一：Power Query（可视化操作，零公式） #

这是最省心的方法，适合处理大量数据：

• 选中你要处理的目标列（比如A列），点击顶部「数据」选项卡 → 「从表格/区域」（记得勾选“我的表格有标题”如果你的列有表头）。
• 进入Power Query编辑器后，先给原列排序：选中列，点击「开始」选项卡的「升序/降序」按钮，把值按你想要的顺序排好。
• 接着点击「转换」→ 「分组依据」，设置：
  • 分组依据：选择你的原列名
  • 操作：选「所有行」
  • 新列名：随便起一个，比如「行数据」
• 点击「确定」后，找到新生成的「行数据」列，点击列头右侧的展开按钮，选择「展开到新行」。
• 现在你会看到两列，再点击「转换」→ 「透视列」，设置：
  • 透视列：选原列名
  • 值列：选展开后出现的原数据列名（比如原来的列叫「值」就选它）
  • 聚合函数：选「不要聚合」
• 最后点击「关闭并上载」，结果会自动放到新工作表，新列就是按值排序后的拆分列啦！

方法二：公式法（适合喜欢用函数的朋友） #

假设你的数据在A1:A10（无表头）：

1. 提取并排序唯一值：在B1输入公式 =SORT(UNIQUE(A1:A10))，回车后会生成排序好的唯一值列表，这就是新列的表头。
2. 填充对应列的数据：在C1输入数组公式（Excel 365直接回车，旧版按Ctrl+Shift+Enter）：

   =IFERROR(INDEX($A$1:$A$10, SMALL(IF($A$1:$A$10=B1, ROW($A$1:$A$10)-ROW($A$1)+1), ROW(A1))), "")
   

3. 把C1的公式下拉填充到足够多行，再向右填充到所有新列，就能得到按值排序的拆分列了。

如果要自动化处理，尤其是经常要做这个操作，VBA宏是最佳选择。下面的代码会自动忽略空白单元格，提取唯一值并排序，再拆分到新列：

完整VBA代码 #

Sub SplitAndSortColumnWithBlanks()
    Dim sourceRange As Range
    Dim valueDict As Object
    Dim sortedValues As Variant
    Dim outputSheet As Worksheet
    Dim i As Long, j As Long, rowCount As Long
    Dim currentValue As String
    
    ' 自动获取A列有数据的范围（从A1到最后一行非空）
    Set sourceRange = ThisWorkbook.ActiveSheet.Range("A1:A" & _
        ThisWorkbook.ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row)
    rowCount = sourceRange.Rows.Count
    
    ' 用字典提取唯一值，同时跳过空白单元格
    Set valueDict = CreateObject("Scripting.Dictionary")
    valueDict.CompareMode = vbTextCompare ' 不区分大小写，按需修改
    
    For i = 1 To rowCount
        currentValue = Trim(sourceRange.Cells(i, 1).Value)
        If currentValue <> "" And Not valueDict.Exists(currentValue) Then
            valueDict.Add currentValue, Nothing
        End If
    Next i
    
    ' 将唯一值排序（Excel 2019及以上支持，旧版本可替换为自定义排序）
    sortedValues = WorksheetFunction.Sort(valueDict.Keys)
    
    ' 创建新工作表存放结果
    Set outputSheet = ThisWorkbook.Sheets.Add(After:=ActiveSheet)
    outputSheet.Name = "Split_Sorted_Result"
    
    ' 写入排序后的列标题
    For i = LBound(sortedValues) To UBound(sortedValues)
        outputSheet.Cells(1, i + 1).Value = sortedValues(i)
    Next i
    
    ' 填充每列的数据
    For i = LBound(sortedValues) To UBound(sortedValues)
        j = 2 ' 从第二行开始写入数据
        For k = 1 To rowCount
            currentValue = Trim(sourceRange.Cells(k, 1).Value)
            If currentValue = sortedValues(i) Then
                outputSheet.Cells(j, i + 1).Value = currentValue
                j = j + 1
            End If
        Next k
    Next i
    
    ' 自动调整列宽，让内容更美观
    outputSheet.Columns.AutoFit
    
    MsgBox "操作完成！结果已保存到工作表：" & outputSheet.Name, vbInformation
End Sub

使用说明 #

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器。
2. 右键点击左侧的工作簿名称 → 「插入」→ 「模块」，把上面的代码粘贴进去。
3. 回到Excel，按Alt+F8，选择SplitAndSortColumnWithBlanks，点击「运行」即可。

代码细节说明 #

• 自动识别A列的有效数据范围，不用手动调整。
• 用字典去重，同时通过Trim和空值判断跳过空白单元格。
• 使用WorksheetFunction.Sort快速排序，如果你用的是Excel 2016及更早版本，可以把排序部分替换为自定义的数组排序函数（比如冒泡排序）。
• 结果会放到新创建的工作表，避免覆盖原数据。

内容的提问来源于stack exchange，提问作者Basbasaemc