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

Как разбить или разбить число на отдельные цифры в Excel?

Предположим, вам нужно разбить номер на отдельные цифры, как показано на скриншоте ниже, что вы можете сделать для этого? Эта статья предоставит вам два метода.

Разбейте или разделите номер на отдельные цифры с помощью формулы
Разбейте или разделите номер на отдельные цифры с помощью Kutools for Excel


Разбейте или разделите номер на отдельные цифры с помощью формулы

В этом разделе будет показана формула для разделения выбранных числовых ячеек на отдельные цифры в Excel.

1. Выберите пустую ячейку (говорит ячейка C1), чтобы найти первую разделенную цифру числа в ячейке A1, затем введите формулу = MID ($ A1; COLUMN () - (COLUMN ($ C1) - 1); 1) в строку формул, а затем нажмите Enter .

Внимание: В формуле A1 - это ячейка с номером, который нужно разделить на цифры, а C1 - это ячейка для определения первой разделенной цифры. Пожалуйста, измените их по своему усмотрению.

2. Продолжайте выбирать ячейку C1, затем перетащите маркер заполнения в правые ячейки, пока все цифры ячейки A1 не будут разделены.

3. Не снимая выделения с этих ячеек с разделенными цифрами, перетащите маркер заполнения вниз к ячейкам, пока все числа не будут разделены на отдельные цифры. Смотрите скриншот:


Разбейте или разделите номер на отдельные цифры с помощью Kutools for Excel

Компания Разделить клетки полезности Kutools for Excel помогает легко разделить все выбранные числовые ячейки на отдельные цифры сразу. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выделите ячейки с номерами, которые нужно разбить на цифры, затем нажмите Кутулс > Слияние и разделение > Разделить клетки. Смотрите скриншот:

2. в Разделить клетки диалоговое окно, выберите Разделить на столбцы вариант в Тип и в разделе Указать разделитель выберите Указать ширину и введите число 1 в текстовое поле. Щелкните значок OK кнопку.

3. В следующем всплывающем окне Разделить клетки диалоговом окне укажите пустую ячейку для поиска первой цифры разделения, а затем щелкните OK кнопку.

После нажатия OK Кнопка, все числа в выбранных ячейках сразу же разбиваются на отдельные цифры, как показано на скриншоте ниже.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Разбейте или разделите номер на отдельные цифры с помощью Kutools for Excel


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (12)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Посоветуйте мне формулу для объединения многозначных чисел в однозначные exp: 12345 (внутри одной ячейки) автовычисление до 1 + 2 + 3 + 4 + 5 = 6
Этот комментарий был сведен к минимуму модератором на сайте
Вариант Явный
'Основная функция
Функция NumberToText (ByVal MyNumber)
Тусклый счет
Тусклый результат
Дим NДлина
Count = 1
NДлина = Длина (МойЧисло) + 1
Делать, пока считает < NLength
Результат = Результат и GetDigit(Mid(MyNumber, Count, Count)) & Space(1)
Count = Count + 1
Петля
ЧислоТекст = Результат
End Function

Функция GetDigit(Цифра)
Выберите регистр Val (цифра)
Случай 1: GetDigit = "Один"
Случай 2: GetDigit = "Два"
Случай 3: GetDigit = "Три"
Случай 4: GetDigit = "Четыре"
Случай 5: GetDigit = "Пять"
Случай 6: GetDigit = "Шесть"
Случай 7: GetDigit = "Семь"
Случай 8: GetDigit = "Восемь"
Случай 9: GetDigit = "Девять"
Другой случай: GetDigit = "Ноль"
End Select
End Function


Я пытаюсь преобразовать цифры в слова для подготовки оценочного листа. Например: 63 => Шесть Три, но это не работает с 3-значным числом Например: 798 => Семь Ноль Восемь ОШИБКА. Пожалуйста помоги
Этот комментарий был сведен к минимуму модератором на сайте
Дорогая Прия,
Вам может помочь следующая определяемая пользователем функция.

Функция NumberToText (ByVal xNum)
Дим я пока
Dim xTemp As Long
Dim xStr как строка
Затемнить результат как строку
Для I = 1 To Len(xNum)
xTemp = Mid(xNum, I, 1)
Выберите корпус xTemp
Случай 1: xStr = "Один"
Случай 2: xStr = "Два"
Случай 3: xStr = "Три"
Случай 4: xStr = "Четыре"
Случай 5: xStr = "Пять"
Случай 6: xStr = "Шесть"
Случай 7: xStr = "Семь"
Случай 8: xStr = "Восемь"
Случай 9: xStr = "Девять"
Другой случай: xStr = "Ноль"
End Select
Результат = Результат и xStr и пробел (1)
Далее
ЧислоТекст = Результат
End Function
Этот комментарий был сведен к минимуму модератором на сайте
если данные в формате ниже, что делать?
ДДД 1 2 3 4 5 6 7 8 9 10 11 12 13 14
1,2,3,5,15,12,11
12,10,13,11,5,2,4
1,5,7,4


Нужен номер от 1-й ячейки до номера заголовка ниже (т.е. если у нас есть 1,5,11, то ответ помещается в ячейку ниже 1,5,11)
Этот комментарий был сведен к минимуму модератором на сайте
Окончательный текст: ПОДШИПНИК, ШАРОВОЙ; ТИП: ГЛУБОКИЙ ПАЗ, МАТЕРИАЛ КЛЕТКИ: СТАЛЬ, КОЛИЧЕСТВО РЯДОВ: ОДИНАРНЫЙ, ВНУТРЕННИЙ ДИАМЕТР: 30 ММ, НАРУЖНЫЙ ДИАМЕТР: 72 ММ, ШИРИНА: 19 ММ, ТИП ЗАКРЫТИЯ: ОДИНАРНЫЙ ЭКРАН, НАГРУЗКА: ДИНАМИЧЕСКАЯ: 29.6, СТАТИЧЕСКАЯ: 16 КН, СКОРОСТЬ: 13000 об/мин; ПРОИЗВОДИТЕЛЬ НОМЕР ДЕТАЛИ 63 63 6306 Z SKF

Я хочу найти «63 6306 Z SKF» в окончательном тексте. Может ли кто-нибудь помочь мне?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Джаган,
Окончательный текст, показанный выше, находится в одной ячейке? или не могли бы вы предоставить скриншот вашего примера, показывающий, что вы именно пытаетесь сделать?
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемые господа,


счет № счета Дата Название партии Наименование товара Фактическое количество
01 01-04-2019 абв мобайл 20


ИСКО ДВАДЦАТЫЕ РЯД МЕНЯ ЛАНА ХАЙ



ПОЖАЛУЙСТА, МАДАД КИДЖИЕ ОЧЕНЬ ОЧЕНЬ ВАЖНО
Этот комментарий был сведен к минимуму модератором на сайте
9310B82214332A это не хочет проливаться в следующем столбце в этом формате 82214332A что делать
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ, с помощью которого формула разделения чисел может работать с ячейкой, получающей изменяющиеся данные, чтобы числа разделения автоматически обновлялись при изменении исходной ячейки?
Этот комментарий был сведен к минимуму модератором на сайте
Hi

Я хотел бы получить помощь в следующем:

В одной ячейке числа [1,1,1,2,2,3,4,1]

Я хотел бы, чтобы это число приводило только к другой ячейке, чтобы проиллюстрировать [1,2,3,4]

Это также означает, что если есть 0, например, [1,1,0,1,4,2]
Тогда я хотел бы, чтобы это выглядело как = [1,2,4]

С уважением
SS
Этот комментарий был сведен к минимуму модератором на сайте
Привет Стефан С,
Пожалуйста, примените следующую определяемую пользователем функцию, чтобы решить эту проблему.
1. После добавления следующего кода в окно Module (Code).
2. Вернитесь на рабочий лист, выберите ячейку, введите эту формулу =Удалить дубликаты2(A1) и нажмите Enter ключ для получения результата.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/digits.png
Function RemoveDupes2(txt As String, Optional delim As String = ",") As String
    Dim x
    Dim arr()
    'Updateby Extendoffice 20221128
    Application.Volatile
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .Exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Exists("0") Then .Remove ("0")
        If .Count > 0 Then
            xCount = .Count
            ReDim arr(1 To xCount)
            i = 1
            For Each Key In .Keys
                arr(i) = Key
                i = i + 1
            Next

            For i = 1 To xCount - 1
                For j = i + 1 To xCount
                If arr(i) > arr(j) Then
                        temp = arr(i)
                        arr(i) = arr(j)
                        arr(j) = temp
                    End If
                Next j
            Next i

            RemoveDupes2 = Join(arr, delim)
        End If
    End With
End Function
Этот комментарий был сведен к минимуму модератором на сайте
Дорогой Кристалл

Спасибо за ваш комментарий. Это прекрасно работает! Ты звезда!

С уважением
SS
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL