Код |
---|
Sub Макрос1() For Each cell In Range("B2:B6") If Len(cell) = 5 Then cell.Offset(, 1) = cell cell.Offset(, 1).NumberFormat = "#-##-##" ElseIf Len(cell) = 10 Then cell.Offset(, 1) = cell cell.Offset(, 1).NumberFormat = "+7(###)###-##-##" End If Next End Sub |
Макрос изменения формата данных в ячейке
Выгрузка данных из Excel в несколько txt-файлов.
8 Дек 2019 21:21:42
jeka-irbis,
Я в теме "Проверка и формирование уникальных значений ячеек столбца таблицы" добавил вариант с формулой, вы видели? |
|
|
Разбить столбец на несколько при разных разделителях
8 Дек 2019 20:49:17
ЛегкийГолод,
Заполните полностью столбец В на листе "список городов" |
|
|
Как правильно поместить данные в массив?, ошибка "Требуется объект". Как можно исправить?
Разбить столбец на несколько при разных разделителях
8 Дек 2019 14:14:58
ЛегкийГолод,
Если вы сделали на листе Список городов столбец с заменой, то попробуйте макрос
|
|||
|
Разбить столбец на несколько при разных разделителях
Разбить столбец на несколько при разных разделителях
8 Дек 2019 12:51:08
Михаил Витальевич С.,
А как быть с Санкт-Петербург и другими аналогичными городами? |
|
|
Сортировка внутри таблицы без разбивки объединения
8 Дек 2019 11:58:01
outsider_cmp,
Видимо в макросе надо исключить лист Основа из цикла обработки |
|
|
Выполнить фильтрацию записей с помощью расширенного фильтра
8 Дек 2019 00:18:25
denDELOVOI,
Ищете книгу Применение VBA и Макросов_в_Microsoft_Excel_Билл_Джелен_2006г , ну или более позние издания Там изучаете главу 11 Анализ данных с помощью расширенного фильтра |
|
|
Разбивка многострочных ячеек на строки
7 Дек 2019 22:32:42
MMAXX95,
На Лист1 удалите строки с Образец и ниже
|
|||
|
Проверка и формирование уникальных значений ячеек столбца таблицы
7 Дек 2019 19:43:15
В ячейку В2 формулу =СЧЁТЕСЛИ($A$2:A2;A2) и тянем вниз В ячейку С2 формулу =ЕСЛИ(B2=1;A2;A2&"-0"&(B2-1)) и тянем вниз Или можно так =ЕСЛИ(СЧЁТЕСЛИ($A$2:A2;A2)=1;A2;A2&"-0"&(СЧЁТЕСЛИ($A$2:A2;A2)-1))
Изменено: |
|||
|
Упорядочивание по цифрам в ячейке с текстом
Проверка и формирование уникальных значений ячеек столбца таблицы
VBA Повторить каждую строку нужное кол-во раз
VBA Повторить каждую строку нужное кол-во раз
Проверка и формирование уникальных значений ячеек столбца таблицы
Проверка и формирование уникальных значений ячеек столбца таблицы
7 Дек 2019 17:16:53
|
|||||
|
Отобразить в ячейке номера всех участков при совпадении даты и инвентарного номера
Отобразить в ячейке номера всех участков при совпадении даты и инвентарного номера
Автоматические формулы подсчёта отфильтрованных данных
Как в макросе определить, какой тип переменной должен быть?
6 Дек 2019 21:55:06
suricat555,
Посмотрите в теме Там есть создание отдельных листов по критерию. Удачи! |
|
|
Отобразить в ячейке номера всех участков при совпадении даты и инвентарного номера
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Копирование без формата ячеек при сборе данных с листов книги, модификация макроса из Приема "Сборка данных со всех листов книги в одну таблицу"
Замена разного текста из разных ячеек.
Замена разного текста из разных ячеек.
Нарезка таблицы на отдельные книги (макрос в книге с исходной таблицей)
6 Дек 2019 13:51:10
Разбираться в чужом коде нет желания. Посмотрите макрос, который режет вашу таблицу на отдельные листы.
|
|||||
|
Поиск и замена по маске, Есть артикулы в тексте, нужно найти их по маске и заключить в скобки
Поиск и замена по маске, Есть артикулы в тексте, нужно найти их по маске и заключить в скобки