Conas carachtair neamh-alfa-uimhriúla a bhaint in Excel?
Má cheaptar go bhfuil raon sonraí ann, mar shampla JAMES0898 # 4% ^ {}, ina bhfuil carachtair neamh-alfa-uimhriúla i mbileog oibre, agus anois níl uait ach na carachtair neamh-alfa-uimhriúla a bhaint agus na carachtair alfa-uimhriúla a choinneáil. Mar shampla, JAMES0898 # 4% ^ {} > SÉAMH0898. Conas a scriosann tú na carachtair neamh-alfa-uimhriúla sin in Excel go tapa?
- Bain carachtair neamh-alfa-uimhriúla le cód VBA
- Bain carachtair neamh-alfa-uimhriúla le Feidhm Sainmhínithe ag an Úsáideoir
- Bain carachtair neamh-alfa-uimhriúla le Kutools le haghaidh Excel
Bain carachtair neamh-alfa-uimhriúla le cód VBA
Leis an gcód gairid VBA seo a leanas, is féidir leat na carachtair neamh-alfa-uimhriúla a bhaint freisin. Is féidir leat é a dhéanamh mar seo:
1. Brúigh Eile + F11 eochracha le chéile chun an Microsoft Visual Basic d’iarratais fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus ansin greamaigh faoi bhun chód VBA isteach sa Mhodúl:
VBA: Bain gach carachtar neamh-alfa-uimhriúla
Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Brúigh F5 eochair nó cliceáil ar an Rith cnaipe chun an cód a fhorghníomhú.
4. Ansin roghnaigh raon is mian leat gach carachtar neamh-alfa-uimhriúla a bhaint sa dialóg aníos, agus cliceáil ar an OK cnaipe.
Anois tá gach ceann de na carachtair neamh-alfa-uimhriúla scriosta ón raon roghnaithe. Féach an pictiúr:
2 chlic chun gach carachtar neamh-alfa-uimhriúla a bhaint le huirlis iontach
Is gnách go gcuirimid cúrsóir i gcill agus ansin bainimid carachtair neamh-alfa-uimhriúla ceann ar cheann de láimh. Má tá tú eolach ar VBA nó ar Fheidhmeanna Sainithe ag an Úsáideoir, is féidir leat é a chódú agus gach carachtar neamh-alfa-uimhriúla a bhaint den mórchóir. Ach anseo, molfaidh mé uirlis iontach, Bain gné Carachtair de Kutools le haghaidh Excel, ar féidir léi gach cineál carachtar a bhaint le 2 chlic amháin!
Bain carachtair neamh-alfa-uimhriúla le Feidhm Sainmhínithe ag an Úsáideoir
Is féidir leat feidhm shaincheaptha a shainiú freisin chun gach carachtar neamh-alfa-uimhriúil a bhaint as cealla in Excel.
1. Brúigh Eile + F11 eochracha le chéile chun an Microsoft Visual Basic d’iarratais fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus ansin greamaigh an cód thíos sa Mhodúl:
Feidhm Sainmhínithe ag an Úsáideoir: Bain gach carachtar neamh-alfa-uimhriúla
Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String
Dim xStrMode As String
Dim xInt As Integer
xStrMode = "[A-Z.a-z 0-9]"
xStrR = ""
For xInt = 1 To Len(xStr)
xCh = Mid(xStr, xInt, 1)
If xCh Like xStrMode Then
xStrR = xStrR & xCh
End If
Next
DeleteNonAlphaNumeric = xStrR
End Function
3. Anois téigh ar ais chuig an mbileog oibre, roghnaigh cill bhán, agus iontráil an fhoirmle = ScriosNonAlphaNumeric (B3), agus ansin íoslódáil an láimhseáil AutoFill a tharraingt chun an fhoirmle seo a chur i bhfeidhm ar chealla eile.
Bain carachtair neamh-alfa-uimhriúla le Kutools le haghaidh Excel
Le dhá mhodh thuas, ní mór duit na cóid a bheith ar eolas agat, ach mar thosaitheoirí Excel, ní féidir leis an gcuid is mó againn an cód a úsáid, mar sin anseo tabharfaidh mé bealach éasca duit é a dhéanamh.
Kutools le haghaidh Excel- Cuimsíonn sé níos mó ná 300 uirlis áisiúil le haghaidh Excel. Triail saor in aisce gné iomlán 30 lá, níl aon chárta creidmheasa ag teastáil! Get sé anois
Má tá Kutools suiteáilte agat le haghaidh Excel, déan é mar a leanas:
1. Roghnaigh an raon a theastaíonn uait chun carachtair neamh-alfa-uimhriúla a bhaint, agus cliceáil Kutools > Téacs > Bain Carachtair.
2. Ansin a Scrios Carachtair beidh bosca dialóige le feiceáil, ach seiceáil Neamh-alfa-uimhriúla rogha, agus cliceáil ar an Ok cnaipe.
Anois tá gach ceann de na carachtair neamh-alfa-uimhriúla scriosta ó na teaghráin téacs.
Earraí gaolmhara:
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á!