Conas sraitheanna a athdhéanamh ar bharr gach asphrionta ach amháin an leathanach deireanach in Excel?
In a lán cásanna, b’fhéidir go mbeidh ort an tsraith ceanntásc a athdhéanamh ar bharr gach leathanaigh clóite in Excel. Ach conas sraitheanna a athdhéanamh ar bharr gach asphrionta seachas an leathanach deireanach? Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.
Déan sraitheanna arís ar bharr gach asphrionta ach amháin an leathanach deireanach le cód VBA
Déan sraitheanna arís ar bharr gach asphrionta ach amháin an leathanach deireanach le cód VBA
Is féidir leat an cód VBA thíos a rith chun gach leathanach a phriontáil le sraitheanna arís agus arís eile ar an mbarr ach amháin an leathanach deireanach. Déan mar a leanas le do thoil.
1. Oscail an bhileog oibre is gá duit sraitheanna a athdhéanamh ar a bharr seachas an leathanach deireanach, ansin brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.
VBA: Déan sraitheanna arís ar bharr gach asphrionta ach amháin an leathanach deireanach in Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub3. Brúigh an F5 eochair chun an cód a rith, ansin a Kutool do Excel bosca dialóige aníos, roghnaigh an raon as a chéile a chaithfidh tú a athdhéanamh ar bharr gach asphrionta seachas an leathanach deireanach, agus ansin cliceáil OK cnaipe. Féach an pictiúr:
Ansin déantar gach leathanach sa bhileog oibre seo a phriontáil amach le sraith áirithe athrá ar a bharr seachas an leathanach deireanach.
Earraí gaolmhara:
- Conas luach cille a athdhéanamh go dtí go bhfeictear nó go sroichtear luach nua in Excel?
- Conas carachtar a athdhéanamh n uair i gcill in Excel?
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á!
