Excel自定义VBA拼接函数ConcatCells单元格调用返回#VALUE错误咨询

• 核心限制：Excel 工作表自定义函数（UDF）运行时，禁止直接访问Selection对象。单元格公式触发计算的过程中，Selection没有合法的上下文取值，调用该对象会直接触发计算错误，返回#VALUE。
• 逻辑缺陷：自定义函数没有显式定义传入参数，所有需要参与计算的数据源都应该作为参数传入，Excel的计算引擎才能正确识别依赖关系、触发重算。
• 细节问题：代码中使用Chr(13)作为换行符，Excel 单元格要显示多行内容需要使用Chr(10)（换行符），同时需要手动开启目标单元格的「自动换行」格式。

' 定义参数rng为需要拼接的单元格区域
Function ConcatCells(rng As Range) As String
    Dim cell As Range
    ConcatCells = ""
    ' 遍历传入的单元格区域拼接内容
    For Each cell In rng
        ConcatCells = ConcatCells & Chr(10) & cell.Text
    Next
    ' 移除开头多余的换行符，避免空区域调用时报错
    If Len(ConcatCells) > 0 Then
        ConcatCells = Right(ConcatCells, Len(ConcatCells) - 1)
    End If
End Function

在目标单元格输入公式=ConcatCells(你要拼接的单元格区域)，比如要拼接A1到A5的内容就写=ConcatCells(A1:A5)，之后右键设置该单元格格式，在「对齐」选项卡勾选「自动换行」即可显示多行效果。

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