如何用VBA实现可变列数表格中指定表头数据的TextJoin合并

我帮你把你的需求和代码进展整理成规范的Markdown格式，方便后续交流和优化：

需求概述 #

• 表格列数动态变化，无固定列数
• 表格首行为表头，需根据已知表头值，将对应列的行数据合并到单个单元格
• 合并后的内容以空格作为分隔符，效果等同于TEXTJOIN(" ", TRUE, 目标列区域)公式
• 已知该需求可通过Excel公式实现，现需改用VBA代码完成

公式解决方案（参考注释） #

注：此处为原公式实现方案，作为VBA开发的参考基准

当前编写的代码片段 #

With ActiveSheet
    ' 此处为你已编写的、用于查找表头并在最后一列添加合并信息的代码逻辑
    ' 可根据实际代码补充完整，示例参考：
    ' Dim targetHeaders As Variant
    ' targetHeaders = Array("目标表头1", "目标表头2") ' 替换为你的实际目标表头
    ' Dim lastCol As Long, rowNum As Long
    ' lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    ' .Cells(1, lastCol + 1).Value = "合并结果"
    ' ' 后续遍历数据行、匹配表头并执行合并的逻辑
End With

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