Как разбить или разбить число на отдельные цифры в 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-дневная гарантия возврата денег.

Больше информации... Скачать бесплатно... Покупка ...

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

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...

Комментарии (12)

Оценок пока нет. Оцените первым!

Reddy

о 6 лет назад

#17395

Этот комментарий был сведен к минимуму модератором на сайте

Привет, Посоветуйте мне формулу для объединения многозначных чисел в однозначные exp: 12345 (внутри одной ячейки) автовычисление до 1 + 2 + 3 + 4 + 5 = 6

Ответить

Priya

о 5 лет назад

#23305

Этот комментарий был сведен к минимуму модератором на сайте

Вариант Явный
'Основная функция
Функция 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 => Семь Ноль Восемь ОШИБКА. Пожалуйста помоги

Ответить

кристалл Priya

о 5 лет назад

#23306

Этот комментарий был сведен к минимуму модератором на сайте

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

Функция 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

Ответить

Report

Йогеш Кумар

о 4 лет назад

#25630

Этот комментарий был сведен к минимуму модератором на сайте

если данные в формате ниже, что делать?
ДДД 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)

Ответить

Джагана

о 4 лет назад

#28094

Этот комментарий был сведен к минимуму модератором на сайте

Окончательный текст: ПОДШИПНИК, ШАРОВОЙ; ТИП: ГЛУБОКИЙ ПАЗ, МАТЕРИАЛ КЛЕТКИ: СТАЛЬ, КОЛИЧЕСТВО РЯДОВ: ОДИНАРНЫЙ, ВНУТРЕННИЙ ДИАМЕТР: 30 ММ, НАРУЖНЫЙ ДИАМЕТР: 72 ММ, ШИРИНА: 19 ММ, ТИП ЗАКРЫТИЯ: ОДИНАРНЫЙ ЭКРАН, НАГРУЗКА: ДИНАМИЧЕСКАЯ: 29.6, СТАТИЧЕСКАЯ: 16 КН, СКОРОСТЬ: 13000 об/мин; ПРОИЗВОДИТЕЛЬ НОМЕР ДЕТАЛИ 63 63 6306 Z SKF

Я хочу найти «63 6306 Z SKF» в окончательном тексте. Может ли кто-нибудь помочь мне?

Ответить

кристалл Джагана

о 3 лет назад

#28095

Этот комментарий был сведен к минимуму модератором на сайте

Привет Джаган,
Окончательный текст, показанный выше, находится в одной ячейке? или не могли бы вы предоставить скриншот вашего примера, показывающий, что вы именно пытаетесь сделать?

Ответить

Report

Викаш Шривастав

о 3 лет назад

#28942

Этот комментарий был сведен к минимуму модератором на сайте

Уважаемые господа,

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

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

ПОЖАЛУЙСТА, МАДАД КИДЖИЕ ОЧЕНЬ ОЧЕНЬ ВАЖНО

Ответить

икрам хан

о 2 лет назад

#32951

Этот комментарий был сведен к минимуму модератором на сайте

9310B82214332A это не хочет проливаться в следующем столбце в этом формате 82214332A что делать

Ответить

Скотт

о 2 лет назад

#34027

Этот комментарий был сведен к минимуму модератором на сайте

Есть ли способ, с помощью которого формула разделения чисел может работать с ячейкой, получающей изменяющиеся данные, чтобы числа разделения автоматически обновлялись при изменении исходной ячейки?

Ответить

Стефан С

О 2 месяцев назад

#41522

Этот комментарий был сведен к минимуму модератором на сайте

Hi

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

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

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

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

С уважением
SS

Ответить

кристалл Стефан С

О 2 месяцев назад

#41565

Этот комментарий был сведен к минимуму модератором на сайте

Привет Стефан С,
Пожалуйста, примените следующую определяемую пользователем функцию, чтобы решить эту проблему.
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

Ответить

Report

Стефан кристалл

О 2 месяцев назад

#41619

Этот комментарий был сведен к минимуму модератором на сайте

Дорогой Кристалл

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

С уважением
SS

Ответить

Здесь еще нет комментариев

Оставляйте свои комментарии

Публикация как гость

Логин

Имя (обязательно)

E-mail (обязательно)

Оценить этот пост:

Сброс

0 Характеристики

Я согласен с условия и сроки