How to read a given table in a specific order...

[Juggler_IN]

There is a row by column table provided in Excel in the below format.

How to read it as A(0,0), A(1,0), A(0,1), A(2,0), A(1,1), A(0,2), A(3,0), A(2,1), A(1,2), A(0,3), ... such the output string is 1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 6, 6, 0, 1, 4, 12, 24, 24, 0, 1, 5, 20, 60, 120, 120, 0, 1, 6, 30, 120, 360, 720, 720, 0, 1, 7, 42, 210, 840, 2520, 5040, 5040, 0, 1, 8, 56, 336, 1680, 6720, 20160, 40320, 40320, 0, ...?

n\k [0 1 2 3 4 5 6 7 8]
[0] [1, 0, 0, 0, 0, 0, 0, 0, 0]
[1] [1, 1, 2, 6, 24, 120, 720, 5040, 40320]
[2] [1, 2, 6, 24, 120, 720, 5040, 40320, 362880]
[3] [1, 3, 12, 60, 360, 2520, 20160, 181440, 1814400]
[4] [1, 4, 20, 120, 840, 6720, 60480, 604800, 6652800]
[5] [1, 5, 30, 210, 1680, 15120, 151200, 1663200, 19958400]
[6] [1, 6, 42, 336, 3024, 30240, 332640, 3991680, 51891840]
[7] [1, 7, 56, 504, 5040, 55440, 665280, 8648640, 121080960]
[8] [1, 8, 72, 720, 7920, 95040, 1235520, 17297280, 259459200]
n\k [0 1 2 3 4 5 6 7 8]

 

[BSALV]

just a simple loopje

 

[Juggler_IN]

just a simple loopje

And? If you could share?

 

[JGordon11]

This will work for square matrices (i.e., row count = column count)

Function SquareMatrixTo1DDiagonals(rng As Range) As Variant
    Dim r, ubrr As Long, ubrc As Long, Out, i As Long, j As Long, k As Long
    r = rng
    ubrr = UBound(r)
    ubrc = UBound(r, 2)
    ReDim Out(1 To 1, 1 To ubrr * ubrc)
    For i = 1 To ubrr
        For j = 1 To i
            k = k + 1
            Out(1, k) = r(i - j + 1, j)
        Next
    Next
    For j = 2 To ubrc
        For i = ubrr To j Step -1
            k = k + 1
            Out(1, k) = r(i, j + ubrr - i)
        Next
    Next
    SquareMatrixTo1DDiagonals = Out
End Function

Book2
	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	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC	BD	BE	BF	BG	BH	BI	BJ	BK	BL	BM	BN	BO	BP	BQ	BR	BS	BT	BU	BV	BW	BX	BY	BZ	CA	CB	CC
1	1	0	0	0	0	0	0	0	0
2	1	1	2	6	24	120	720	5040	40320
3	1	2	6	24	120	720	5040	40320	362880
4	1	3	12	60	360	2520	20160	181440	1814400
5	1	4	20	120	840	6720	60480	604800	6652800
6	1	5	30	210	1680	15120	151200	1663200	19958400
7	1	6	42	336	3024	30240	332640	3991680	51891840
8	1	7	56	504	5040	55440	665280	8648640	121080960
9	1	8	72	720	7920	95040	1235520	17297280	259459200
10
11	1	1	0	1	1	0	1	2	2	0	1	3	6	6	0	1	4	12	24	24	0	1	5	20	60	120	120	0	1	6	30	120	360	720	720	0	1	7	42	210	840	2520	5040	5040	0	8	56	336	1680	6720	20160	40320	40320	72	504	3024	15120	60480	181440	362880	720	5040	30240	151200	604800	1814400	7920	55440	332640	1663200	6652800	95040	665280	3991680	19958400	1235520	8648640	51891840	17297280	121080960	259459200
Sheet1

Cell Formulas
Range	Formula
A11:CC11	A11	=SquareMatrixTo1DDiagonals(A1:I9)
Dynamic array formulas.

 

[BSALV]

i used a randomarray of 10*10 as startarray, not the one you gave, but the output is the same

camspy.xlsb
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	93	6	20	19	44	35	25	47	76	10				1-1	93
2	42	21	47	24	77	46	39	77	92	80				2-1	42
3	83	18	28	6	47	28	60	81	45	59				1-2	6
4	97	37	47	50	30	30	12	92	78	70				3-1	83
5	23	1	52	76	25	55	88	56	46	61				2-2	21
6	95	30	24	73	77	90	31	74	47	50				1-3	20
7	1	47	47	33	2	46	41	65	79	63				4-1	97
8	18	87	51	4	23	1	94	36	6	76				3-2	18
9	38	99	66	82	18	79	97	9	46	20				2-3	47
10	22	44	60	94	47	67	97	22	78	27				1-4	19
11														5-1	23
12														4-2	37
13														3-3	28
Blad2

Sub SimpleLoopje()
     rijen = 10 'number of rows
     kolommen = 10 'number of columns
     rand = WorksheetFunction.RandArray(rijen, kolommen, 1, 99, 1)     '=an array of rijen*kolommmen with integers between 1 and 100
     Range("a1").Resize(rijen, kolommen).Value = rand 'write to worksheet

     For i = LBound(rand) + LBound(rand, 2) To UBound(rand) * 2
          For r = i - 1 To 1 Step -1
               k = i - r
               If WorksheetFunction.Median(LBound(rand), UBound(rand), r) = r And WorksheetFunction.Median(LBound(rand), UBound(rand), k) = k Then
                    s1 = s1 & ",'" & r & "-" & k
                    s2 = s2 & "," & rand(r, k)
                    ptr = ptr + 1
               End If
          Next
     Next
    
     Cells(1, 14).Resize(ptr) = Application.Transpose(Split(Mid(s1, 2), ","))
      Cells(1, 15).Resize(ptr) = Application.Transpose(Split(Mid(s2, 2), ","))
End Sub

 

[BSALV]

in case of an array with base 0, so 1st row=0, this small correction

For r = i - 1 To lbound(and) Step -1