Skip to main content

Conas na sraitheanna nó na raonta céanna a scriosadh ar fud iliomad bileoga in Excel?

Molann an t-alt seo dhá mhodh chun na sraitheanna nó na raonta céanna a scriosadh thar iliomad bileoga ag an am céanna in Excel. Déan mar a leanas le do thoil.

Scrios na sraitheanna nó na raonta céanna thar iliomad bileoga agus na bileoga go léir a ghrúpáil
Scrios na sraitheanna nó na raonta céanna thar iliomad bileoga le cóid VBA


Scrios na sraitheanna nó na raonta céanna thar iliomad bileoga agus na bileoga go léir a ghrúpáil

Is furasta gach bileog oibre a ghrúpáil agus ansin na sraitheanna nó na raonta céanna a scriosadh as na bileoga oibre seo ag an am céanna.

1. Cliceáil ar dheis ar aon chluaisín bileog sa leabhar oibre reatha, ansin cliceáil Roghnaigh Gach Bileog ón roghchlár cliceáil ar dheis.

2. Anois roghnaítear gach bileog oibre, má scriosann tú sraitheanna nó raonta áirithe i mbileog oibre, scriostar na sraitheanna nó na raonta céanna i mbileoga oibre eile le chéile.

3. Tar éis sraitheanna nó raonta a scriosadh ar fud na mbileog go léir, cliceáil ar dheis ar chluaisín bileog agus ansin cliceáil Bileoga Grúpa ón roghchlár cliceáil ar dheis chun gach bileog oibre a dhíghrúpáil.


Scrios na sraitheanna nó na raonta céanna thar iliomad bileoga le cóid VBA

Chomh maith leis an modh thuas, is féidir leat na cóid VBA seo a leanas a rith chun na sraitheanna nó na raonta céanna a scriosadh thar bhileog oibre iolrach.

Scrios na sraitheanna céanna ar fud iliomad bileoga

1. 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 seo a leanas i bhfuinneog an Chóid.

Cód VBA: Scrios na sraitheanna céanna ar fud iliomad bileoga In Excel

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

nótaí: Sa chód VBA, ciallaíonn 4: 5 go scriosfar sraith 4 agus 5 thar iliomad bileoga oibre sa leabhar oibre reatha. Is féidir leat iad a athrú go dtí an tsraith is gá.

3. Brúigh F5 eochair chun an cód a rith, ansin scriostar na sraitheanna sonraithe láithreach ó gach bileog sa leabhar oibre reatha.

Scrios na raonta céanna thar iliomad bileoga

Chun na raonta céanna a scriosadh ar fud iliomad bileoga, is féidir leat an cód VBA thíos a thriail.

Cód VBA: Scrios an raon céanna ar fud iliomad bileoga

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

Tar éis duit an cód VBA a chóipeáil agus a ghreamú isteach sa Mhodúl, brúigh F5 eochair chun an cód a rith, agus sa phreabadh suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an raon a scriosfaidh tú thar iliomad bileoga, agus ansin cliceáil ar an OK cnaipe.

Anois scriostar na luachanna cille sa raon sonrach seo ó gach bileog sa leabhar oibre reatha láithreach.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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

Tuairisc


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á!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a multiple data in multiple sheets and I want to delete some data with specific code in all sheets. kindly suggest.
This comment was minimized by the moderator on the site
Hi Ranit Mehta,
I don't quite understand your question. In the post, we provided a piece of VBA code for deleting data in the same range in multiple worksheets. I am not sure if this meets your needs.
The code is as follows:
Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub
This comment was minimized by the moderator on the site
Muchas gracias por el aporte, me ahorro mucho tiempo de trabajo.Bendiciones.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations