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

---

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

 

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

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

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.

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