複数のセルを1つの行にまとめ、すべてのデータポイントを示す行を結合します。

Question

私は1つのセルに結合したい範囲のセルD1-AS（この範囲は月に基づいて変わります）を持っています。また、このセルをクリックしなくてもすべてのデータポイントを表示したいと思います。私はいくつかの投稿を見てきましたが、私が見つけたものは何も働いていません。

= CONCATENATEFORERIC（D1：AS1）挿入する

コードIはERIC関数のCONCATENATEを使用する[2]

Answer 1

[セルB6は、私が現在持っているものです]関数の前に使用することができます。

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