Subject Data Cleaning Script for JJ

gistfile1.txt

let
  Source = Excel.Workbook(File.Contents("C:\Users\brjul\Downloads\Subjects.xlsx"), null, true), 
  Sheet1_Sheet = Source{[Item = "Sheet1", Kind = "Sheet"]}[Data], 
  PromoteHeaders = Table.PromoteHeaders(Sheet1_Sheet, [PromoteAllScalars = true]), 
  SplitByDelimToRows = Table.ExpandListColumn(
    Table.TransformColumns(
      PromoteHeaders, 
      {
        {
          "Subject", 
          Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), 
          let
            itemType = (type nullable text) meta [Serialized.Text = true]
          in
            type {itemType}
        }
      }
    ), 
    "Subject"
  ), 
  LetterCheck = Table.AddColumn(
    SplitByDelimToRows, 
    "ContainsLetter", 
    each if List.ContainsAny(Text.ToList([Subject]), {"A..Z", "a" .. "z"}) then 1 else 0
  ), 
  FilterNoLetters = Table.SelectRows(LetterCheck, each ([ContainsLetter] = 1)), 
  RemoveDupes = Table.Distinct(FilterNoLetters, {"Subject"}), 
  RemoveLetterCheck = Table.RemoveColumns(RemoveDupes, {"ContainsLetter"})
in
  RemoveLetterCheck