'S e caochladair a th' ann an sreath a chumas na h-aon seòrsaichean dàta. Mura h-eil ann ach aon sreath no aon cholbh dàta, canar sreath aon-thaobhach ris. Ach, nuair a tha barrachd air aon sreath agus colbh ann, canar sreath 2D ris. Bidh sinn a’ cleachdadh ReDim gus raon atharrachadh ann an VBA. Cuideachd, bidh sinn a’ cleachdadh am prìomh fhacal Glèidh leis an ReDim gus an seann dàta a chumail slàn. Seallaidh an artaigil seo dhut 2 ​​ dòighean luath air “ ReDim Preserve ” a sreath 2D ann an Excel VBA .

Luchdaich sìos Leabhar-obrach Cleachdaidh

Macro to ReDim Preserve 2D.xlsm

2 Dòigh-obrach feumail gu ReDim Preserve 2D Array ann an Excel VBA

Seo an stòr-dàta bunaiteach a chaidh a chruthachadh bho raon 2D le trì sreathan agus dà cholbh. An toiseach, cruthaichidh sinn an raon seo. An uairsin, cuiridh sinn colbh eile ris an raon seo. Cleachdaidh sinn an “ ReDim Preserve ” airson sin a dhèanamh. Cuideachd, seallaidh sinn dè thachras mura cleachd sinn seo.

Gu gnàthach, chan urrainn dhuinn ach an tomhas mu dheireadh den raon ath-mheudachadh (i.e. na colbhan no an ceann shuas). Cuiridh sinn thairis an t-sreath, an uairsin atharraichidh sinn an tomhas mu dheireadh, agus an uairsin cuiridh sinn thairis a-rithist gus an dà mheud den raon 2D ath-mheudachadh ann an Excel VBA.

1 ReDim Glèidh an Tomhas mu dheireadh 2D Array

Mìnichidh sinn an toiseach an t-sreath 2D mar fiùghantach. An uairsin, a’ cleachdadh an aithris ReDim , cruthaichidh sinn faidhlesreath le trì sreathan agus dà cholbh. Mu dheireadh, cleachdaidh sinn an aithris ReDim a-rithist leis an fhacal-fhaire Glèidh > gu àrdaich crìoch àrd an t-sreath dà-mheudach.

Ceumannan:

• Airson tòiseachadh, brùth ALT+F11 gus an uinneag Modal VBA a thoirt suas. No, 's urrainn dhut seo a dhèanamh bhon Leasaiche tab →  tagh Visual Basic .
• An uairsin, bhon Cuir a-steach tab → tagh Modal . Taidhpidh sinn an còd VBA an seo.

• Air adhart, taipidh an còd a leanas sa mhodal uinneag.

9211

• An toiseach, tha sinn a’ gairm an Fo-mhodh “ Redim_Preserve_2D_Array_Row ”.
• An uairsin, bidh sinn a’ cur an cèill an caochladair Our_Array mar raon fiùghantach.
• An ath rud, bidh sinn a’ mìneachadh meud an t-sreath. 'S e 3 a' chrìoch ìseal, 's e 2 a' chrìoch àrd, agus tòisichidh an dà chuid o 1 .
• An uairsin, sònraichidh sinn luachan dhan raon .
• Às dèidh sin, chuir sinn na luachan a-steach don raon cealla C6:D8 .

• An dèidh sin, bidh sinn cuiridh sinn an còd an gnìomh.
• Mar sin, Sàbhail am modal agus brùth Run .

• Mar thoradh air an sin, tillidh e na luachan gu na raointean cealla comharraichte. Chì sinn gu bheil “ Rachel ” ann an sreath 1 agus suidheachadh colbh 1 ,a chaidh a mhìneachadh mar ( 1,1 ) sa chòd VBA.

• A-nis, ath-mheudaichidh sinn an t-sreath.
• Mar sin, cuir seo ris a' chòd mu dheireadh agus thoir air falbh a' chiad aithris Range.Value . A bharrachd air an sin, mar a tha an còd coltach, chì thu bhon dealbh gu h-ìosal.

8367

• An seo, tha sinn air a’ chrìoch àrd àrdachadh o ( 1 Gu 2 ) gu ( 1 Gu 3 ) le 1 .
• An uairsin, tha sinn air na luachan a chur ris an t-sreath.
• A-nis ma chuireas sinn an còd seo an gnìomh, chì sinn nach eil na luachan roimhe air an gleidheadh. Tillidh e bàn airson na luachan a bh' ann roimhe.

• A-nis, 's urrainn dhuinn seo a chàradh le bhith a' cur Glèidh prìomh fhacal a-steach dhan Aithris ReDim .
• Mu dheireadh, is e seo an còd slàn a bhios againn. 1> Ruith a’ chòd seo, agus bidh an toradh mar seo. Mar sin, nì sinn “ ReDim Preserve ” an taobh mu dheireadh de raon 2D ann an Excel VBA .. A-nis, seallaidh an ath dhòigh dhut mar a nì thu “ ReDim Glèidh ” agus ath-mheudachadh gach meud den raon.

Leugh Tuilleadh: VBA gus a bhith gun samhail Luachan bho Cholbh gu Eagrachadh ann an Excel (3 Slatan-tomhais)

Leughaidhean Co-chosmhail

• Mar a dh’ ainmichear Clàr Clàr ann an Excel (Le Ceumannan furasta)
• Excel VBA gus faidhle CSV a leughadh a-steach gu Array (4 eisimpleirean air leth)
• Mar a thionndaidheas tu Raon gu Array ann an ExcelVBA (3 dòighean)
• Excel VBA: Thoir air falbh dùblaidhean bho Array (2 eisimpleir)

2. ReDim Glèidh an dà mheud 2D Array in Excel VBA

Anns an dòigh mu dheireadh seo, seallaidh sinn dhut na ceumannan gus ath-mheudachadh agus “ ReDim Preserve ” an raon 2D . An seo, bidh sinn a’ cleachdadh an gnìomh VBA Transpose gus crìoch ìosal an t-sreath ath-mheudachadh. Ma dh’ fheuch sinn ri crìoch ìosal an t-sreath ath-mheudachadh sa chiad dhòigh, chì sinn a’ mhearachd “ Fo-sgrìobhadh a-mach à raon ”. A-nis, gun a bhith nas sine, chì sinn mar as urrainn dhuinn seo a cheartachadh agus ar n-amas a choileanadh.

Ceumannan:

• Sa chiad dol a-mach, mar a chithear sa chiad mhodh , thoir suas an uinneag Model .
• An dara h-àite, cuir na loidhnichean còd a leanas a-steach don a' chiad chòd.

5043

• A bharrachd air an sin, tha coltas mar seo air còd a' mhodh mu dheireadh.

9136

Briseadh Còd VBA

• An toiseach, tha sinn a’ gairm an Fo-mhodh-obrach “ ReDim_Preserve_2D_Array_Both_Dimensions ” .
• An uairsin, tha an còrr dhe na còdan suas gu gnìomh VBA Transpose an aon rud ris a’ chiad chòd.
• An seo, tha sinn
• An uair sin, tha sinn a' meudachadh crìoch àrd an t-sreath.
• An dèidh sin, bidh sinn a' tar-chur an t-sreath a-rithist. Mar sin, aig a' cheann thall atharraichidh e a' chrìoch ìseal.
• An ath rud, cuiridh sinn a-steach na luachan airson an t-sreath ath-mheudachadh fhad 's a thaa' glèidheadh ​​an t-seann dàta.
• Mu dheireadh, bidh sinn a' sgrìobhadh nan luachan dhan raon cealla C6:E9 .

• An dèidh sin, mar a chithear sa chiad mhodh , Ruith an còd seo.
• Mar sin, is urrainn dhuinn sealladh a dhèanamh air mar a ghlèidheas an còd a Sreath 2D a’ cleachdadh an “ ReDim Preserve ” agus an gnìomh VBA Transpose .

Leugh Tuilleadh: VBA gus Array a thionndadh ann an Excel (3 Dòighean)

Rudan ri chuimhneachadh

• Chan urrainn do ReDim Preserve crìoch ìosal an t-sreath atharrachadh. Airson sin a dhèanamh, feumaidh sinn an gnìomh Transpose a chleachdadh.
• Chan urrainn dhuinn ach ReDim a chleachdadh air arrays fiùghantach.

Co-dhùnadh

Tha sinn air dà dhòigh sgiobalta a shealltainn dhut airson “ ReDim Preserve ” a 2D eagar ann an Excel VBA. Ma tha duilgheadas sam bith agad a thaobh nan dòighean sin no ma tha fios air ais sam bith agad dhomh, na bi leisg beachd a thoirt seachad gu h-ìosal. A bharrachd air an sin, faodaidh tu tadhal air an làrach againn ExcelWIKI airson barrachd artaigilean co-cheangailte ri Excel. Tapadh leibh airson leughadh, cùm air leth math!