Note: The other languages of the website are Google-translated. Back to English

Sut i dynnu cymeriadau nad ydynt yn rhifol o gelloedd yn Excel?

Gan dybio bod gennych chi daflen waith gyda llawer o ddata o'r fath ABCD4578124YUIOH, a dim ond y cymeriadau nad ydynt yn rhifol yr ydych am eu tynnu  ABCDYUIOH ond cadwch y cymeriadau rhifol mewn celloedd. Wrth gwrs, gallwch chi gael gwared ar y cymeriadau hynny fesul un, ond yma gallwch chi gael gwared ar y cymeriadau nad ydyn nhw'n rhifol o gelloedd yn gyflym fel a ganlyn:

Tynnwch nodau nad ydynt yn rhifol gyda chod VBA

Offeryn defnyddiol i gael gwared ar nodau nad ydynt yn rhifol gydag un clic


Tynnwch nodau nad ydynt yn rhifol gyda chod VBA

I dynnu nodau nad ydynt yn rhifol o ystod gyda chod VBA, gwnewch fel a ganlyn:

1. Cliciwch Datblygwr > Visual Basic i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr. Yn y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna copïo a gludo'r codau canlynol i'r modiwl:

VBA: Tynnwch yr holl nodau nad ydynt yn rhifol

Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

2. Yna cliciwch y botwm i redeg y cod, Yn y popping up KutoolsforExcel blwch deialog, dewiswch ystod gyda'r nodau nad ydynt yn rhifol rydych chi am eu tynnu, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

doc dileu nodau rhifol 1 copi

3. Yna tynnir yr holl nodau nad ydynt yn rhifol yn yr ystod a ddewiswyd.

doc dileu nodau nad ydynt yn rhifol 2

Os yw'r rhifau â phwyntiau degol, gallwch ddefnyddio'r VBA canlynol:

Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

Gallwch weld y canlyniadau fel isod sgrinlun a ddangosir:

doc dileu nodau nad ydynt yn rhifol 3


Offeryn defnyddiol i gael gwared ar nodau nad ydynt yn rhifol gydag un clic

Ar gyfer cael gwared ar gymeriadau nad ydynt yn rhifol mewn ystod, Kutools ar gyfer Excel'S Dileu Cymeriadau gall cyfleustodau ei wneud gydag un clic.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Tynnwch sylw at yr ystod rydych chi am gael gwared â chymeriadau nad ydyn nhw'n rhifol. Cliciwch Kutools > Testun > Dileu Cymeriadau.

doc dileu nodau nad ydynt yn rhifol 4

2. Yn y Dileu Cymeriadau blwch deialog, gwiriwch y Heb fod yn rhifol opsiwn yn y Dileu Cymeriadau adran, ac yna cliciwch yr adran OK or Gwneud cais botwm. Ac mae'r cymeriadau nad ydynt yn rhifol yn cael eu tynnu o'r detholiad ar unwaith. Gweler y screenshot:

doc dileu nodau nad ydynt yn rhifol 5

Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!

Am wybodaeth fanylach am Dileu Cymeriadau o Kutools ar gyfer Excel, ewch i Dileu disgrifiad nodweddion cymeriadau.


Demo: Tynnwch gymeriadau rhifol, wyddor, na ellir eu hargraffu neu alffaniwmerig o gelloedd

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cod sampl ar gyfer sylwadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch gweithiodd yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni fyddai'n well disodli'r dull blwch mewnbwn trwy osod WorkRng fel hyn yn unig: Gosod WorkRng = Croestorri (ActiveSheet.UsedRange, Dewis) y ffordd honno os bydd defnyddiwr yn dewis colofn gyfan ni fyddai'n cynhyrchu unrhyw wall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Awesome Wedi gweithio GWYCH!!!!!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw. fe weithiodd hynny, yn union beth oedd ei angen arnaf. Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Derbyniais wall wrth daro'r botwm > rhedeg yn y datblygwr: Crynhoi Gwall: Disgwyliedig: diwedd y datganiad ac amlygir y gair "non" yn anrhifol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y Fformiwla hon i amnewid y nod presennol gyda'r un newydd =SUBSTITUTE(text, old_text, new_text,[instance_num]) ar gyfer ex-=SUBSTITUTE(TRIM(G1),"/","") Wish U all Happy Easter 2015
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Thanx Guys am waith mor braf. Mae'r sgript yn anhygoel ac fe weithiodd i. Daliwch ati guys.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond eisiau rhoi gwybod i chi, os yw'r llinyn yn dechrau gyda sero(s), neu'n dechrau gyda llythrennau, wedi'i ddilyn gan sero(s), ac yna gweddill y llinyn, bydd hyn yn cael gwared ar yr holl seroau cychwyn. Mae hyn yn rhyfedd oherwydd nid yw'n dileu'r sero(s) os ydyn nhw rhwng rhifau di-sero eraill o fewn y llinyn, dim ond os ydyn nhw'n cychwyn y llinyn neu'n rhifau cyntaf ar ôl y llythrennau cychwynnol mewn llinyn. Enghraifft. Byddai 0060100 yn dod allan gan y byddai 60100 PFF057726 yn dod allan fel 57726. Rhowch wybod i mi a oes gennych esboniad am hyn a gallwch feddwl am ateb. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Anfonwch ef ar fy ID e-bost
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i eisiau defnyddio'r macro hwn ond rydw i eisiau diffinio ystod ymlaen llaw. A allwch chi roi gwybod i mi sut i rag-ddiffinio'r ystod. Diolch, Samit
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r VBA yn gweithio'n wych. Fe'i haddasais i weithio ar golofn bob amser, fel y dangosir:

Ar gyfer Pob Cell Mewn Ystod ("B2:B" & ActiveSheet.UsedRange.Rows.Count)

xOut=""

Ar gyfer i = 1 I Len(Cell.Value)

xTemp = Canolbarth(Cell.Gwerth, i, 1)

Os xTemp Fel "[0-9]" Yna

xStr = xTemp

arall

xStr=""

Gorffennwch Os

xOut = xOut & xStr

Nesaf i

Cell.Value = xOut

Digwyddiadau

Defnyddiais hwn hefyd i ddidoli colofn yn ôl y digid olaf, gan newid y rhan olaf i Cell.Value = Right(xOut, 1) yna ei didoli'n rhifiadol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Diolch am y codio, yr wyf yn cael y gwall cystrawen wedi'i amlygu ar For i = 1 I Len(Rng.Value) ac mae'r debug Is RemoveNotNum() wedi'i amlygu mewn melyn... cyngor caredig.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir