or ?
Code:Sub ConcatDashedRanges() Columns(1).replace "=","'=" For Each Ar In Columns(1).SpecialCells(2).Areas Ar(1).Offset(, 1) = Application.Trim(Join(filter(filter(Application.Transpose(Ar.Value),"--",false),"'=",false), ";")) Next End Sub
or ?
Code:Sub ConcatDashedRanges() Columns(1).replace "=","'=" For Each Ar In Columns(1).SpecialCells(2).Areas Ar(1).Offset(, 1) = Application.Trim(Join(filter(filter(Application.Transpose(Ar.Value),"--",false),"'=",false), ";")) Next End Sub
Bookmarks