将多个单元合并为一行，并显示所有数据点。

Question

我有一系列细胞D1-AS（这个范围根据月份变化），我想合并成一个细胞。我也希望这个单元格显示所有的数据点，而不用单击单元格。我查看了几个帖子，但没有发现我的工作。 [细胞B6是我现在有〕〔2〕

Answer 1

我会使用CONCATENATE FOR ERIC功能：

= CONCATENATEFORERIC（D1：AS1）

代码将被插入功能之前可以使用：

Public Function CONCATENATEFORERIC(rng As Range) As String 

Dim rng1 As Range 

CONCATENATEFORERIC = "" 

    For Each rng1 In rng 
     CONCATENATEFORERIC = CONCATENATEFORERIC & rng1.Text 
    Next rng1 

End Function