Разделить числа из строк в Excel

В процессе работы с Excel я сталкивался с некоторыми случаями, когда требовалось разделять только дробь в заданной строке, теперь в этом посте рассказывается, как это сделать. В следующей статье подробно рассказывается, как отделить числа от заданной строки в Excel.

Разделять числа можно двумя способами:

— Случай 1: отделить числа от ряда и получить положительные значения.

— Случай 2: отделяйте числа от ряда и принимайте как положительные, так и отрицательные значения.

1. Отделите числа от ряда и получите положительные значения.

Шаг 1: Откройте файл Excel для разложения -> Нажмите комбинацию клавиш Alt + F11 -> появится окно VBA -> Перейдите на вкладку Вставка -> Модуль.

Изображение 1: разделение чисел из строк в Excel

Шаг 2: В командной строке введите следующий код:

Изображение 2: разделение чисел из строк в Excel

Функция ExtractNumber (rCell As Range) Dim lCount As Long Dim sText As String Dim lNum As String sText = rCell For lCount = Len (sText) To 1 Step -1 If IsNumeric (Mid (sText, lCount, 1)) Then lNum = Mid (sText, lCount, 1) & lNum End If Next lCount ExtractNumber = CLng (lNum) Конец функции

Примечание: Запомните это имя функции, потому что при возврате в файл Excel необходимо его использовать.

Шаг 3: После импорта нажмите Сохранить (поскольку он содержит макрос, при сохранении отобразите окно сообщения, выберите ОК) -> Вернуться в файл Excel, чтобы найти функцию, как показано:

Изображение 3: разделение чисел из строк в Excel

Шаг 4. Скопируйте формулу для оставшихся ячеек со следующими результатами:

Изображение 4: разделение чисел из строк в Excel

2. Отделите числа от строки и примите как положительные, так и отрицательные значения.

Шаг 1: Откройте файл Excel для разложения -> Нажмите комбинацию клавиш Alt + F11 -> появится окно VBA -> Перейдите на вкладку Вставка -> Модуль.

Изображение 5: разделение чисел из строк в Excel

Шаг 2: В командной строке введите следующий код:

Рисунок 6: разделение чисел из строк в Excel

Частная функция SuperTrim (TheStr As String) Dim Temp As String, DoubleSpase As String DoubleSpase = Chr (32) & Chr (32) Temp = Trim (TheStr) Temp = Replace (Temp, DoubleSpase, Chr (32)) Do до InStr ( Temp, DoubleSpase) = 0 Temp = Replace (Temp, DoubleSpase, Chr (32)) Loop SuperTrim = Temp End Function Открытая функция Tach_So (strText As String) Dim strText_1 As String Dim subText () As String, so () As Double Dim i как целое число, j как целое число, k как целое число, m как целое число strText = SuperTrim (strText) subText = Split (strText, «») For i = 0 To UBound (subText) For j = 1 To Len (subText (i) ) k = 0 Если IsNumeric (Mid (subText (i), j, 1)) _ Or (Mid (subText (i), j, 1) = «-» И IsNumeric (Mid (subText (i), j + 1 , 1))) Then k = j Exit For End If Next j If k 0 Then m = m + 1 strText_1 = Val (Mid (subText (i), k)) ReDim Preserve so (1 To m) As Double so ( m) = strText_1 End If Next i If index> 0 And index

Примечание: Запомните название функции «» Tach_so () «.

Шаг 3: Нажмите «Сохранить», просто нажмите «ОК». Вернитесь в файл Excel и выберите функцию Tach_so (), как показано:

Изображение 7: разделение чисел из строк в Excel

Шаг 4: функция Tach_so () имеет только один параметр — количество ячеек для разделения.

Рисунок 8: разделение чисел из строк в Excel

Шаг 5: Скопируйте формулу для оставшихся ячеек, у нас есть результаты:

Изображение 9: разделение чисел из строк в Excel

Таким образом разделяются положительные и отрицательные значения. И знак минус в первой позиции ячейки получается.

Примечание: Вышеупомянутые функции применимы только к последовательностям, которые содержат 1 строку последовательных чисел. Если данные представляют собой серию различных числовых символов, разделенных буквенными символами, возвращаемое значение — первая числовая строка.

Удачи!

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован.