Ugrás a tartalomra

Hogyan távolítsunk el csak szöveget azokból a cellákból, amelyek számokat és szövegeket tartalmaznak az Excel programban?

Amint az alábbi képernyőképen látható, a számokkal és szövegekkel kevert cellák esetében hogyan lehet eltávolítani az összes szöveget és csak számokat tartani a cellákban? A cikkben szereplő módszerek segíthetnek.

Csak azokat a cellákat távolítsa el, amelyek számokat tartalmaznak, és a felhasználó által definiált funkciókat tartalmazó szövegeket
A Kutools for Excel segítségével egyszerűen csak olyan szöveget távolíthat el a cellákból, amelyek számokat és szövegeket tartalmaznak


Csak azokat a cellákat távolítsa el, amelyek számokat tartalmaznak, és a felhasználó által definiált funkciókat tartalmazó szövegeket

Az alábbi Felhasználó által definiált függvény segítségével szövegeket is eltávolíthat a megadott cellákból, és csak számokat tarthat meg.

1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablak. Lásd a képernyőképet:

VBA-kód: Csak a számokat és szövegeket tartalmazó cellákból távolítson el szöveget

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. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

4. Jelöljön ki egy üres cellát, írja be a képletet = OnlyNums (A2) a Formula Bar-ba, majd nyomja meg a belép kulcs az eredmény eléréséhez. Válassza tovább az eredmény cellát, húzza lefelé a kitöltő fogantyút az összes eredmény eléréséhez. Lásd a képernyőképet:

Megjegyzések: A képletben. A2 az a cella, amelyből eltávolítja a szövegeket, és csak számokat fog megtartani. Kérjük, változtassa meg, ha szükséges.

Most láthatja, hogy az összes szöveget eltávolították, és csak a számokat őrizte meg a megadott cellákban.


A Kutools for Excel segítségével egyszerűen csak olyan szöveget távolíthat el a cellákból, amelyek számokat és szövegeket tartalmaznak

Ez a szakasz a következőket ajánlja Karakterek eltávolítása hasznossága Kutools az Excel számára. Ezzel a segédprogrammal egyetlen kattintással eltávolíthatja az összes nem numerikus karaktert a cellákból, és csak a számokat tarthatja a cellákban. Kérjük, tegye a következőket.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki a szövegek eltávolításához szükséges cellákat, és csak a számokat őrizze meg, majd kattintson a gombra Kutools > szöveg > Karakterek eltávolítása

2. Ban,-ben Karakterek eltávolítása párbeszédpanelen csak a Nem numerikus jelölőnégyzetet, majd kattintson a gombra OK gombot.

Ezután minden nem numerikus karaktert (szöveget) azonnal eltávolítunk a kijelölt cellákból, az alábbi képernyőkép szerint.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikk:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (5)
No ratings yet. Be the first to rate!
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