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

Sut i dynnu testun yn unig o gelloedd sy'n cynnwys rhifau a thestunau yn Excel?

Fel y dangosir isod y llun, ar gyfer y celloedd hynny sy'n gymysg â rhifau a thestunau, sut i gael gwared ar yr holl destunau a chadw rhifau mewn celloedd yn unig? Gall dulliau yn yr erthygl hon eich helpu chi.

Tynnwch destun yn unig o gelloedd sy'n cynnwys rhifau a thestunau sydd â swyddogaeth wedi'i diffinio gan y Defnyddiwr
Tynnwch destun yn hawdd o gelloedd sy'n cynnwys rhifau a thestunau gyda Kutools ar gyfer Excel


Tynnwch destun yn unig o gelloedd sy'n cynnwys rhifau a thestunau sydd â swyddogaeth wedi'i diffinio gan y Defnyddiwr

Gallwch hefyd ddefnyddio'r swyddogaeth isod a ddiffiniwyd gan y defnyddiwr i dynnu testunau o gelloedd penodol a chadw rhifau yn unig.

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Côd ffenestr. Gweler y screenshot:

Cod VBA: Tynnwch destun yn unig o gelloedd sy'n cynnwys rhifau a thestunau

Function OnlyNums(strWord As String)
    Dim strChar As String
    Dim x As Integer
    Dim strTemp As String

    strTemp = ""
    Application.ScreenUpdating = False
    For x = 1 To Len(strWord)
        strChar = Mid(strWord, x, 1)
        If Asc(strChar) >= 48 And _
          Asc(strChar) <= 57 Then
            strTemp = strTemp & strChar
        End If
    Next
    Application.ScreenUpdating = True
    OnlyNums = Val(strTemp)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then Cancel = True
End Sub

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Dewiswch gell wag, nodwch fformiwla = OnlyNums (A2) i mewn i'r Bar Fformiwla, ac yna pwyswch y Rhowch allwedd i gael y canlyniad. Daliwch ati i ddewis y gell canlyniad, llusgwch ei Llenwch Trin i lawr i gael yr holl ganlyniadau. Gweler y screenshot:

Nodyn: Yn y fformiwla. A2 yw'r gell y byddwch chi'n tynnu testunau ac yn cadw rhifau yn unig. Newidiwch ef yn ôl yr angen.

Nawr gallwch weld bod yr holl destunau'n cael eu tynnu a dim ond rhifau sy'n cael eu cadw mewn celloedd penodol.


Tynnwch destun yn hawdd o gelloedd sy'n cynnwys rhifau a thestunau gyda Kutools ar gyfer Excel

Bydd yr adran hon yn argymell y Dileu Cymeriadau cyfleustodau Kutools ar gyfer Excel. Gyda'r cyfleustodau hwn, gallwch chi dynnu pob nod nad yw'n rhifol o gelloedd trwy ddim ond sawl clic, a chadw rhifau mewn celloedd yn unig. Gwnewch fel a ganlyn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch y celloedd sydd eu hangen arnoch i dynnu testunau a chadw rhifau yn unig, yna cliciwch Kutools > Testun > Dileu Cymeriadau

2. Yn y Dileu Cymeriadau blwch deialog, gwiriwch y Heb fod yn rhifol blwch, ac yna cliciwch ar y OK botwm.

Yna tynnir yr holl gymeriadau nad ydynt yn rhifol (testunau) o gelloedd dethol yn syth fel y dangosir isod y screenshot.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthygl gysylltiedig:


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 (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio excel ers blynyddoedd ond nid yw gweithiwr pŵer erioed wedi defnyddio Visual Basic mewn taenlen o'r blaen. Gweithiodd y dull hwn y tro cyntaf yn unig gan ddilyn y cyfarwyddiadau clir uchod ac arbedodd oriau i mi lanhau Dalen a fewnforiwyd. Diolch yn fawr - gwerthfawrogi'n fawr. Lloniannau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo bawb
Ich finde die VBA super und genau das oedd ich für meinen Job benötige. Jedoch eine Frage an euch Spezialisten, wenn ich führende Nullen habe dann funktioniert die VBA bei mir nicht, gibt's da einen Trick damit dies auch geht? Grüße
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rolands,
Mae'n ddrwg gennyf nad wyf yn deall yn iawn beth rydych chi'n ei olygu. Ydych chi am gadw'r sero blaenllaw ar ôl tynnu'r testunau o gelloedd yn unig?
Neu gallwch uwchlwytho sgrinlun o'ch data yma i ddisgrifio'r broblem yn gliriach.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir