Skip i'r prif gynnwys

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 unig 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 unig 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:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The issue I encountered was the slowdown of my Excel upon opening.
This comment was minimized by the moderator on the site
Bonjour,

Si on veut conserver les virgules avec les chiffres, comment peut-on faire? Merci pour votre réponse
This comment was minimized by the moderator on the site
Hi Enzo,

Sorry I don't quite understand your question. For clarity, please attach a sample file or a screenshot with your data and desired results.
This comment was minimized by the moderator on the site
Hallo, zusammen
Ich finde die VBA super und genau das was 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
This comment was minimized by the moderator on the site
Hi Rolands,
Sorry I don't quite understand what you mean. Do you want to keep the leading zeros after removing only the texts from cells?
Or you can upload a screenshot of your data here to describe the problem more clearly.
This comment was minimized by the moderator on the site
I have used excel for years but not a power worker never used Visual Basic in a spreadsheet before. This method worked absolutely first time just following the clear instructions above and saved me hours cleaning up an imported Sheet. Many thanks - much appreciated. Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations