Hogyan lehet eltávolítani a nem numerikus karaktereket az Excel celláiból?
Tegyük fel, hogy van munkalapja sok ilyen adattal ABCD4578124YUIOH, és csak a nem numerikus karaktereket szeretné eltávolítani ABCDYUIOH de a numerikus karaktereket tartsa cellákban. Természetesen ezeket a karaktereket egyenként eltávolíthatja, de itt gyorsan megszabadulhat a cellák nem numerikus karaktereitől az alábbiak szerint:
Távolítsa el a nem numerikus karaktereket VBA kóddal
Hasznos eszköz a nem numerikus karakterek egyetlen kattintással történő eltávolítására
Távolítsa el a nem numerikus karaktereket VBA kóddal
Ha nem numerikus karaktereket szeretne eltávolítani a VBA kóddal ellátott tartományból, tegye a következőket:
1. Kattints Fejlesztő > Visual Basic megnyitni Microsoft Visual Basic alkalmazásokhoz ablak. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, majd másolja és illessze be a következő kódokat a modulba:
VBA: Távolítson el minden nem numerikus karaktert
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 Sub2. Ezután kattintson a 
gombot a kód futtatásához, A felbukkanó ablakban KutoolsforExcel párbeszédpanelen jelöljön ki egy tartományt az eltávolítani kívánt nem numerikus karakterekkel, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
3. Ezután a kiválasztott tartomány összes nem numerikus karakterét eltávolítja.
Ha a számok tizedespontosak, akkor a következő VBA-t használhatja:
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
Az eredményeket az alábbi képernyőképen láthatja:
Hasznos eszköz a nem numerikus karakterek egyetlen kattintással történő eltávolítására
A nem numerikus karakterek eltávolításához egy tartományban Kutools az Excel számára'S Karakterek eltávolítása segédprogram egy kattintással elvégezheti.
| Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye az alábbiak szerint:
1. Jelölje ki a nem numerikus karakterek eltávolítani kívánt tartományát. Kattintson a gombra Kutools > szöveg > Karakterek eltávolítása.
2. Az Karakterek eltávolítása párbeszédpanelen ellenőrizze a Nem numerikus lehetőség a Karakterek eltávolítása szakaszra, majd kattintson a gombra OK or alkalmaz gomb. És a nem numerikus karaktereket azonnal eltávolítja a kijelölésből. Lásd a képernyőképet:
Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!
Részletesebb információk a Karakterek eltávolítása a Kutools for Excel programban, kérjük, látogassa meg Távolítsa el a karakterek jellemzőinek leírását.
Bemutató: Távolítson el numerikus, alfabetikus, nem nyomtatható vagy alfanumerikus karaktereket a cellákból
Kapcsolódó cikkek:
- Távolítsa el az alfa karaktereket a cellákból
- Távolítsa el a numerikus karaktereket a cellákból
- Távolítsa el a nem nyomtatható karaktereket a cellákból
- Távolítsa el a nem alfa karaktereket a cellákból
- Távolítsa el a nem alfanumerikus karaktereket
A legjobb irodai hatékonyságnövelő eszközök
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...
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!
