Coloring elements of sublists has been dealt with in another question.
A solution for sublists was presented along the following lines.
Permutations[{1, 2, 3}] //
MapAt[Style[#, Red] &, #, {1, #} & /@ Range[2, 2]] & //
MapAt[Style[#, Blue] &, #, {2, #} & /@ Range[3, 3]] &
This produces the output of a list of permutations {{1,2,3},{1,3,2}, {3,2,1}}, in which the first sublist {1,2,3} has the element 2 (in position 2) colored red and the second sublist {1,3,2} has the element 2 (in position 3) colored blue.
I would like to obtain the result where all sublists have the second element colored red and the third colored blue.
This should be produced regardless of the number of sublists in the list.