Excel中动态字符串列转置并生成拼接求和公式字符串

Got it, let's break this down into two straightforward solutions—one using native Excel formulas, another with a quick VBA macro—both will generate the exact text string you need (not a calculated numerical value) as requested.

假设你的动态数据列（从VPPTest1到VPPTestN）位于A2:A7（A1是标题行），可以直接用TEXTJOIN函数来快速拼接：

="VPPTotal = "&TEXTJOIN(" + ", TRUE, A2:A7)

细节说明： #

• TEXTJOIN(" + ", TRUE, A2:A7)：把指定区域内的所有非空单元格用+连接起来（第二个参数TRUE会自动忽略空单元格，完美适配动态列的行数变化）
• 前面的"VPPTotal = "&直接把前缀字符串和拼接后的内容连在一起，生成完整的目标文本

如果你用的是Excel 2016之前的版本（没有TEXTJOIN），可以用这个替代方案（注意：仅适用于纯文本内容，不含数字或特殊格式）：

="VPPTotal = "&SUBSTITUTE(PHONETIC(A2:A7), CHAR(10), " + ")

如果需要更灵活的控制（比如处理特殊字符、自定义分隔符），可以写一个简单的自定义函数：

1. 按下Alt + F11打开VBA编辑器
2. 右键点击你的工作簿 → 插入 → 模块
3. 粘贴以下代码：

Function GenerateTotalFormula(rng As Range) As String
    Dim cellVals As Variant
    ' 将区域转换为数组，提升处理速度
    cellVals = rng.Value
    ' 转置数组（因为Range.Value返回的是二维数组）
    cellVals = Application.Transpose(cellVals)
    ' 拼接成目标字符串
    GenerateTotalFormula = "VPPTotal = " & Join(cellVals, " + ")
End Function

使用方法： #

回到Excel工作表，在任意空白单元格输入：

=GenerateTotalFormula(A2:A7)

然后按回车即可生成目标文本。这个函数会自动适配你选择的任意动态区域，不管行数多少。

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