TEXTJOIN/CONCAT函数超142列报#CALC!错误，求VBA优化方案

问题说明 #

• 使用Excel内置TEXTJOIN或CONCAT函数合并超过142列单元格时，会触发#CALC!错误，提示无法合并超过142列/单元格。
• 现有VBA代码可处理少量列合并需求，但需适配150+单元格的合并场景。

预期效果 #

合并后目标单元格会将指定行范围内的非空单元格内容用/分隔拼接，最终将结果汇总到单个单元格中，无报错且格式符合需求。

适配后的VBA代码 #

Sub TextJoinConcatsInTCTMRAT()
    Dim hl As Hyperlink
    Dim targetCell As Range, mergedRange As Range
    Dim startCol As Long, endCol As Long
    Dim concatRow As Long
    Dim wsDest As Worksheet
    Dim concatText As String
    Dim cell As Range

    Set wsDest = ActiveWorkbook.Sheets("TCTMRAT")

    For Each hl In ActiveWorkbook.Sheets("Extract").Hyperlinks
        On Error Resume Next
        Set targetCell = Range(hl.SubAddress)
        On Error GoTo 0

        If Not targetCell Is Nothing Then
            ' 定位目标单元格的合并区域
            If targetCell.MergeCells Then
                Set mergedRange = targetCell.MergeArea
            Else
                Set mergedRange = targetCell
            End If

            concatRow = mergedRange.Row + 1
            startCol = mergedRange.Column + 2 ' 跳过合并块的前两列
            endCol = mergedRange.Column + mergedRange.Columns.Count - 1

            concatText = ""
            If startCol <= endCol Then
                ' 遍历单元格直接拼接非空内容，避开函数列数限制
                For Each cell In wsDest.Range(wsDest.Cells(concatRow, startCol), wsDest.Cells(concatRow, endCol))
                    If cell.Value <> "" Then
                        concatText = concatText & IIf(concatText <> "", "/", "") & cell.Value
                    End If
                Next cell

                ' 将拼接结果写入目标单元格
                wsDest.Cells(concatRow, mergedRange.Column).Value = concatText
            End If
        End If

        Set targetCell = Nothing
        Set mergedRange = Nothing
    Next hl
End Sub

核心修改说明 #

• 移除原代码中依赖TEXTJOIN公式的逻辑，改用VBA直接遍历单元格拼接文本，彻底避开Excel内置函数的列数限制。
• 保留原逻辑中的非空判断与/分隔符规则，确保合并效果和原需求一致。
• 直接将拼接结果写入单元格，而非写入公式，避免后续编辑时再次触发函数限制问题。

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