Skip to main content

Conas sraitheanna os cionn cille gníomhaí nó téacs sonrach a scriosadh in Excel?

Má tá bileog oibre ollmhór ann le sraitheanna iolracha, agus mura dteastaíonn uait ach na sraitheanna go léir os cionn na cille gníomhaí nó téacs ar leith a scriosadh, conas is féidir leat í a láimhseáil? Is féidir leat na sraitheanna a scriosadh trí iad a roghnú agus ansin cliceáil ar dheis chun Delete a roghnú ón roghchlár comhthéacs de láimh. Ach anseo, tá codesto VBA agam sraitheanna thuas a scriosadh go tapa, má tá suim agat ann, léigh na sonraí thíos le do thoil.

Scrios sraitheanna thuas le cóid VBA


mboilgeog cheart gorm saighead Scrios sraitheanna thuas le cóid VBA

Seo a thugann mé dhá chód VBA isteach duit, is é ceann sraitheanna a scriosadh os cionn an ghníomhaigh (cill roghnaithe), is é ceann eile na sraitheanna os cionn an téacs shonraithe a bhaint.

1. Roghnaigh cill ar mhaith leat sraitheanna os a chionn a scriosadh, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an Modúil script.

VBA: Scrios sraitheanna os cionn na cille gníomhaí

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

 

scrios sraitheanna thuas 1

3. Brúigh F5 eochair, ansin baineadh na sraitheanna os cionn na cille gníomhaí. Féach an pictiúr:
scrios sraitheanna thuas 2

Más mian leat sraitheanna os cionn an téacs shonraithe a scriosadh, is féidir leat úsáid a bhaint as thíos VBA.

VBA: Scrios sraitheanna os cionn an téacs shonraithe

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

scrios sraitheanna thuas 3

Nóta:

1. Sa chód, Grúpa Iomlán an téacs atá tú ag iarraidh a fháil, is féidir leat é a athrú de réir mar is gá duit.

2. Má tá an téacs a aimsíonn tú sa chéad tsraith cheana féin, popfaidh dialóg amach le cur i gcuimhne duit.
scrios sraitheanna thuas 4

3. Mura bhfuil an téacs a aimsíonn tú ar an mbileog, nochtfaidh dialóg mar atá thíos an scáileán chun tú a mheabhrú.
scrios sraitheanna thuas 5

 

Uirlisí Táirgiúlachta Oifige is Fearr

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

cluaisín kte 201905


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations