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

Conas liosta a scagadh agus na sraitheanna eile atá i bhfolach nó infheicthe in Excel a scriosadh?

Le haghaidh liosta scagtha, b’fhéidir go mbeidh ort na sraitheanna i bhfolach nó infheicthe a scriosadh d’fhonn na sonraí úsáideacha amháin a choinneáil. San Airteagal seo, taispeánfaimid duit modhanna chun an chuid eile de na sraitheanna i bhfolach nó infheicthe de liosta scagtha in Excel a scriosadh.

Scrios sraitheanna i bhfolach i mbileog oibre gníomhach le cód VBA
Scrios sraitheanna infheicthe den liosta scagtha agus roghnaigh na cealla infheicthe go léir
Scrios go héasca sraitheanna i bhfolach nó infheicthe den liosta scagtha le Kutools for Excel


Scrios sraitheanna i bhfolach i mbileog oibre gníomhach le cód VBA

Taispeánfaidh an chuid seo cód VBA duit chun sraitheanna i bhfolach a scriosadh ar bhileog ghníomhach. Déan mar a leanas le do thoil.

1. Gníomhachtaigh an bhileog oibre a theastaíonn uait chun sraitheanna i bhfolach a scriosadh, brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.

Cód VBA: Scrios sraitheanna i bhfolach

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. Brúigh an F5 eochair chun an cód a rith. Má tá sraitheanna i bhfolach sa bhileog ghníomhach, tar éis an cód a rith, nochtfaidh bosca dialóige chun a insint duit cé mhéad sraitheanna i bhfolach a scriosadh. Cliceáil ar an OK cnaipe chun na sraitheanna i bhfolach a scriosadh. Féach an pictiúr:

scrios scíth 1

Seachas sin, gheobhaidh tú an bosca dialóige seo a leanas tar éis duit an cód a rith.

scrios scíth 1

nótaí: ní amháin gur féidir leis an gcód VBA thuas sraitheanna i bhfolach den liosta scagtha a scriosadh, ach freisin sraitheanna i bhfolach a chuir tú i bhfolach de láimh roimhe seo a scriosadh.


Scrios sraitheanna infheicthe den liosta scagtha agus roghnaigh gach gné cealla infheicthe

Chun sraitheanna infheicthe den liosta scagtha a scriosadh, déan mar a leanas le do thoil.

1. Roghnaigh gach sraitheanna scagtha amach, agus brúigh F5 eochair chun an Téigh go bosca dialóige, ansin cliceáil ar an speisialta cnaipe. Féach an pictiúr:

scrios scíth 1

2. Sa Téigh go Speisialta bosca dialóige, seiceáil an Cealla infheicthe amháin rogha, agus ansin cliceáil ar an OK cnaipe.

scrios scíth 1

3. Anois go roghnaítear na sraitheanna infheicthe go léir, cliceáil ar dheis ar an roghnú, agus ansin cliceáil Rothaí a scriosadh.

scrios scíth 1

Go dtí seo, scriostar na sraitheanna infheicthe uile ón liosta scagtha.


Scrios go héasca sraitheanna i bhfolach nó infheicthe den liosta scagtha le Kutools for Excel

B’fhéidir nach iad na réitigh dhá mhodh thuas an réiteach dúil atá ag go leor úsáideoirí Excel, anseo tugtar uirlis áisiúil duit. Leis an Scrios Sraitheanna & Colúin Hidden (Infheicthe) fóntais de Kutools le haghaidh Excel, is féidir leat sraitheanna i bhfolach a scriosadh go héasca i raon / bileoga roghnaithe, bileog ghníomhach nó gach bileog oibre in Excel.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Mura dteastaíonn uait ach sraitheanna i bhfolach nó infheicthe de liosta scagtha a scriosadh, roghnaigh an raon scagtha de láimh, agus ansin cliceáil Kutools > Scrios > Scrios Sraitheanna & Colúin Hidden (Infheicthe). Féach an pictiúr:

2. Sa Scrios Sraitheanna & Colún Hidden (Infheicthe) bosca dialóige, coinnigh an Sa Raon roghnaithe roghnaithe sa Feach isteach liosta anuas (is féidir leat roghanna eile a roghnú de réir mar is gá duit), seiceáil an Rónna rogha sa Scrios cineál alt, agus sa Cineál mionsonraithe alt, seiceáil Sraitheanna infheicthe or Sraitheanna i bhfolach rogha de réir mar is gá duit. Agus ar deireadh cliceáil ar an OK cnaipe.

3. Ansin tagann bosca dialóige suas chun a insint duit cé mhéad sraitheanna a scriosadh, cliceáil ar an OK cnaipe.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Scrios sraitheanna i bhfolach nó infheicthe den liosta scagtha le Kutools for Excel


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (7)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aiseolas maidir le: an macra le haghaidh scriosadh sraitheanna folaithe - tógann sé ró-fhada é seo a rith ar shraitheanna 900k le bheith úsáideach. 2+ uair an chloig ar Threadripper OC'd 1950X agus fós ag rith (b'éigean an tasc a chríochnú). Aon bhealach chun é a bharrfheabhsú le croíleacáin iolracha a úsáid nó an teorainn VBA é seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Tá an cód optamaithe. Bain triail as, le do thoil. Go raibh maith agat as do thuairim.

Fo-RéannaHiddenHidden()
Dim xFlag As Boole
Dim xStr, xTemp As Teaghrán
Dim xDiv, xMod Chomh fada
Dim I, xCount, xRows Chomh fada
Dim xRg, xCell, xDRg Mar Raon
Dim xArr() Mar Teaghrán
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Application.EnableEvents = Bréagach
Socraigh xRg = Trasnaigh(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Mura bhfuil xRg ar bith ansin Scoir Fo
xRows = xRg.Rows.Count
Socraigh xRg = xRg(1)
xFlag = Fíor
xTemp=""
xCount = 0
Chun I = 1 Go xRows
Socraigh xCell = xRg.Offset(I - 1, 0)
Déan Cé go xFlag
Má xCell.EntireRow.Hidden Ansin
xStr = xCell.Address
xFlag = Bréagach
Eile
Téigh go Ctn
Deireadh Má
Lúb
Má xCell.EntireRow.Hidden Ansin
xTemp = xStr & "," & xCell.Address
Deireadh Má
Má tá Len(xTemp) > 171 Ansin
xCount = xCount+1
ReDim Caomhnaigh xArr(1 Go xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Eile
xStr = xTemp
Deireadh Má
Ctn:
Ar Aghaidh
xCount = xCount+1
ReDim Caomhnaigh xArr(1 Go xCount)
xArr(xCount) = xStr
Do I = xCount To 1 Step -1
Má tá mé = 1 Ansin
xStr = Lár (xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Eile
xStr = xArr(I)
Deireadh Má
Mura bhfuil xDRg Rud ar bith Ansin
Socraigh xDRg = Raon (xStr)
Eile
Socraigh xDRg = Aontas(xDRg, Raon(xStr))
Deireadh Má
Más rud é (Len(xDRg.Address) >= 244) Nó (xCount = 1) Ansin
xDRg.EntireRow.Scrios
Socraigh xDRg = Ní dhéanfaidh aon ní
Deireadh Má
Ar Aghaidh
Application.EnableEvents = Fíor
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Iontach, go raibh maith agat! Athbhreithneoidh mé ag an gcéad deis eile / an gá atá agam leis seo agus tabharfaidh mé freagra ar ais.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh cód VBA chun sraitheanna folaithe a scriosadh go foirfe gan aon fiddling. GO RAIBH MAITH AGAT!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an eolas. Bhí sé seo oiliúnach. Le do thoil an bhfuil bealach ann le huimhreacha sonracha a scagadh agus a scriosadh i sraitheanna suas le 1 milliún? An féidir an cód thuas a mhodhnú chun é sin a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Is oth linn nár thástáil an cód i sonraí ró-mhór dá leithéid. B'fhéidir gur féidir leat cóip a dhéanamh de do shonraí agus a thástáil an féidir leis an gcód oibriú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit tá an cód VBA seo iontach úsáideach.
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL