Run this; humor me:
alphabet = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}; TableForm[ list = Table[ StringJoin[IntegerString[k], ToUpperCase[alphabet[[j]]]], {j, Length[alphabet]}, {k, 0, 9}]] Export["digitLetterTest.csv", list, "CSV"] TableForm[Import["digitLetterTest.csv"]]