Conas bileog oibre a phriontáil gan sraitheanna bána in Excel?

Agus bileog oibre á phriontáil, priontálfar na sraitheanna bána freisin. I gcás roinnt úsáideoirí Excel, bíonn claonadh acu bileog oibre a phriontáil gan sraitheanna bána d’fhonn na sonraí a dhlúthú agus páipéir a shábháil. Ach conas bileog oibre a phriontáil gan sraitheanna bána in Excel. Soláthraíonn an t-alt seo dhá mhodh duit.

Folaigh sraitheanna bána sula ndéantar iad a phriontáil le cód VBA
Scrios sraitheanna bán sula ndéantar iad a phriontáil le Kutools le haghaidh Excel

Folaigh sraitheanna bána sula ndéantar iad a phriontáil le cód VBA

Sula ndéantar an bhileog oibre a phriontáil, is féidir leat an cód VBA thíos a rith chun sraitheanna bána a cheilt i raon sonraithe. Déan mar a leanas le do thoil.

1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic le haghaidh Feidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic le haghaidh Feidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Folaigh sraitheanna bána sa raon roghnaithe

Sub HideBlankRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim I As Long
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Areas.Count > 1 Then
			MsgBox "Don't support multiple ranges", , "Kutools for Excel"
			Exit Sub
			End If
			xUpdate = Application.ScreenUpdating
			Application.ScreenUpdating = False
			For I = 1 To xRg.Rows.Count
				xRg.Rows(I).EntireRow.Hidden = (Application.CountA(xRg.Rows(I)) = 0)
			Next
			Application.ScreenUpdating = xUpdate
		End Sub

3. Brúigh an F5 eochair chun an cód a rith, ansin a Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh an raon le sraitheanna bána nach bhfuil tú ag iarraidh a phriontáil, agus ansin cliceáil ar an OK cnaipe.

Ansin cuirtear gach sraitheanna bán sa raon roghnaithe i bhfolach láithreach. Ansin is féidir leat tosú ag priontáil an bhileog oibre gan sraitheanna bána.

nótaí: Tar éis duit iad a phriontáil, is féidir leat na sraitheanna bána seo a chur ar neamhní leis an gcód VBA seo a leanas.

Cód VBA: Cuir na sraitheanna bán uile i raon roghnaithe

Sub UnhideRows()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg = Application.InputBox("Please select a range to unhide the blank rows", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		xRg.EntireRow.Hidden = False
		Application.ScreenUpdating = xUpdate
	End Sub

Scrios sraitheanna bán sula ndéantar iad a phriontáil le Kutools le haghaidh Excel

Más mian leat bileog oibre a phriontáil gan sraitheanna bána, molaimid duit gach sraitheanna bán a scriosadh leis an Scrios Sraitheanna Bána fóntais de Kutools le haghaidh Excel, agus ansin is féidir leat an bhileog oibre a phriontáil de láimh.

1. cliceáil Kutools > Scrios > Scrios Sraitheanna Bána > Sa Raon Roghnaithe/I mBileog Ghníomhach/I mBileoga Roghnaithe/I ngach Bileog bunaithe ar do chuid riachtanas. Féach an pictiúr:

nótaí: Chun sraitheanna bána a scriosadh i raon, roghnaigh an raon seo ar dtús agus ansin cuir an fheidhm i bhfeidhm.

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

Anois scriostar gach sraitheanna bán. Féadfaidh tú tosú ar do bhileog oibre a phriontáil.

nótaí: Tacaíonn an fóntais seo le Cealaigh Ctrl + Z.