Excel中单单元格含逗号分隔多组关联值时如何按日期排序联动对应数据

方法1：Power Query（无代码，Excel原生功能，适配3万行量级） #

操作步骤：

• 选中包含表头的原始数据区域，点击「数据」选项卡 -> 「从表格/区域」导入Power Query编辑器
• 首先添加原始行标识：点击「添加列」选项卡 -> 「索引列」-> 「从1开始」，命名为「原始行号」
• 同时选中A、B两列，点击「转换」选项卡 -> 「拆分列」-> 「按分隔符」，分隔符选逗号，拆分选项勾选「拆分到行」，确定后每个州与对应日期会独立成一行
• 选中B列（日期列），右键选择「更改类型」-> 「日期」，确认日期格式识别正确
• 按顺序选中两列：先点「原始行号」列、再点日期列，点击「升序排序」，同一原始行的条目会自动按日期从早到晚排序
• 再次选中A、B两列，点击「转换」选项卡 -> 「分组依据」：
  • 分组依据选择「原始行号」
  • 第一个聚合项：列名填「州名」，操作选「连接值」，分隔符输入,
  • 第二个聚合项：列名填「日期」，操作选「连接值」，分隔符输入,
• 删除「原始行号」列，点击「关闭并上载」即可导出回Excel，3万行处理耗时不超过1分钟

方法2：VBA自定义函数（适合直接在Excel内批量调用） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function SortStateByDate(stateStr As String, dateStr As String) As Variant
    Dim states As Variant, dates As Variant
    Dim i As Long, j As Long, tempDate As Date, tempState As String
    '拆分字符串为数组
    states = Split(stateStr, ", ")
    dates = Split(dateStr, ", ")
    '冒泡排序同步匹配州名与日期
    For i = LBound(dates) To UBound(dates) - 1
        For j = i + 1 To UBound(dates)
            If CDate(dates(i)) > CDate(dates(j)) Then
                '交换日期
                tempDate = CDate(dates(j))
                dates(j) = dates(i)
                dates(i) = tempDate
                '同步交换对应州名
                tempState = states(j)
                states(j) = states(i)
                states(i) = tempState
            End If
        Next j
    Next i
    '返回结果数组
    SortStateByDate = Array(Join(states, ", "), Join(dates, ", "))
End Function

返回Excel界面，在C2单元格输入公式=INDEX(SortStateByDate(A2,B2),1)获取排序后的州名，D2单元格输入=INDEX(SortStateByDate(A2,B2),2)获取排序后的日期，下拉填充整列即可。

方法3：Python脚本（处理速度最快，3万行10秒内完成） #

安装pandas库后运行以下脚本，替换对应文件路径即可：

import pandas as pd

def sort_row(row):
    # 拆分并配对州名与日期
    pairs = list(zip(row['州名'].split(', '), pd.to_datetime(row['日期'].split(', '), format='%m-%d-%Y')))
    # 按日期升序排序
    pairs.sort(key=lambda x: x[1])
    # 重新拼接为字符串
    sorted_states = ', '.join([p[0] for p in pairs])
    sorted_dates = ', '.join([p[1].strftime('%m-%d-%Y') for p in pairs])
    return pd.Series([sorted_states, sorted_dates])

# 读取原始文件
df = pd.read_excel('你的本地文件路径.xlsx')
# 逐行处理
df[['排序后州名', '排序后日期']] = df.apply(sort_row, axis=1)
# 导出结果
df.to_excel('处理后结果.xlsx', index=False)

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