セル範囲を指定して文字列を結合・連結するユーザー定義関数:エクセルマクロ・Excel VBAの使い方/ユーザー定義関数

▼指定したセル範囲の文字列を連結するユーザー定義関数 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

[hagihide]

http://www.relief.jp/itnote/archives/002391.php 改行入れたいときはコレ。