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 Sub3. 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 SubScrios 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.
Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.
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.
Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas 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.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!
