SELECT Z.Лесничество, Z.Квартал, Z.Категория, Last(UnionStr2(Z.id, Z.fp)) AS Выделы
FROM (SELECT Q1.Лесничество, Q1.Квартал, Q1.Категория, Q1.Выдел AS bp, 
             Min(Q2.Выдел) AS ep,  
             Q1.Лесничество & '|' & Q1.Квартал & '|' & Q1.Категория As id,
             IIf(bp = ep, bp, bp & '-' & ep) As fp
     FROM (SELECT T1.Лесничество, T1.Квартал, T1.Категория, T1.Выдел
          FROM Tabl AS T1 LEFT JOIN Tabl AS T2 
               ON (T1.Лесничество = T2.Лесничество) AND (T1.Квартал = T2.Квартал) AND 
                  (T1.Категория = T2.Категория) AND (T1.Выдел = T2.Выдел+1)
          WHERE T2.Выдел Is Null) AS Q1 
     INNER JOIN 
          (SELECT T1.Лесничество, T1.Квартал, T1.Категория, T1.Выдел
          FROM Tabl AS T1 LEFT JOIN Tabl AS T2 
               ON (T1.Лесничество = T2.Лесничество) AND (T1.Квартал = T2.Квартал) AND 
                  (T1.Категория = T2.Категория) AND (T1.Выдел = T2.Выдел-1)
          WHERE T2.Выдел Is Null) AS Q2 
     ON (Q1.Выдел <= Q2.Выдел) AND (Q1.Категория = Q2.Категория) AND 
        (Q1.Квартал = Q2.Квартал) AND (Q1.Лесничество = Q2.Лесничество)
     GROUP BY Q1.Лесничество, Q1.Квартал, Q1.Категория, Q1.Выдел) AS Z
WHERE UnionStr2()
GROUP BY Z.Лесничество, Z.Квартал, Z.Категория

Public Function UnionStr2(Optional ID, Optional Fam)
Static IDOld, FamUnion
  If IsMissing(ID) Then
    IDOld = Empty
    UnionStr2 = True
    Exit Function
  End If
  If IDOld <> ID Then
    IDOld = ID
    FamUnion = Null
  End If
  FamUnion = (FamUnion + ",") & Fam
  UnionStr2 = FamUnion
End Function