SQL группировка отрезков, оконные функции

В общем виде, Ваш метод, думаю, не будет корректно работать если в real_group есть пути длиннее 3-х отрезков.
Пример решения через рекурсию. Мах глубина рекурсии - мах длина пути в данных.

with segments as ( --все отрезки являются началом построения неориентированного графа
    select id,mark_A,mark_B,real_group
        ,cast(concat('[',id,']') as varchar(max)) s1Path
    from #all_marks t1
)
,rGroup as (-- соберем графы, включающие начальные отрезки (для каждого id)
  select id id0  -- Ид, для которого собриаем граф
      , 1 n  --номер шага рекурсии, для инфо
      ,id, mark_A, mark_B, real_group -- в качестве первого шага - сам этот отрезок
      , cast(s1Path as varchar(max)) grPath -- пройденный путь по графу
  from segments
  union all -- все связанные отрезки, рекурсивно
  select r.id0
       ,n+1 n
       , a.id, a.mark_A, a.mark_B, a.real_group   -- следующий отрезок
      , concat(r.grPath,'>',a.s1Path) grPath  --список пройденных отрезков по пути
  from rGroup r inner join  segments a on  
      (a.mark_A=r.mark_A )  or (a.mark_A=r.mark_B ) 
   or (a.mark_B=r.mark_A )  or (a.mark_B=r.mark_B )  
  where  charindex(a.s1Path,r.grPath)<1 -- пока не наткнемся на пройденный отрезок
)
,t2 as( -- исключим дубли для каждого пути
select id0,id
from rGroup
group by id0,id
  )
,t3 as(
select id0,string_agg(id,',')within group(order by id) idPathOrdered -- весь граф
from t2 
group by id0
)
select *, dense_rank()over(order by idPathOrdered) calcGr
from t3 order by id0
option(maxrecursion 100)

Пример здесь

Нашел решение с подробным описанием

@ValNik, спасибо за наводку на рекурсию и неориентированные графы!

drop table if exists #all_marks;
create table #all_marks (id int, mark_A varchar(20), mark_B varchar(20), real_group int);
insert into #all_marks (id, mark_A, mark_B, real_group) values 
(10, 'метка_1', 'метка_2', 1), (11, 'метка_3', 'метка_4', 2), (12, 'метка_3', 'метка_5', 2), (13, 'метка_4', 'метка_3', 2), (14, 'метка_5', 'метка_6', 2), (15, 'метка_7', 'метка_3', 2), (16, 'метка_7', 'метка_18', 2)
,(17, 'метка_18', 'метка_19', 2), (18, 'метка_8', 'метка_9', 3), (19, 'метка_10', 'метка_11', 3), (20, 'метка_10', 'метка_8', 3), (21, 'метка_12', 'метка_13', 4), (22, 'метка_14', 'метка_15', 5), (23, 'метка_16', 'метка_17', 6)
,(24, 'метка_1', 'метка_2', 1), (25, 'метка_3', 'метка_4', 2), (26, 'метка_3', 'метка_5', 2), (27, 'метка_4', 'метка_3', 2), (28, 'метка_5', 'метка_6', 2)
,(29, 'метка_1', 'метка_152', 1), (30, 'метка_152', 'метка_1', 1), (31, 'метка_152', 'метка_300', 1), (32, 'метка_200', 'метка_250', 1), (33, 'метка_250', 'метка_152', 1);

with marksOneLine as 
(
    select mark_A as mark from #all_marks
    union
    select mark_B as mark from #all_marks
)
, marksPairs as
(
    select mark_A, mark_B from #all_marks where mark_A <> mark_B
    union
    select mark_B as mark_A, mark_A as mark_B from #all_marks where mark_A <> mark_B
)
, marksRecursive as
(
    select
        cast(marksOneLine.mark as varchar(8000)) as anchorMark
        , mark_A
        , mark_B
        , cast(',' + mark_A + ',' + mark_B + ',' as varchar(8000)) as markPath
        , 1 as lvl
    from 
        marksPairs
        inner join marksOneLine on marksOneLine.mark = marksPairs.mark_A
    union all
    select
        marksRecursive.anchorMark
        , marksPairs.mark_A
        , marksPairs.mark_B
        , cast(marksRecursive.markPath + marksPairs.mark_B + ',' as varchar(8000)) as markPath
        , marksRecursive.lvl + 1 as lvl
    from marksPairs
    inner join marksRecursive on marksRecursive.mark_B = marksPairs.mark_A
    where marksRecursive.markPath not like cast ('%,' + marksPairs.mark_B + ',%' as varchar(8000))
)
, marksRecursionResult as
(
    select anchorMark, mark_A, mark_B
    from marksRecursive
)
, marksCleanResult as
(
    select anchorMark, mark_A as mark from marksRecursionResult
    union
    select anchorMark, mark_B as mark from marksRecursionResult
)
, marksResult as 
(
    select
        marksOneLine.mark
        , case when CA_Data.XML_Value is null then marksOneLine.mark else CA_Data.XML_Value end as groupMembers
        , DENSE_RANK() over(order by case when CA_Data.XML_Value is null then marksOneLine.mark else CA_Data.XML_Value end) as groupId
    from 
        marksOneLine
        cross apply
        (
            select marksCleanResult.mark + ','
            from marksCleanResult
            where marksCleanResult.anchorMark = marksOneLine.mark
            order by marksCleanResult.mark for XML PATH(''), type
        ) as CA_XML(XML_VALUE)
        cross apply
        (
            select CA_XML.XML_VALUE.value('.', 'NVARCHAR(MAX)')
        ) as CA_Data(XML_VALUE)
    where
        marksOneLine.mark is not null
)
select a.*, r.groupId
from #all_marks a
join marksResult r on r.mark = a.mark_A
order by real_group

Пример