How do I extract new lists from given lists?

Questions
1

Hi,

I have four lists like this :

1.jpg
1.jpg1173×608 112 KB

How do I have the final lists for list A, list B, list C, and list D as follow:

listAfinal = {28, 35, 40, 43, 44};

listBfinal = {20, 28, 35, 40, 43};

listCfinal = {18, 20, 28, 35, 40};

listDfinal = {13, 18, 20, 28, 35};
2

Hi Alex, try:

{listAfinal, listBfinal, listCfinal, listDfinal} = #[[4 ;; 8]] & /@ {listA, listB, listC, listD};

or

{listAfinal, listBfinal, listCfinal, listDfinal} = {listA, listB, listC, listD}[[All, 4 ;; 8]];
3

Thank you so much, Henrik.

Is there any simple command for extracting list B, list C, and list D from list A?

My main list A has about 14000 elements.

4

Alex, is it simply this you want?

listB = Prepend[listA, ""];
listC = Prepend[listB, ""];
listD = Prepend[listC, ""];
5

Does the code I attached help?

It should with a large spreadsheet.

Open in Wolfram Cloud ↗
6

Hi Alex,

If the spreadsheet is the source of the data then you can generate the final lists like this. I created the attached AlexData.xlsx for testing.

{listAfinal, listBfinal, listCfinal, listDfinal} = 
  Import["~/Downloads/AlexData.xlsx", {"Data", 1, 5 ;; 9, 2 ;; 5}] // Transpose // Reverse;

{listAfinal, listBfinal, listCfinal, listDfinal} // Column
(*
{28.,35.,40.,43.,44.}
{20.,28.,35.,40.,43.}
{18.,20.,28.,35.,40.}
{13.,18.,20.,28.,35.}
*)

AlexData.xlsx (8.65 KB)

7

Thank you so much, Henrik, Rohit and John.

You are great men.