▼指定したセル範囲の文字列を連結するユーザー定義関数 Function ConcatenateRangeText(セル範囲 As Range) As String Dim rng As Range Dim ret As String: ret = "" For Each rng In セル範囲 ret = ret & rng.Text Next ConcatenateRangeText = ret End Function 上記のコードをVBE(Visual Basic Editor)を起動して標準モジュールに貼り付ければ、普通のワークシート関数と同様に使えます。 A1セルからA3セルにデータが入力されているときに、A4セルに「=ConcatenateRangeText(A1:A3)」と入力してやれば、A4セルにA1セルからA3セルのデータが連結されて表示されます。 なお、CONCATEN