Skip i'r prif gynnwys

Sut i ddileu'r un rhesi neu ystodau ar draws sawl dalen yn Excel?

Mae'r erthygl hon yn argymell dau ddull o ddileu'r un rhesi neu ystodau ar draws sawl dalen ar yr un pryd yn Excel. Gwnewch fel a ganlyn.

Dileu'r un rhesi neu ystodau ar draws sawl dalen gyda grwpio'r holl daflenni
Dileu'r un rhesi neu ystodau ar draws sawl dalen gyda chodau VBA


Dileu'r un rhesi neu ystodau ar draws sawl dalen gyda grwpio'r holl daflenni

Mae'n hawdd grwpio'r holl daflenni gwaith ac yna dileu'r un rhesi neu ystodau o'r taflenni gwaith hyn ar yr un pryd.

1. Cliciwch ar y dde ar unrhyw dab dalen yn y llyfr gwaith cyfredol, yna cliciwch Dewiswch Pob Dalen o'r ddewislen clicio ar y dde.

2. Nawr dewisir pob taflen waith, os ydych chi'n dileu rhai rhesi neu ystodau mewn taflen waith, mae'r un rhesi neu ystodau mewn taflenni gwaith eraill yn cael eu dileu gyda'i gilydd.

3. Ar ôl dileu rhesi neu ystodau ar draws pob dalen, cliciwch ar y dde ar dab dalen ac yna cliciwch Taflenni Grwpiau o'r ddewislen clicio ar y dde i ddadgrwpio'r holl daflenni gwaith.


Dileu'r un rhesi neu ystodau ar draws sawl dalen gyda chodau VBA

Heblaw am y dull uchod, gallwch redeg y codau VBA canlynol i ddileu'r un rhesi neu ystodau ar draws taflen waith luosog.

Dileu'r un rhesi ar draws sawl dalen

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA canlynol i mewn i ffenestr y Cod.

Cod VBA: Dileu'r un rhesi ar draws sawl dalen Yn Excel

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

Nodyn: Yn y cod VBA, mae 4: 5 yn golygu y bydd rhes 4 a 5 yn cael ei dileu ar draws nifer o daflenni gwaith yn y llyfr gwaith cyfredol. Gallwch eu newid i'ch rhes angenrheidiol.

3. Gwasgwch F5 allwedd i redeg y cod, yna mae'r rhesi penodedig yn cael eu dileu ar unwaith o'r holl daflenni yn y llyfr gwaith cyfredol.

Dileu'r un ystodau ar draws sawl dalen

Ar gyfer dileu'r un ystodau ar draws sawl dalen, gallwch roi cynnig ar y cod VBA isod.

Cod VBA: Dileu'r un amrediad ar draws sawl dalen

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

Ar ôl copïo a gludo'r cod VBA i'r Modiwl, pwyswch F5 allwedd i redeg y cod, ac yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod y byddwch chi'n ei dileu ar draws sawl dalen, ac yna cliciwch ar y OK botwm.

Nawr mae'r gwerthoedd celloedd yn yr ystod benodol hon yn cael eu dileu o'r holl daflenni yn y llyfr gwaith cyfredol ar unwaith.


Erthyglau perthnasol:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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