指定されたセル範囲の文字列を連結する関数です。 Public Function U_StrCat(セル範囲 As range) As String Dim result As String Dim cell As range result = "" For Each cell In セル範囲 result = result & cell.Value Next U_StrCat = result End Funct…