Hej Einnoj!
Föreslår att du skapar en egendefinierad funktion med VBA kod enligt följande:
Öppna din VBA editor genom att trycka Alt+F11
Högerklicka på Microsoft Excel-objekt i den vänstra listen
Välj Infoga – Modul
Klistra in nedanstående kod i den stora vita boxen:
Function Concat(r As Range, Optional sSep) As String
Dim cell As Range
If IsMissing(sSep) Then
sSep = " "
End If
For Each cell In r
If cell.Value <> "" Then
Concat = Concat & cell.Text & sSep
End If
Next
If Len(sSep) > 0 Then Concat = Left(Concat, Len(Concat) - Len(sSep))
End Function
Denna VBA kod för funktionen sammanfogar all data i ett angivet område av celler och ignorerar tomma celler.
Funktionen "Concat" kommer att ligga under kategorin "Anpassade" i Infoga funktion (Shift+F3).
Formeln skrivs enligt följande i ditt exempel:
DY6: =Concat(B6:DX6;”, ”)