List Isogram Words Only

let
  Source = Excel.CurrentWorkbook(){[Name = "Table1"]}[Content], 
  Ans = Table.SelectRows(
    Source, 
    each List.Count(
      List.Distinct(
        List.Transform(Text.ToList([Words]), (a) => Text.Length(Text.Replace([Words], a, "")))
      )
    )
      = 1
  )
in
  Ans

let
  Solution = List.Select(
    Excel.CurrentWorkbook(){[Name = "Input"]}[Content][Words], 
    each 
      let
        l = Text.ToList(_)
      in
        List.Distinct(l) = List.Modes(l)
  )
in
  Solution

let
  Source = Excel.CurrentWorkbook(){[Name = "data"]}[Content], 
  Return = Table.SelectRows(
    Source, 
    each [
      S = Text.ToList([Words]), 
      C = List.Transform(S, (f) => List.Count(List.Select(S, (x) => f = x))), 
      R = List.Count(List.Distinct(C)) = 1
    ][R]
  )
in
  Return

let
  Source = Excel.CurrentWorkbook(){[Name = "Table1"]}[Content], 
  Sol = Table.SelectRows(
    Table.AddColumn(
      Source, 
      "Custom", 
      each 
        let
          a = Table.FromColumns({Text.ToList([Words])}), 
          b = List.Distinct(
            Table.Group(a, {"Column1"}, {"Count", each List.Count([Column1])})[Count]
          )
        in
          b
    ), 
    each List.Count([Custom]) = 1
  )[[Words]]
in
  Sol

let
  Fonte = Tabela1, 
  res = Table.SelectRows(
    Fonte, 
    each List.Count(
      List.Distinct(
        Table.Group(
          Table.FromColumns({Text.ToList([Words])}), 
          {"Column1"}, 
          {{"Count", each Table.RowCount(_)}}
        )[Count]
      )
    )
      = 1
  )
in
  res

let
  Source = Excel.CurrentWorkbook(){[Name = "Table1"]}[Content], 
  ToList = Table.ExpandListColumn(
    Table.AddColumn(Source, "Letters", each Text.ToList([Words])), 
    "Letters"
  ), 
  Group1 = Table.Distinct(
    Table.RemoveColumns(
      Table.Group(ToList, {"Words", "Letters"}, {{"Count", each Table.RowCount(_), Int64.Type}}), 
      "Letters"
    )
  ), 
  Group2 = Table.Group(Group1, {"Words"}, {{"Count", each Table.RowCount(_), Int64.Type}}), 
  FilterNClean = Table.RenameColumns(
    Table.RemoveColumns(Table.SelectRows(Group2, each ([Count] = 1)), "Count"), 
    {"Words", "Expected Answer"}
  )
in
  FilterNClean

let
  Source = Excel.CurrentWorkbook(){[Name = "Table1"]}[Content], 
  ChangeType = Table.TransformColumnTypes(Source, {{"Words", type text}}), 
  WordTransf = Table.AddColumn(
    ChangeType, 
    "Anwer", 
    each 
      let
        a = Text.ToList([Words]), 
        b = Table.FromList(a, Splitter.SplitByNothing(), {"Letters"}, null, ExtraValues.Error), 
        c = Table.Group(b, {"Letters"}, {{"Count", each Table.RowCount(_), Int64.Type}})[[Count]], 
        d = Table.Distinct(c)
      in
        d
  ), 
  CountRows = Table.AddColumn(WordTransf, "AnwerDef", each Table.RowCount([Anwer])), 
  Result = Table.SelectRows(CountRows, each ([AnwerDef] = 1))[[Words]]
in
  Result

let
  Origen = Excel.CurrentWorkbook(){[Name = "Tabla1"]}[Content], 
  a = List.Transform(
    Origen[Words], 
    (x) =>
      List.Count(
        List.Select(
          List.Distinct(List.Transform({"a" .. "z"}, each List.Count(Text.Split(x, _)) - 1)), 
          each _ > 0
        )
      )
        = 1
  ), 
  b = List.Select(Origen[Words], each a{List.PositionOf(Origen[Words], _)})
in
  b

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,ROWS(UNIQUE(LEN(SUBSTITUTE(a,MID(a,SEQUENCE(LEN(a)),1),))))=1)))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(x,LET(s,LEN(SUBSTITUTE(x,UNIQUE(MID(x,SEQUENCE(,LEN(x)),1)),"")),AND(s=INDEX(s,,1))))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(x,LET(c,CODE(MID(x,SEQUENCE(LEN(x)),1)),ROWS(UNIQUE(FREQUENCY(c,c)))=2))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,LET(v,SEQUENCE(50),r,MID(a,v,1),ROWS(UNIQUE(MMULT(--(r=TOROW(r)),
v^0)))=2))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,LET(v,SEQUENCE(50),r,MID(a,v,1),ROWS(UNIQUE(MMULT(--(r=TOROW(r)),
v^0)))=2))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,MOD(LEN(a)/ROWS(UNIQUE(MID(a,SEQUENCE(LEN(a)),1))),1)=0)))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(y,LET(a,MID(y,SEQUENCE(LEN(y)),1),COUNT(UNIQUE(MAP(UNIQUE(a),LAMBDA(x,SUM(--(a=x)))))))))=1)

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(z,LET(A,MID(z,SEQUENCE(LEN(z)),1),COUNT(UNIQUE(MAP(A,LAMBDA(x,SUMPRODUCT(1*(x=A))))))=1))))

=LET(w,A2:A10,FILTER(w, MAP(w,LAMBDA(y,LET(a, MID(y,SEQUENCE(LEN(y)),1),b,MAP(UNIQUE(a),LAMBDA(x, SUM((a=x)*1))),SUM((b=AVERAGE(b))*1)=COUNTA(UNIQUE(a)))))))

=LET(_d, A2:A10, FILTER(_d, MAP(_d, LAMBDA(a, LET(_s, SEQUENCE(LEN(a)),_w, MID(a,_s, 1), MOD(AVERAGE(MMULT(--(_w=TOROW(_w)),_s^0)), 1))))=0))

=FILTER(
 A2:A10,
 MAP(
 A2:A10,
 LAMBDA(a,
 LET(
 _tsplit, MID(a, SEQUENCE(LEN(a)), 1),
 _uniq, UNIQUE(_tsplit),
 _cnt, SCAN("", _uniq, LAMBDA(a, v, ROWS(FILTER(_tsplit, _tsplit = v)))),
 _cri, AND(DROP(_cnt, 1) = DROP(_cnt, -1)),
 _cri
 )
 )
 )
)

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,LET(x,MID(a,SEQUENCE(,LEN(a)),1),u,UNIQUE(x),ROWS(UNIQUE(BYROW(--(x=TOCOL(u)),LAMBDA(y,SUM(y)))))=1))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,LET(e,MID(a,SEQUENCE(LEN(a)),1),u,UNIQUE(e),MOD(ROWS(e),ROWS(u))=0))))

Solution2 : whit TOCOL
=TOCOL(MAP(A2:A10,LAMBDA(a,LET(e,MID(a,SEQUENCE(LEN(a)),1),u,UNIQUE(e),IF(MOD(ROWS(e),ROWS(u))=0,a,NA())))),2)

=LET(z,A2:A10,
p,MAP(z,LAMBDA(x,LET(
 a,MID(x,SEQUENCE(LEN(x)),1),
 b,MAP(UNIQUE(a),LAMBDA(y,SUM(ABS(a=y)))),
 d,COUNT(UNIQUE(b))=1,
 d))),
q,FILTER(z,p),q)

=LET(a,A2:A10,FILTER(a,MAP(a,LEN(a),LAMBDA(x,y,LET(b,MID(x,SEQUENCE(y),1),c,XMATCH(b,b),ROWS(UNIQUE(MMULT(N(TOROW(c)=c),SEQUENCE(y)^0)))=1)))))

=FILTER(A2:A10,MAP(A2:A10,LAMBDA(a,LET(b,CODE(MID(a,SEQUENCE(LEN(a)),1)),COUNT(UNIQUE(FREQUENCY(b,b)))=2))))

=LET(l,A2:A10,FILTER(l,MAP(l,LAMBDA(w,LET(m,MID(w,SEQUENCE(LEN(w)),1),ROWS(UNIQUE(MAP(m,LAMBDA(x,SUM(--(m=x)))))))))=1))

=FILTER(A2:A10,MMULT(--(LEN(SUBSTITUTE(A2:A10,MID(A2:A10,SEQUENCE(,20),1),""))=LEN(SUBSTITUTE(A2:A10,MID(A2:A10,1,1),""))),SEQUENCE(20,,,0))=LEN(A2:A10))

=FILTER(A2:A10, MAP(A2:A10, LAMBDA(X, LET(A,X,
B,MID(A,SEQUENCE(LEN(A)),1),
C,UNIQUE(B),
D,MOD(ROWS(B)/ROWS(C),1)=0,
D))))

=LET(r, A2:A10,FILTER(r,MAP(r,LAMBDA(x,ROWS(UNIQUE(LEN(x)-LEN(SUBSTITUTE(x,MID(x,SEQUENCE(LEN(x)),1),""))))))=1))