haru-s https://blog.hatena.ne.jp/haru-s/ ...ing logging 4.0 https://haru-s.hatenablog.com/ VBA Function join(r As Range, sep As String) As String Dim result As String Dim c As Range For Each c In r If c.Value <> "" Then result = result & c.Value & sep End If Next c If Len(result) = 0 Then join = "" Else join = Left(result, Len(result) - Len(sep)) End If End Function 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fharu-s.hatenablog.com%2Fentry%2F20110803%2F1312384106" title="区切り文字指定が可能なセル文字列連結関数 - ...ing logging 4.0" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-08-03 00:08:26 rich https://haru-s.hatenablog.com/entry/20110803/1312384106 1.0 100%