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ú.
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!