Перейти до основного матеріалу
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) у рядок формул, а потім натисніть вводити ключ

примітки: У формулі A1 - це клітина з номером, який потрібно розділити на цифри, а C1 - комірка для визначення першої розділеної цифри. Будь ласка, змініть їх, як вам потрібно.

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

3. Тримайте ці клітинки з розділеними цифрами вибраними та перетягуйте ручку заповнення вниз до комірок, поки всі числа не будуть розділені на відокремлені цифри. Дивіться знімок екрана:

Розбийте або розділіть число на окремі цифри за допомогою Kutools for Excel

Згідно з доповіддю Розділені клітини корисність Kutools for Excel допомагає легко розділити всі вибрані числові комірки на окремі цифри одночасно. Будь ласка, виконайте наступне.

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

1. Виділіть комірки з номером, який потрібно розділити на цифри, а потім натисніть Kutools > Злиття та розділення > Розділені клітини. Дивіться знімок екрана:

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 Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (12)
Поки немає оцінок. Оцініть першим!
Reddy
Reddy
Цей коментар був мінімізований модератором на сайті
Привіт, порадьте мені формулу для поєднання багатоцифрового числа в однозначне exp: 12345 (всередині однієї клітинки) автоматично обчислити до 1+2+3+4+5 = 6
відповісти
0
0
Прия
Прия
Цей коментар був мінімізований модератором на сайті
Варіант явний
'Основна функція
Функція NumberToText(ByVal MyNumber)
Смутний граф
Смутний результат
Світло NLength
Кількість = 1
NLength = Len(MyNumber) + 1
Робити, поки Count < NLength
Результат = Результат і одержати цифру (середина (мій номер, кількість, кількість)) і пробіл (1)
Рахунок = Рахунок + 1
Петля
NumberToText = Результат
End Function

Функція GetDigit(Digit)
Виберіть регістр 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 => Сім Нуль Вісім ПОМИЛКА. Будь ласка, допоможіть
відповісти
0
0
кристал
кристал     Прия
Цей коментар був мінімізований модератором на сайті
Шановна Прія,
Наведена нижче функція, визначена користувачем, може допомогти вам.

Функція NumberToText(ByVal xNum)
Dim I As Long
Dim xTemp As Long
Dim xStr як рядок
Результат затемнення як рядок
Для I = 1 до Len(xNum)
xTemp = Середина (xNum, I, 1)
Виберіть Case xTemp
Випадок 1: xStr = "Один"
Випадок 2: xStr = "Два"
Випадок 3: xStr = "Три"
Випадок 4: xStr = "Чотири"
Випадок 5: xStr = "П'ять"
Випадок 6: xStr = "Шість"
Випадок 7: xStr = "Сім"
Випадок 8: xStr = "вісім"
Випадок 9: xStr = "дев'ять"
Інший випадок: xStr = "Нуль"
End Select
Результат = Результат & xStr & пробіл(1)
Далі
NumberToText = Результат
End Function
відповісти
доповідь
0
0
Йогеш Кумар
Йогеш Кумар
Цей коментар був мінімізований модератором на сайті
якщо дані у форматі нижче, що робити?
DDD 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)
відповісти
0
0
Джагана
Джагана
Цей коментар був мінімізований модератором на сайті
Підсумковий текст: ПІДШИПНИК, КУЛЯ; ТИП: ГЛИБКА, МАТЕРІАЛ КЛІТИ: СТАЛЬ, КІЛЬКІСТЬ РЯДКУ: ОДНОКІЛЬНИЙ, ВНУТРІШНІЙ ДІАМЕТР: 30 ММ, ЗОВНІШНІЙ ДІАМЕТР: 72 ММ, ШИРИНА: 19 ММ, ТИП ЗАКРИТТЯ: ОДНІЙ ЗАЩИТНИЙ, НАВАНТАЖЕННЯ: 29.6 DAC. ШВИДКІСТЬ: 16 об/хв; ДЕТАЛЬ ВИРОБНИКА 13000 63 63 Z SKF

Я хочу знайти "63 6306 Z SKF" в остаточному тексті, чи може хтось підказати мені
відповісти
0
0
кристал
кристал     Джагана
Цей коментар був мінімізований модератором на сайті
Привіт Джаган!
Остаточний текст, який ви показали вище, знаходиться в одній клітинці? чи надайте, будь ласка, знімок екрана вашого прикладу, який показує, що саме ви намагаєтеся зробити?
відповісти
доповідь
0
0
Вікаш Шривастав
Вікаш Шривастав
Цей коментар був мінімізований модератором на сайті
Шановні панове,


рахунок немає рахунку Дата Назва сторони Назва елемента Повна кількість
01 01 abc mobile 04


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



ЛАСКА МАДАД КІДЖІЄ ДУЖЕ ДУЖЕ ВАЖЛИВО
відповісти
0
0
Ікрам хан
Ікрам хан
Цей коментар був мінімізований модератором на сайті
9310B82214332A це не хочеться переливати в наступний стовпець у цьому форматі 82214332A що робити
відповісти
0
0
Scott
Scott
Цей коментар був мінімізований модератором на сайті
Чи існує спосіб, щоб формула розділених чисел працювала з коміркою, яка отримує дані, що змінюються, так що розділені числа автоматично оновлюються при зміні вихідної клітинки?
відповісти
0
0
Стефан С
Стефан С
Цей коментар був мінімізований модератором на сайті
Hi

Я хотів би отримати допомогу щодо наступного:

В одній клітинці числа [1,1,1,2,2,3,4,1]

Я хотів би, щоб це число призводило лише до іншої клітинки для ілюстрації [1,2,3,4]

Це також означатиме, що є 0, наприклад, [1,1,0,1,4,2]
Тоді я хотів би, щоб це виглядало як = [1,2,4]

З повагою
SS
відповісти
0
0
кристал
кристал     Стефан С
Цей коментар був мінімізований модератором на сайті
Привіт Стефан С.
Щоб вирішити цю проблему, застосуйте наведену нижче функцію, визначену користувачем.
1. Після додавання наступного коду у вікно модуля (Код).
2. Поверніться на аркуш, виберіть комірку, введіть цю формулу =RemoveDupes2(A1) і натисніть кнопку вводити ключ, щоб отримати результат.
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
відповісти
доповідь
0
0
Стефан
Стефан     кристал
Цей коментар був мінімізований модератором на сайті
Дорогий Кристал

Дякуємо за коментар. Це чудово працює! Ти зірка!

З повагою
SS
відповісти
0
0
There are no comments posted here yet