Stránka 1 z 1

Excel VBA spojeni dvou dvourozmernych poli

Napsal: 16 bře 2011 13:07
od honzZ
Zdravim,

Je nejaka cesta jak spojit 2 dvourozmerna pole? (x,14)
Jde v podstate o dve nactene tabulky x radky, 14 sloupcu.
Je treba je spojit aby sly zasebou.

Nemohu pole nacist v definici(14,x) nebot vzhledem ke zdrojovym datum narazim na omezeni funkce transpose.

Za pripadnou pomoc dekuji.

Re: Excel VBA spojeni dvou dvourozmernych poli

Napsal: 16 bře 2011 13:48
od Branscombe
Jde, jde skoro všechno, ale nějaký názorný příklad by pomohl. Zadání vs požadovaný výsledek.

Re: Excel VBA spojeni dvou dvourozmernych poli

Napsal: 22 bře 2011 21:47
od vonv
Nešlo by to třeba takhle?

pole1(x1,14)
pole2(x2,14)

dim pole3(lbound(pole1,1),(ubound(pole1,1)-lbound(pole1,1) + 1) + (ubound(pole2,1) - lbound(pole2,1)+1)

for i=lbound(pole1,1) to (ubound(pole1,1)
for j=1 to 14
pole3(i,j)=pole1(i,j)
next j
next i

for i=ubound(pole1)+1 to (ubound(pole2,1) - lbound(pole2,1)+1)
for j=1 to 14
pole3(i,j)=pole(i,j)
next j
next i

Re: Excel VBA spojeni dvou dvourozmernych poli

Napsal: 23 bře 2011 14:45
od vonv
...mimochodem limit funkce Transpose je 5461 prvků v dvourozměrném poli (v matici).