Se você estiver disposto a usar o VBA, seria uma solução relativamente simples. Sim, ele usa o VBA, mas eu consideraria mais fácil seguir do que a solução alternativa que você teria que fazer com intervalos nomeados. O código é dado abaixo. Você chamaria essa função em sua planilha com uma função como =BlendCells(", ",A2,B2)
. O primeiro parâmetro é strDelimiter
, que permite inserir como o texto é separado. No seu exemplo, isso seria uma vírgula e um espaço. Os próximos dois paramaters são as duas células que você deseja mesclar.
Option Explicit
Public Function BlendCells(strDelimiter As String, Range1 As Range, Range2 As Range) As String
'Declarations
Dim arr1() As String
Dim arr2() As String
Dim i As Long
'Setup each array
arr1 = Split(Range1.Value, strDelimiter)
arr2 = Split(Range2.Value, strDelimiter)
'Blend the text
For i = Application.Min(LBound(arr1), LBound(arr2)) To Application.Max(UBound(arr1), UBound(arr2))
If i <= UBound(arr1) Then BlendCells = BlendCells & arr1(i) & strDelimiter
If i <= UBound(arr2) Then BlendCells = BlendCells & arr2(i) & strDelimiter
Next
'Trim the results
BlendCells = Left(BlendCells, Len(BlendCells) - Len(strDelimiter))
End Function