Conas uimhreacha a bhaint as teaghráin mheasctha téacs alfa-uimhriúla in Excel?
Soláthraíonn an rang teagaisc seo trí mhodh chun cabhrú le huimhreacha a bhaint as sreangán téacs alfa-uimhriúla measctha in Excel.
Sliocht uimhreacha as teaghráin téacs alfa-uimhriúla measctha le foirmle
Sliocht uimhreacha as teaghráin mheasctha téacs alfa-uimhriúla le cód VBA
Bain uimhreacha go héasca as teaghráin mheasctha téacs alfa-uimhriúla le huirlis iontach
Sliocht uimhreacha as teaghráin téacs alfa-uimhriúla measctha le foirmle
Is féidir leat an fhoirmle thíos a chur i bhfeidhm chun uimhreacha a bhaint as áit ar bith i sreangán téacs in Excel.
1. Roghnaigh cill bhán chun na huimhreacha eastósctha a aschur, cuir an fhoirmle thíos isteach agus brúigh an Iontráil eochair. Ansin tarraing an Láimhseáil AutoFill síos chun an fhoirmle a chur i bhfeidhm ar chealla eile.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
nótaí: San fhoirmle, is é A1 an chillín a chuireann in aghaidh na sreinge téacs is mian leat uimhreacha a bhaint. Athraigh é le do thoil bunaithe ar do chuid riachtanas.
Ansin baintear uimhreacha ó áit ar bith i dtéad téacs i gcealla sonraithe mar a thaispeántar an pictiúr thuas.
Ná coinnigh uimhreacha ach i teaghráin mheasctha téacs alfa-uimhriúla le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat gach carachtar neamh-uimhriúil a bhaint ó raon sonraithe agus gan ach uimhreacha a choinneáil i gcealla. Déan mar a leanas le do thoil.
nótaí: Toisc go sáraíonn an cód an raon bunaidh go díreach, coinnigh cóip den raon bunaidh le do thoil i gcás sonraí a chailleadh.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.
Cód VBA: bain na carachtair neamh-uimhriúla go léir ó chealla
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. Brúigh an F5 eochair chun an cód a rith. Ansin a Kutools le haghaidh Excel bosca dialóige aníos, roghnaigh le do thoil an raon ina bhfuil na teaghráin mheasctha téacs alfa-uimhriúla nach gcoinneoidh tú ach na huimhreacha, agus cliceáil ar an OK cnaipe.
Anois tá gach carachtar neamh-uimhriúil sa raon roghnaithe bainte láithreach, agus gan ach na huimhreacha coinnithe. Féach an pictiúr:
Bain uimhreacha go héasca as teaghráin mheasctha téacs alfa-uimhriúla le Kutools for Excel
Molann an chuid seo fóntais Sliocht Téacs Kutools le haghaidh Excel. Leis an bhfóntas seo, is furasta uimhreacha a bhaint as sreangán téacs.
Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.
1. cliceáil Kutools > Téacs > Sliocht Téacs chun an ghné a chumasú.
2. Sa Sliocht Téacs bosca dialóige, déan na socruithe thíos le do thoil.
cnaipe chun an raon cealla a roghnú as a mbainfidh tú téacs;
Nóta: seiceáil an Cuir isteach mar fhoirmle cuirfidh bosca sa chúinne ag bun na láimhe clé den dialóg an toradh mar fhoirmle isteach sna cealla toraidh. Nuair a athraíonn luach na cille tagartha, nuashonrófar an toradh go huathoibríoch.
3. Sa Sliocht Téacs bosca dialóige, roghnaigh cill bhán chun an téacs eastósctha a aschur, agus ansin cliceáil OK.
Ansin baintear uimhreacha as aon áit i sreangán téacs. Féach an pictiúr:
Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
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á!
