In[]:=
ClearAll["Global`*"];(*GeneralClearAllGlobalVariablesStatement.*)​​L=Import["C:\\Users\\churc\\Google Drive Churchboy316\\Education\\Mathematica\\list data.xlsx"];(*IimportedthetablefromanExcelfileIcreated.*)​​L=Flatten[L,1];(*Theimportedasa3dimensionalmatrix.So,Iflatteneditonelevel.*)​​Grid
"From xlsx file"
L//MatrixForm
,Spacings{1,1}(*Thisoutputshowsthedataimportedcorrectly.*)​​{col,row}=Dimensions[L];(*Iusetherowandcolumndimensionsofthematrixtomakethenewlist*)​​L[[row+1;;(col-row)+1]];(*Ichoosethe5x5matrixwiththe2digitvaluesandtransposeit.*)​​Table[ToExpression["FinalList"<>ToUpperCase[FromLetterNumber[n]]],{n,4,1,-1}];(*Icreatethenewlistnamesinreverseordertomatchthetransposedmatrix.*)​​Evaluate[%]=%%;(*Isetthelistnamesequaltothecorrespondinglists*)​​MatrixForm[Names["FinalList*"]]MatrixForm[ToExpression[Names["FinalList*"]]](*Thislineshowsthelistnamessavedcorrectly*)​​
Out[]=
From xlsx file
listD
listC
listB
listA
a01
b01
a02
c01
b02
a03
d1
c1
b1
a1
d2
c2
b2
a2
d3
c3
b3
a3
d4
c4
b4
a4
d5
c5
b5
a5
d01
c02
b03
d02
c03
d03
Out[]=
FinalListA
FinalListB
FinalListC
FinalListD

a1
a2
a3
a4
a5
b1
b2
b3
b4
b5
c1
c2
c3
c4
c5
d1
d2
d3
d4
d5