Conas sraitheanna le luachanna diúltacha in Excel a scriosadh?
Ag ceapadh, tá an raon sonraí seo a leanas agat, agus ba mhaith leat na sraitheanna iomlána a scriosadh má tá an uimhir diúltach i gcolún B, an bhfuil aon mhodhanna maithe ann chun an fhadhb seo a réiteach in Excel?
 |
 |
 |
Scrios sraitheanna le huimhreacha diúltacha trí chód VBA a úsáid Scrios sraitheanna le huimhreacha diúltacha trí Kutools a úsáid le haghaidh Excel |
Scrios sraitheanna le huimhreacha diúltacha trí chód VBA a úsáid
D’fhéadfadh an cód VBA seo a leanas cabhrú leat na sraitheanna iomlána a scriosadh má tá uimhreacha diúltacha i gcolún ar leith, déan mar a leanas:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Scrios sraitheanna le huimhreacha diúltacha
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. Agus ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, sa bhosca pras, roghnaigh an colún uimhreacha ar mhaith leat na huimhreacha diúltacha a fháil uathu, féach an scáileán:
4. Ansin cliceáil OK cnaipe, scriosadh na sraitheanna le huimhreacha diúltacha ag an am céanna.
Scrios sraitheanna le huimhreacha diúltacha trí Kutools a úsáid le haghaidh Excel
Chun an post seo a láimhseáil, Kutools le haghaidh Excel'S Roghnaigh Cealla Sonracha is féidir le gné fabhar a thabhairt duit freisin, leis an bhfóntas seo, is féidir leat na sraitheanna iomlána ina bhfuil na luachanna diúltacha a roghnú ar dtús, agus ansin na sraitheanna iomlána a scriosadh de réir mar is gá duit.
| Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:
1. Roghnaigh an colún tá uimhreacha diúltacha ar mhaith leat a scriosadh.
2. Ansin cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Sonracha, féach ar an scáileán:
3. Sa an Roghnaigh Cealla Sonracha dialóg, roghnaigh Sraith iomlán rogha sa Cineál roghnúcháin, agus ansin roghnaigh Níos lú ná ó na Cineál sonrach agus dul isteach 0 isteach sa bhosca téacs in aice leis na critéir, féach an pictiúr:
4. Ansin cliceáil Ok, roghnaíodh na sraitheanna ina bhfuil uimhreacha diúltacha ag an am céanna, agus ansin cliceáil Baile > Scrios > Scrios Sraitheanna Bileog chun na sraitheanna roghnaithe a scriosadh de réir mar is gá duit, féach screenshots:
 |
|
 |
Leideanna： Is féidir leat cliceáil ar dheis chun roghnú freisin Scrios ón roghchlár comhthéacs chun na sraitheanna roghnaithe a scriosadh.
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á!
