Ripanga kaurori puta noa i nga awhe raraunga maha

Te whakatakoto i te raruraru

Ko nga ripanga kaurori tetahi o nga taputapu tino whakamiharo i roto i te Excel. Engari i tenei wa, kaore e taea e tetahi o nga momo putanga o Excel te mahi i tetahi mea ngawari me te tika i runga i te rere penei i te hanga whakarāpopototanga mo etahi awhe raraunga tuatahi kei runga, hei tauira, i runga i nga pepa rereke, i nga ripanga rereke ranei:

I mua i te tiimata, me whakamarama etahi waahanga e rua. A priori, E whakapono ana ahau kua tutuki nga tikanga e whai ake nei i roto i a maatau raraunga:

• Ka taea e nga ripanga te maha o nga rarangi me nga raraunga, engari me rite te pane.
• Kaua he raraunga taapiri i runga i nga rau me nga ripanga puna. Kotahi te pepa – kotahi tepu. Hei whakahaere, ka tohutohu ahau ki a koe me whakamahi he pokatata papapātuhi Ctrl+whakamutunga, ka nukuhia koe ki te pūtau whakamutunga i whakamahia i te raumahi. Ko te tikanga, koinei te pūtau whakamutunga o te ripanga raraunga. Mena ka paatohia e koe Ctrl+whakamutunga ka miramirahia nga pūtau putua kei te taha matau, kei raro ranei i te ripanga – mukua enei poupou ki te taha matau, nga rarangi ranei kei raro i te ripanga i muri i te ripanga ka tiakina te konae.

Tikanga 1: Hangaia he ripanga mo te kaurori ma te Uiui Mana

Ka timata mai i te putanga 2010 mo Excel, he taapiri Power Query ka taea te kohikohi me te whakarereke i nga raraunga ka hoatu hei puna mo te hanga ripanga kaurori. Ko te whakaoti i to maatau raru me te awhina o tenei taapiri kaore he uaua.

Tuatahi, me hanga he konae putunga hou ki Excel - ka tu te huihuinga ki roto, katahi ka hangaia he ripanga kaurori ki roto.

Na i runga i te ripa Raraunga (mehemea kei a koe a Excel 2016 i muri mai ranei) kei te ripa ranei Uiui Mana (mehemea kei a koe a Excel 2010-2013) tohua te whakahau Waihanga Uiui – Mai i te Kōnae – Excel (Tikina Raraunga — Mai i te konae — Excel) ka whakapūtā te kōnae pūtake me ngā ripanga hei kohi:

I te matapihi e puta mai ana, kowhiria tetahi pepa (kaore he aha te mea) ka pehi i te paatene i raro nei Huri (Whakatika):

Me tuwhera te matapihi Kaiwhakatika Uiui Uiui ki runga o Excel. I te taha matau o te matapihi i runga i te panui Tono Tawhā mukua nga taahiraa katoa i hanga aunoa engari ko te tuatahi - pūtake (Puna):

Inaianei ka kite tatou i te rarangi whanui o nga rau katoa. Mena i tua atu i nga pepa raraunga he rau taha ano kei roto i te konae, i tenei taahiraa ko ta matou mahi ko te kowhiri i nga rau anake e tika ana kia utaina nga korero, haunga era atu katoa e whakamahi ana i te tātari i te pane pane:

Mukua nga tīwae katoa hāunga te tīwae Raraungamā te pāwhiri-matau i te upoko tīwae me te kōwhiri Mukua etahi atu pou (Tangohia etahi atu pou):

Ka taea e koe te whakawhānui ake i nga ihirangi o nga ripanga kua kohia ma te panui i te pere rua kei te tihi o te pou (pouakataki Whakamahia te ingoa tīwae taketake hei prefix ka taea e koe te whakaweto):

Mena i tika to mahi i nga mea katoa, i tenei wa ka kite koe i nga ihirangi o nga ripanga katoa kua kohia i raro i tetahi atu:

Ka noho tonu ki te hiki i te rarangi tuatahi ki te pane tepu me te paatene Whakamahia te rarangi tuatahi hei pane (Whakamahia te rarangi tuatahi hei pane) ripa Kāinga (Kaainga) ka tango i nga pane ripanga takirua mai i nga raraunga ma te whakamahi i te tātari:

Tiakina nga mea katoa i mahia ma te whakahau Katia ka utaina – Katia ka utaina ki roto… (Katia & Utaina — Katia & Utaina ki…) ripa Kāinga (Kaainga), a i te matapihi e tuwhera ana, tohua te whiringa Hononga anake (Hononga Anake):

Nga mea katoa. Ka noho tonu ki te hanga whakarāpopototanga. Ki te mahi i tenei, haere ki te ripa Kōkuhu – RipangaKaurori (Kōkuhu — Ripanga Kaurori), whiriwhiria te whiringa Whakamahia te puna raraunga o waho (Whakamahia te puna raraunga o waho)katahi ka panui i te paatene Tīpako hononga, ta matou tono. Ko etahi atu hanganga me te whirihoranga o te pivot ka puta ma te tino paerewa ma te toia nga mara e hiahiatia ana e matou ki nga rarangi, pou me nga waahi uara:

Mena ka huri nga raraunga puna a meake nei, ka taapirihia etahi atu pepa toa, katahi ka ranea ki te whakahou i te patai me ta maatau whakarāpopototanga ma te whakamahi i te whakahau Tāmata katoa ripa Raraunga (Raraunga — Tāmata Katoa).

Tikanga 2. Ka whakakotahihia e matou nga ripanga me te tono UNION SQL i roto i te tonotono

Ko tetahi atu otinga mo to maatau raru e tohuhia ana e tenei tonotono, ka hangaia he huinga raraunga (keteroki) mo te ripanga kaurori ma te whakamahi i te tono. UNITY Te reo uiui SQL. Ka whakakotahihia e tenei tono nga ripanga mai i nga mea katoa kua tohua ki te huinga Nga Ingoa Rau rau o te pukapuka ki te ripanga raraunga kotahi. Arā, hei utu mo te kape tinana me te whakapiri i nga awhe mai i nga rau rereke ki tetahi, ka pera ano taatau i roto i te RAM o te rorohiko. Na ka taapirihia e te tonotono he rau hou me te ingoa kua tohua (taurangi Ingoa Rau Hua) me te hanga whakarāpopototanga katoa (!) i runga i te keteroki kua kohia.

Hei whakamahi tonotono, whakamahia te paatene Visual Basic i te ripa kaiwhakawhanake (Kaiwhakawhanake) he pokatata papapātuhi ranei alt+F11. Kātahi ka kōkuhu he kōwae kau hou mā te tahua Kōkuhu – Kōwae ka kape i te waehere e whai ake nei ki reira:

Sub New_Multi_Table_Pivot() Dim i As Long Dim arSQL() As String Dim objPivotCache As PivotCache Dim objRS As Dim ResultSheetSheetName As String Dim SheetsNames as Rerekē 'ingoa rau kei reira te huānga o te RipangaKaurori ka whakaatuhia ' = "She Result ingoa me nga ripanga puna SheetsNames = Array("Alpha", "Beta", "Gamma", "Delta") 'ka hanga he keteroki mo nga ripanga mai i nga SheetsNames With ActiveWorkbook ReDim arSQL(1 Ki te (UBound(SheetsNames) + 1) ) Mo i = LBound (SheetsNames) Ki te UBound(SheetsNames) arSQL(i + 1) = "KITI * MAI [" & SheetsNames(i) & "$]" Next i Set objRS = CreateObject("ADODB.Recordset") objRS .Whakatuwhera Hono$( arSQL, " UNION KATOA "), _ Hono $(Huapapa("Kaiwhakarato=Microsoft.Jet.OLEDB.4.0; Raraunga Raraunga = ", _ .IngoaKatoa, "; Huarahi Toronga = "" Excel 8.0;" ""), vbNullString ) Whakamutua Ki te 'hanga ano i te rau hei whakaatu i te ripanga kaurori ka puta I te Hapa Whakahou Taumahi Panuku.DisplayAlerts = Pepamahi Heke(ResultSheetName).Muku Tautuhi wsPivot = Pepamahi.Apiti wsPivot. Ingoa = ResultSheetName 'whakaatuhia te whakarāpopototanga keteroki i hanga ki runga i tenei rau Tautuhi objPivotCache = ActiveWorkbook.PivotCaches.Add(xlExternal) Tautuhi objPivotCache.Recordset = objRS Set objRS = Karekau me te wsPivot objPivotCachet.TableRaePivotCachet.TableRaePivotCache3" objPivotCache = Nothing Range("A3")    

Ko te tonotono kua oti ka taea te whakahaere me te pokatata papapātuhi alt+F8 te pātene Tonotono ranei i te ripa kaiwhakawhanake (Kaiwhakawhanake — Tonotono).

Nga kino o tenei huarahi:

• Kaore i te whakahōuhia nga raraunga na te mea karekau he hononga o te keteroki ki nga ripanga puna. Mena ka huri koe i nga raraunga puna, me whakahaere ano koe i te tonotono ka hanga ano i te whakarāpopototanga.
• Ina huri i te maha o nga rau, me whakatika te waehere tonotono (array Nga Ingoa Rau).
  

Engari i te mutunga ka whiwhi matou i te tepu kaurori tuuturu, i hangaia i runga i nga awhe maha mai i nga rau rereke:

Voilà!

Tuhipoka Hangarau: Mena ka puta he hapa penei "Kaore i rehitatia te Kaiwhakarato" i te wa e whakahaere ana koe i te tonotono, tera pea kei a koe he putanga 64-bit o Excel, he putanga kore oti ranei o Office kua whakauruhia (kaore he Uru). Hei whakatika i te ahuatanga, whakakapihia te kongakonga i te waehere tonotono:

	 Kaiwhakarato=Microsoft.Jet.OLEDB.4.0;  

ki:

	Kaiwhakarato=Microsoft.ACE.OLEDB.12.0;  

Ka tango me te whakauru i te miihini tukatuka raraunga koreutu mai i te Access mai i te paetukutuku Microsoft - Microsoft Access Database Engine 2010 Redistributable

Tikanga 3: Whakakotahi Ruānuku RipangaKaurori mai i nga Putanga Tawhito o Excel

He iti noa tenei tikanga, engari he pai tonu te whakahua. Okawa, i roto i nga putanga katoa tae atu ki te tau 2003, he whiringa i roto i te Ruānuku RipangaKaurori ki te "hanga kaurori mo etahi awhe whakatōpū". Heoi, he purongo i hangaia penei, engari, he ahua pouri noa iho o te whakarāpopototanga tino pono, kaore hoki e tautoko i te maha o nga "matapihi" o nga ripanga kaurori tikanga:

I roto i taua pivot, karekau he upoko poupou kei roto i te rarangi mara, karekau he whakatakotoranga hanganga ngawari, he iti te huinga o nga mahi e whakamahia ana, a, i te nuinga o te waa, kaore enei mea katoa e tino rite ki te ripanga kaurori. Koia pea, i timata i te tau 2007, i tangohia e Microsoft tenei mahi mai i te korero paerewa i te wa e hanga ana i nga purongo ripanga kaurori. Inaianei kei te waatea noa tenei waahanga ma te paatene ritenga Ruānuku RipangaKaurori(Ruānuku RipangaKaurori), ka taea te taapiri atu ki te Paeutauta Uru Tere ma te Kōnae – Kōwhiringa – Whakaritea Paeutauta Uru Tere – Nga Tono Katoa (Kōnae — Kōwhiringa — Whakaritea Paeutauta Uru Tere — Nga Tono Katoa):

Whai muri i te paato i te paatene taapiri, me kowhiria e koe te whiringa e tika ana i te taahiraa tuatahi o te ruānuku:

Na i te matapihi e whai ake nei, tohua ia awhe ka taapiri atu ki te raarangi whanui:

Engari, ano, ehara tenei i te whakarāpopototanga katoa, na kaua e tino tumanako mai i tera. Ka taea e au te taunaki i tenei whiringa i roto i nga keehi tino ngawari.

• Waihanga Ripoata me nga RipangaKaurori
• Whakaritehia nga tatauranga ki nga RipangaKaurori
• He aha nga tonotono, me pehea te whakamahi, kei hea te kape i te waehere VBA, aha atu.
• Kohikohi raraunga mai i nga rau maha ki te kotahi (PLEX taapiri)