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 Sub

3. 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?