Прескочи на основното съдържание

Как да премахнете само текст от клетки, които съдържат числа и текстове в Excel?

Автор: Силувия Последна промяна: 2020-07-01

Както е показано на екранната снимка по-долу, за тези клетки, смесени с числа и текстове, как да премахнете всички текстове и да запазите само числа в клетките? Методите в тази статия могат да ви помогнат.

Премахнете само текст от клетки, които съдържат числа и текстове с дефинирана от потребителя функция
Лесно премахване само на текст от клетки, които съдържат числа и текстове с Kutools за Excel


Премахнете само текст от клетки, които съдържат числа и текстове с дефинирана от потребителя функция

Можете също да използвате дефинираната от потребителя функция по-долу, за да премахнете текстове от определени клетки и да запазите само числата.

1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в код прозорец. Вижте екранна снимка:

VBA код: Премахнете само текст от клетки, които съдържат числа и текстове

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. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.

4. Изберете празна клетка, въведете формула =Само числа(A2) в лентата с формули и след това натиснете Въведете ключ за получаване на резултата. Продължете да избирате клетката с резултати, плъзнете манипулатора й за попълване надолу, за да получите всички резултати. Вижте екранна снимка:

Забележка: Във формулата. A2 е клетката, в която ще премахнете текстове и ще запазите само числа. Моля, променете го според нуждите си.

Сега можете да видите, че всички текстове са премахнати и само числата се запазват в определени клетки.


Лесно премахване само на текст от клетки, които съдържат числа и текстове с Kutools за Excel

Този раздел ще препоръча Премахване на символи полезност на Kutools за Excel. С тази помощна програма можете да премахнете всички нецифрови знаци от клетките само с няколко щраквания и да запазите само числата в клетките. Моля, направете следното.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. Изберете клетките, от които се нуждаете, за да премахнете текстовете и да запазите само числата, след което щракнете Kutools > Текст > Премахване на символи

2. В Премахване на символи диалогов прозорец, маркирайте само Нечислови и след това щракнете върху OK бутон.

След това всички нецифрови знаци (текстове) се премахват незабавно от избраните клетки, както е показано на екранната снимка по-долу.

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Свързана статия:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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