Note: The other languages of the website are Google-translated. Back to English

Sut i hidlo rhestr a dileu'r gweddill rhesi cudd neu weladwy yn Excel?

Ar gyfer rhestr wedi'i hidlo, efallai y bydd angen i chi ddileu'r rhesi cudd neu weladwy er mwyn cadw'r data defnyddiol yn unig. Yn yr erthygl hon, byddwn yn dangos i chi ddulliau o ddileu'r gweddill rhesi cudd neu weladwy o restr wedi'i hidlo yn Excel.

Dileu rhesi cudd mewn taflen waith weithredol gyda chod VBA
Dileu rhesi gweladwy o restr wedi'i hidlo gan ddewis yr holl gelloedd gweladwy
Yn hawdd dileu rhesi cudd neu weladwy o restr wedi'i hidlo gyda Kutools ar gyfer Excel


Dileu rhesi cudd mewn taflen waith weithredol gyda chod VBA

Bydd yr adran hon yn dangos cod VBA i chi i ddileu rhesi cudd ar ddalen weithredol. Gwnewch fel a ganlyn.

1. Ysgogi'r daflen waith sydd ei hangen arnoch i ddileu rhesi cudd, gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau. Ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.

Cod VBA: Dileu rhesi cudd

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. Gwasgwch y F5 allwedd i redeg y cod. Os oes rhesi cudd ar y ddalen weithredol, ar ôl rhedeg y cod, bydd blwch deialog yn ymddangos i ddweud wrthych faint o resi cudd sydd wedi'u dileu. Cliciwch y OK botwm i ddileu'r rhesi cudd. Gweler y screenshot:

dileu dileu gorffwys 1

Fel arall, fe gewch y blwch deialog canlynol ar ôl rhedeg y cod.

dileu dileu gorffwys 1

Nodyn: mae'r cod VBA uchod nid yn unig yn gallu dileu rhesi cudd o restr wedi'i hidlo, ond hefyd dileu rhesi cudd rydych chi wedi'u cuddio â llaw o'r blaen.


Dileu rhesi gweladwy o restr wedi'i hidlo gan ddewis yr holl nodwedd celloedd gweladwy

Ar gyfer dileu rhesi gweladwy o restr wedi'i hidlo, gwnewch fel a ganlyn.

1. Dewiswch yr holl resi sydd wedi'u hidlo allan, a gwasgwch F5 allweddol i agor y Ewch i blwch deialog, yna cliciwch ar y Arbennig botwm. Gweler y screenshot:

dileu dileu gorffwys 1

2. Yn y Ewch i Arbennig blwch deialog, gwiriwch y Celloedd gweladwy yn unig opsiwn, ac yna cliciwch ar y OK botwm.

dileu dileu gorffwys 1

3. Nawr bod pob rhes weladwy wedi'i dewis, cliciwch ar y dde ar y dewis, ac yna cliciwch Delete Rows.

dileu dileu gorffwys 1

Hyd yn hyn, mae'r holl resi gweladwy yn cael eu dileu o'r rhestr wedi'i hidlo.


Yn hawdd dileu rhesi cudd neu weladwy o restr wedi'i hidlo gyda Kutools ar gyfer Excel

Efallai nad y ddau ddull uchod yw'r atebion dymuniad i lawer o ddefnyddwyr Excel, yma rydym yn cyflwyno teclyn defnyddiol i chi. Efo'r Dileu Rhesi a Cholofnau Cudd (Gweladwy) cyfleustodau Kutools ar gyfer Excel, gallwch chi ddileu rhesi cudd yn hawdd mewn ystod / taflenni dethol, taflen weithredol neu'r holl daflenni gwaith yn Excel.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Os ydych chi am ddileu rhesi cudd neu weladwy o restr wedi'i hidlo yn unig, dewiswch yr ystod wedi'i hidlo â llaw, ac yna cliciwch Kutools > Dileu > Dileu Rhesi a Cholofnau Cudd (Gweladwy). Gweler y screenshot:

2. Yn y Dileu Rhesi a Cholofn Cudd (Gweladwy) blwch deialog, cadwch y Mewn amrediad dethol a ddewiswyd yn y Edrych mewn rhestr ostwng (gallwch ddewis opsiynau eraill yn ôl yr angen), gwiriwch y Rhesi opsiwn yn y Dileu math adran, ac yn yr Math manwl adran, gwirio Rhesi gweladwy or Rhesi cudd opsiwn yn ôl yr angen. Ac yn olaf cliciwch y OK botwm.

3. Yna mae blwch deialog yn ymddangos i ddweud wrthych faint o resi sydd wedi'u dileu, cliciwch y OK botwm.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Dileu rhesi cudd neu weladwy o restr wedi'i hidlo gyda Kutools ar gyfer Excel


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.
tab kte 201905

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!
gwaelod officetab
sylwadau (7)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Adborth ynglŷn â'r macro ar gyfer dileu rhesi cudd - mae hyn yn cymryd gormod o amser i'w redeg ar resi 900k i fod yn ddefnyddiol. 2+ awr ar Threadripper OC'd 1950X ac yn dal i redeg (gorfod gorffen y dasg). Unrhyw ffordd i'w optimeiddio i ddefnyddio creiddiau lluosog neu a yw hyn yn gyfyngiad VBA?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'r cod wedi'i optimeiddio. Rhowch gynnig arni. Diolch i chi am eich sylw.

Is-Dynnu RhesiCudd()
Dim xFlag Fel Boole
Dim xStr, xTemp Fel Llinynnol
Dim xDiv, xMod Cyhyd
Dim I, xCyfrif, xRows Cyhyd
Dim xRg, xCell, xDRg Fel Ystod
Dim xArr() Fel Llinynnol
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Application.EnableEvents = Gau
Gosod xRg = Croestorri(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Os yw xRg Yn Ddim Yna Ymadael Is
xRows = xRg.Rows.Count
Gosod xRg = xRg(1)
xFlag = Gwir
xTemp=""
xCyfrif = 0
Am I = 1 I xRows
Gosod xCell = xRg.Offset(I - 1, 0)
Gwna Tra xFlag
Os xCell.EntireRow.Hidden Yna
xStr = xCell.Address
xFlag = Gau
arall
GoTo Ctn
Gorffennwch Os
dolen
Os xCell.EntireRow.Hidden Yna
xTemp = xStr & "," &xCell.Address
Gorffennwch Os
Os Len(xTemp) > 171 Yna
xCyfrif = xCyfrif + 1
ReDim Cadw xArr(1 I xCyfrif)
xArr(xCount) = xStr
xStr = xCell.Address
arall
xStr = xTemp
Gorffennwch Os
Ctn:
Digwyddiadau
xCyfrif = xCyfrif + 1
ReDim Cadw xArr(1 I xCyfrif)
xArr(xCount) = xStr
Ar gyfer I = xCyfrif I 1 Cam -1
Os ydw i = 1 Yna
xStr = Canolbarth(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
arall
xStr = xArr(I)
Gorffennwch Os
Os yw xDRg Yn Dim Yna
Gosod xDRg = Ystod(xStr)
arall
Gosod xDRg = Undeb (xDRg, Ystod (xStr))
Gorffennwch Os
Os (Len(xDRg.Address) >= 244) Neu (xCount = 1) Yna
xDRg.EntireRow.Dileu
Gosod xDRg = Dim byd
Gorffennwch Os
Digwyddiadau
Application.EnableEvents = Gwir
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, diolch! Byddaf yn adolygu ar fy nghyfle nesaf / angen am hyn ac yn ateb yn ôl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd cod VBA i Dileu rhesi cudd yn berffaith heb unrhyw ffidlan. DIOLCH!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y wybodaeth. Mae hyn wedi bod yn addysgiadol. Os gwelwch yn dda a oes ffordd i hidlo a dileu ar gyfer rhifau penodol mewn rhesi o hyd at 1 miliwn? A ellir addasu'r cod uchod i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennym na phrofodd y cod mewn data rhes mor enfawr. Efallai y gallwch chi wneud copi o'ch data a phrofi a all y cod weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae'r cod VBA hwn yn ddefnyddiol iawn.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir