Как в excel убрать единицы измерения

 

qwertylola

Пользователь

Сообщений: 43
Регистрация: 26.04.2016

в строчках есть ватность(вт) а где то нет, нужно убрать вт из строчки и чтобы структура строчек осталась не изменой, формулами пожалуйста, без power query, заранее благодарю

 

bigorq

Пользователь

Сообщений: 783
Регистрация: 26.04.2018

И Вам здравствуйте

Так =SUBSTITUTE(C3;»Вт»;»»)

 

Юрий М

Модератор

Сообщений: 60581
Регистрация: 14.09.2012

Контакты см. в профиле

#3

01.06.2022 12:33:00

Цитата
qwertylola написал:
Убрать ватность

Ватность — это единица измерения количества ваты? Может разговор про мощность? ))

 

qwertylola

Пользователь

Сообщений: 43
Регистрация: 26.04.2016

#4

01.06.2022 12:43:40

Цитата
написал:

Цитата
qwertylola написал:
Убрать ватность

Ватность — это единица измерения количества ваты? Может разговор про мощность? ))

да, мощность,

 

qwertylola

Пользователь

Сообщений: 43
Регистрация: 26.04.2016

#5

01.06.2022 12:49:42

Цитата
написал:
И Вам здравствуйте

Так  =SUBSTITUTE(C3;»Вт»;»»)

Bigord спасибо, помогло, но мне надо не только вт убрать, а убрать например «(857Вт)»

 

Юрий М

Модератор

Сообщений: 60581
Регистрация: 14.09.2012

Контакты см. в профиле

qwertylola,  у Вас не цитаты, а полные копии сообщений. Зачем?
Запомните: кнопка цитирования не для ответа!

 

Jack Famous

Пользователь

Сообщений: 10848
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

Как из строки удалить числа с их единицами измерения

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

БМВ

Модератор

Сообщений: 21383
Регистрация: 28.12.2016

Excel 2013, 2016

#8

01.06.2022 13:05:45

Цитата
qwertylola написал:
а убрать например «(857Вт)»

=IFERROR(SUBSTITUTE(C3;»(«&TRIM(RIGHT(SUBSTITUTE(LEFT(C3;FIND(«Вт»;C3)+3);»(«;REPT(» «;99));99)););C3)

Изменено: БМВ01.06.2022 13:14:15

По вопросам из тем форума, личку не читаю.

 

qwertylola

Пользователь

Сообщений: 43
Регистрация: 26.04.2016

Извините, если нет, то нет, а есть возможность по русски формулы написать? Если нет, то огромное спасибо

 

БМВ

Модератор

Сообщений: 21383
Регистрация: 28.12.2016

Excel 2013, 2016

https://ru.excel-translator.de/translator/

По вопросам из тем форума, личку не читаю.

 

Ігор Гончаренко

Пользователь

Сообщений: 13746
Регистрация: 01.01.1970

#11

01.06.2022 13:22:19

скопируйте это:

Код
Sub DelWt()
  Dim a, r&, re
  a = Selection
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = " (d+ Вт)"
  For r = 1 To UBound(a)
    If re.test(a(r, 1)) Then a(r, 1) = re.Replace(a(r, 1), "")
  Next
  Selection = a
End Sub

в модуль листа,
отметьте диапазон с данными,
выполните DelWt

Изменено: Ігор Гончаренко01.06.2022 14:12:20

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

_Igor_61

Пользователь

Сообщений: 3007
Регистрация: 18.07.2016

#12

01.06.2022 14:00:50

Off:

Цитата
Ігор Гончаренко написал:
в модуль виста

Программирование придумал тот, кто придумал преферанс :)

 

да опечаточка по Фрейду) попалился

Изменено: Ігор Гончаренко01.06.2022 14:13:44

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

#14

01.06.2022 20:25:34

ТС писал

Цитата
надо не только вт убрать, а убрать например «(857Вт)

тогда

Код
re.Pattern = " (d+ ?Вт)"

Отделяйте числа от единиц измерения

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


Как отделить числа от единиц измерения?

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

Во-первых, найдите первый символ единицы

1. Выберите пустую ячейку для вывода результата.

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

=MAX(ISNUMBER(VALUE(MID(B5,{1,2,3,4,5,6,7,8,9},1)))*{1,2,3,4,5,6,7,8,9})+1

Во-вторых, отделите числа от единиц

1. Выберите пустую ячейку для вывода результата.

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

=VALUE(LEFT(B5,C5-1))

Наконец, получите единицы

1. Выберите пустую ячейку для вывода результата.

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

=TRIM(RIGHT(B5,LEN(B5)-C5+1))

Как работают эти формулы?

=MAX(ISNUMBER(VALUE(MID(B5,{1,2,3,4,5,6,7,8,9},1)))*{1,2,3,4,5,6,7,8,9})+1

  • 1. MID(B5,{1,2,3,4,5,6,7,8,9},1): Функция MID извлекает первые 9 значений в B5 и возвращает результат в виде массива: {«1», «m», «q», «», «», «», «», «», «» };
  • VALUE({«1″,»m»,»q»,»»,»»,»»,»»,»»,»»}): Функция ЗНАЧЕНИЕ преобразует числа в текстовом формате в действительные числа и возвращает результат как {1, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !, # ЗНАЧЕНИЕ !};
  • 2. ISNUMBER({1,#VALUE!, #VALUE!, #VALUE!, #VALUE!, #VALUE!, #VALUE!, #VALUE!, #VALUE!}) *{1,2,3,4,5,6,7,8,9}: Функция ISNUMBER проверяет, есть ли числа в массиве, и возвращает {ИСТИНА, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ, ЛОЖЬ}. Затем этот массив умножает другой массив на 9 чисел и возвращает {1,0,0,0,0,0,0,0,0,};
  • 3. MAX({1,0,0,0,0,0,0,0,0,})+1: И тогда функция MAX получает наибольшее значение «1» в массиве. Это наибольшее значение — позиция последнего числа в B5. Нам нужно добавить 1, чтобы получить позицию первого символа юнита. Здесь результат 1 + 1 = 2.

=VALUE(LEFT(B5,C5-1)):

  • Функция LEFT извлекает 1 (2-1 = 1) символ, начиная с левой стороны B5, и возвращает 1. А затем функция VALUE преобразует это число в текстовом формате в фактическое число.

=TRIM(RIGHT(B5,LEN(B5)-C5+1))

  • 1. LEN(B5): Функция LEN вычисляет общую длину текста B5. Результат — 3;
  • 2. TRIM(RIGHT(B5,2)): Функция ВПРАВО извлекает два символа, начиная с правой стороны B5, и возвращает результат mg. И функция TRIM удалит все пробелы из результата, если между числом и единицей есть пробел.

Примечание. Первая формула в этой статье подходит только для числа, длина которого не превышает 9 символов.


Связанные функции

Функция Excel MAX
Функция Excel MAX возвращает наибольшее значение в наборе значений.

ЕЧИСЛО в Excel
Функция Excel ISNUMBER проверяет, является ли значение числом, и возвращает TRUE или FALSE.

Функция ЗНАЧЕНИЕ в Excel
Функция Excel VALUE помогает преобразовать текстовую строку, представляющую число (например, число, формат даты или времени) в число.

Функция Excel MID
Функция Excel MID используется для поиска и возврата определенного количества символов из середины данной текстовой строки.

Функция ВЛЕВО в Excel
Функция LEFT извлекает указанное количество символов из левой части предоставленной строки. V

Функция Excel TRIM
Функция Excel TRIM удаляет все лишние пробелы из текстовой строки и сохраняет только отдельные пробелы между словами.

Функция Excel ВПРАВО
Функция RIGHT извлекает определенное количество символов из правой части текстовой строки.


Родственные формулы


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

Kutools for Excel — Помогает вам выделиться из толпы

Хотите быстро и качественно выполнять свою повседневную работу? Kutools for Excel предлагает 300 мощных расширенных функций (объединение книг, суммирование по цвету, разделение содержимого ячеек, преобразование даты и т. д.) и экономит для вас 80 % времени.

  • Разработан для 1500 рабочих сценариев, помогает решить 80% проблем с Excel.
  • Уменьшите количество нажатий на клавиатуру и мышь каждый день, избавьтесь от усталости глаз и рук.
  • Станьте экспертом по Excel за 3 минуты. Больше не нужно запоминать какие-либо болезненные формулы и коды VBA.
  • 30-дневная неограниченная бесплатная пробная версия. 60-дневная гарантия возврата денег. Бесплатное обновление и поддержка 2 года.

Лента Excel (с Kutools for Excel установлены)


Вкладка Office — включение чтения и редактирования с вкладками в Microsoft Office (включая Excel)

  • Одна секунда для переключения между десятками открытых документов!
  • Уменьшите количество щелчков мышью на сотни каждый день, попрощайтесь с рукой мыши.
  • Повышает вашу продуктивность на 50% при просмотре и редактировании нескольких документов.
  • Добавляет эффективные вкладки в Office (включая Excel), точно так же, как Chrome, Firefox и новый Internet Explorer.

Снимок экрана Excel (с установленной вкладкой Office)

Excel для Microsoft 365 для Mac Excel 2021 для Mac Excel 2019 для Mac Excel 2016 для Mac Excel для Mac 2011 Еще…Меньше

Для определения ширины столбцов, высоты строк, а также делений горизонтальной и вертикальной линеек листа в Excel для Mac используются стандартные единицы измерения, такие как сантиметры или пиксели.

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

Примечание: Если на листе не отображаются линейки, в меню Вид выберите пункт Разметка страницы и щелкните Линейка.

  1. В меню Excel выберите пункт Параметры.

  2. В разделе Разработка выберите пункт Общие  Значок "Общее" в параметрах Outlook..

  3. В меню Единицы на линейке выберите требуемую единицу измерения.

    Совет: Ширину столбцов можно также измерять, перетаскивая разделитель столбца по листу и просматривая при этом всплывающие подсказки.

Нужна дополнительная помощь?

Удаление лишних значений с ячейки

reventon9

Дата: Четверг, 11.08.2016, 07:36 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32


Репутация:

0

±

Замечаний:
40% ±


Excel 2013

Здравствуйте!

Помогите, пожалуйста, удалить(с помощью макроса) лишние значения(цифры) из ячейки.

Данные для удаления выделены красным.

Заранее спасибо…

К сообщению приложен файл:

7873162.xlsx
(10.7 Kb)

 

Ответить

KuklP

Дата: Четверг, 11.08.2016, 08:40 |
Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369


Репутация:

486

±

Замечаний:
0% ±


2003-2010

[vba]

Код

Public Sub www(): [f:f].Replace Chr(10) & «*», «», xlPart: End Sub

[/vba]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

 

Ответить

reventon9

Дата: Четверг, 11.08.2016, 09:04 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32


Репутация:

0

±

Замечаний:
40% ±


Excel 2013

Спасибо!

 

Ответить

reventon9

Дата: Пятница, 12.08.2016, 08:36 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 32


Репутация:

0

±

Замечаний:
40% ±


Excel 2013

Подскажите, пожалуйста, еще аналогичные макросы…. в этом же файле
Файл приложил, описание внутри, что нужно удалить выделил…

Заранее спасибо

К сообщению приложен файл:

6494818.xlsx
(11.7 Kb)

 

Ответить

Karataev

Дата: Воскресенье, 14.08.2016, 10:16 |
Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 1330


Репутация:

528

±

Замечаний:
0% ±


Excel

Макрос удаляет:
1) в столбце «D» текст, который начинается с новой строки и строка начинается скобкой «(«
2) в столбце «D» текст, который начинается с новой строки и строка начинается русскими символами «НР»
3) в столбце «F» весь текст, который начинается с новой строки

Что касается удаления после единиц измерения, то здесь нельзя предсказать, в каком виде будет единица измерения, поэтому нельзя, не видя всех возможных случаев, сделать код. Если опираться на файл пример из поста 4, то можно сделать макрос, который будет удалять весь текст после 2-го пробела. Но если ед измерения будет включать два пробела, то будет удалено нужное.

[vba]

Код

Sub Макрос()
    Columns(«D»).Replace What:=Chr(10) & «(*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(«D»).Replace What:=Chr(10) & «НР*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(«F»).Replace What:=Chr(10) & «*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[/vba]


Киви-кошелек: 9166309108

Сообщение отредактировал KarataevВоскресенье, 14.08.2016, 13:34

 

Ответить

reventon9

Дата: Воскресенье, 14.08.2016, 10:57 |
Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 32


Репутация:

0

±

Замечаний:
40% ±


Excel 2013

Спасибо!

По столбику Е, где единицы измерения, подскажите, пожалуйста, тогда макрос: удалять после 2-го пробела…

 

Ответить

Karataev

Дата: Воскресенье, 14.08.2016, 11:11 |
Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 1330


Репутация:

528

±

Замечаний:
0% ±


Excel

[vba]

Код

Sub Макрос()

    Dim arr(), spl, lr As Long, i As Long

    Application.ScreenUpdating = False

    Columns(«D»).Replace What:=Chr(10) & «(*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(«D»).Replace What:=Chr(10) & «НР*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns(«F»).Replace What:=Chr(10) & «*», Replacement:=»», LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

            lr = Columns(«E»).Find(What:=»*», LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arr() = Range(«E4:E» & lr).Value
    For i = 1 To UBound(arr)
        spl = Split(arr(i, 1), » «)
        If UBound(spl) > 0 Then
            arr(i, 1) = spl(0) & » » & spl(1)
        End If
    Next
    Range(«E4»).Resize(UBound(arr)).Value = arr()

            Application.ScreenUpdating = True

    End Sub

[/vba]


Киви-кошелек: 9166309108

 

Ответить

reventon9

Дата: Воскресенье, 14.08.2016, 11:33 |
Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 32


Репутация:

0

±

Замечаний:
40% ±


Excel 2013

Спасибо!!!

 

Ответить

Состав окна и настройка программы Excel 2007
02.12.2010 18916

Как настроить единицы измерения линейки?

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

  1. В верхнем левом углу окна программы щелкните по кнопке «Office».
  2. В меню типичных задач выберите пункт «Параметры Excel».
  3. В окне «Параметры Excel» на вкладке «Дополнительно» в группе «Экран» раскройте список в графе «Единицы на линейке» и щелкните на нужном значении (рис. 1.25).
  4. Закройте окно кнопкой «ОК».

Рис. 1.25. Окно «Параметры Excel». Список графы «Единицы на линейке»

Рис. 1.25. Окно «Параметры Excel». Список графы «Единицы на линейке»

Понравилась статья? Поделить с друзьями:
  • Как в excel убрать дубли одном столбце
  • Как в excel убрать дробную часть числа
  • Как в excel убрать границы печати в excel
  • Как в excel убрать гиперссылку на почту
  • Как в excel убрать гиперссылки у всего столбца