如何将Excel Power Query(PQ)表导出为单行CSV字符串？

方案1：直接在原Power Query中处理（最推荐，无格式问题、无长度限制） #

因为你的表格本身由Power Query生成，直接在查询中修改逻辑即可从根源避免日期转序列、拼接长度受限的问题，操作步骤如下：

• 选中Power Query生成的表格，点击「数据」选项卡 -> 「查询」组 -> 「编辑」，打开Power Query编辑器
• 全选查询中的所有列，点击顶部「转换」选项卡 -> 「数据类型」选择「文本」，所有值会保留表格中显示的原始格式，日期不会转为数字、小数逗号也不会丢失
• 点击右侧「应用步骤」栏的「+」号新增自定义步骤，输入公式：= List.Combine(Table.ToRows(#"更改的类型"))，其中#"更改的类型"为上一步修改数据类型的步骤名，可从右侧步骤栏直接点选补全，执行后整个表格会转为一维值列表
• 再新增一个自定义步骤，输入公式：= Text.Combine(自定义列表, ";")，其中自定义列表为上一步生成列表的步骤名，执行后直接得到你需要的单行拼接结果
• 你可以选择将该结果加载到Excel单元格，也可以直接复制内容导出为文件

方案2：用VBA宏实现（适合不想修改原有Power Query逻辑的场景） #

你的文件是xlsm格式支持宏，直接运行下面的代码即可，自动保留所有单元格的显示格式，无拼接长度限制：

Sub 拼接表格为单行()
    Dim targetRng As Range, cell As Range, joinResult As String
    ' 替换下方参数为你实际的工作表名和表格范围，示例中A1:C4为包含表头的全表范围
    Set targetRng = ThisWorkbook.Worksheets("你的工作表名").Range("A1:C4")
    
    For Each cell In targetRng
        ' 取单元格显示的文本，而非存储值，避免日期转数字
        joinResult = joinResult & cell.Text & ";"
    Next
    ' 移除末尾多余的分隔符
    joinResult = VBA.Left(joinResult, VBA.Len(joinResult) - 1)
    
    ' 结果输出到E1单元格，可按需修改输出位置
    ThisWorkbook.Worksheets("你的工作表名").Range("E1").Value = joinResult
End Sub

修改代码中的工作表名和范围参数后，运行宏即可在目标单元格得到你要的结果。

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