Sut i ehangu neu gau pob rhes grŵp a cholofn yn Excel?
Yn Excel, gallwch ddefnyddio'r cyfleustodau Grŵp i grwpio data yn ôl yr angen. Ond os oes llawer o grwpiau yn y ddalen, sut allwch chi ehangu neu gau pob grŵp yn gyflym heb glicio â llaw? Yma, rwy'n cyflwyno codau VBA i ddatrys y swydd hon yn Excel yn hawdd.
Ehangu neu gau rhesi a cholofnau pob grŵp yn Excel
Ehangu neu gau rhesi a cholofnau pob grŵp yn Excel
Dyma rai a all codau VBA eich helpu i ehangu neu gau pob grŵp ar unwaith.
1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, copïo a gludo cod chwythu i'r Modiwl newydd。
VBA: Ehangu pob grŵp
Sub ExpandAll() 'UpdatebyExtendoffice20181031 Dim I As Integer Dim J As Integer On Error Resume Next For I = 1 To 100 Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I If Err.Number <> 0 Then Err.Clear Exit For End If Next I For J = 1 To 100 Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J If Err.Number <> 0 Then Err.Clear Exit For End If Next J End Sub
3. Gwasgwch F5 yn allweddol, mae'r grwpiau yn Nhaflen 1 wedi'u hehangu.
Os ydych chi am gau pob grŵp, gallwch ddefnyddio isod y cod:
Sub CollapseAll() Worksheets("sheet1").Outline.ShowLevels 1, 1 End Sub
Nodyn: yn y codau uchod, Taflen 1 yw'r ddalen sy'n cynnwys grwpiau y byddwch chi'n cael eich ehangu neu eu cau. Newidiwch ef i'ch enw dalen eich hun os oes angen.
Yr Offer Cynhyrchedd Swyddfa Gorau
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
- Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
- Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
- Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
- Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
- Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
- Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
- Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
- Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
- Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
