Excelの範囲内で非空白セル間にセミコロンを挿入する

Question

簡単な質問です。私は名前の列と複数の応答オプションの行（以下の動物）のスプレッドシートを持っています。私はすべての非空白の応答の間にセミコロンで応答を表示する新しい列を作成したいと思います。

たとえば、Johnにヘビとネコがある場合、Snake; Catとして表示されます。もしジョンがヘビ、ネコ、ウサギを持っていれば、それはスネークとして表示されます;ネコ、ウサギですが、もしジョンがただヘビを持っていればセミコロンはありません。したがって、基本的には、最初または最後の応答の前または後にセミコロンはありませんが、複数の場合はrespnosesの間だけです。

これはどのように簡単に達成できますか？

  Snake Dog Cat Rabbit 

ジョン

エリン

クリス

Answer 1

方法について：

Public Function Gather(rng As Range) As String 
    Dim r As Range 
    For Each r In rng 
     Gather = Gather & " " & r.Value 
    Next r 
    Gather = Replace(Application.WorksheetFunction.Trim(Gather), " ", ";") 
End Function