Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вырезание ячейки по условию из одной таблицы в другую - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вырезание ячейки по условию из одной таблицы в другую (Формулы/Formulas)
Вырезание ячейки по условию из одной таблицы в другую
aaronn9256162 Дата: Понедельник, 30.08.2021, 16:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Друзья, добрый день
Помогите пожалуйста решить задачу с таблицей:
есть таблица, в которой 3 столбца - артикул, тип изделия и размер.
Нужно по некоторому условию вырезать строки (все три) в новую таблицу. Именно вырезать, не перенести.
Т.е. должно получиться 2 новых таблицы: одна с вырезанными значениями и новая - со вставленными.
Условие: 3 и 4 цифра в артикуле равна 20, 21, 15 или 40.
Прилагаю пример. Заранее спасибо всем неравнодушным. За мной, если что, не заржавеет.
К сообщению приложен файл: 7845652.xlsx(10.7 Kb)
 
Ответить
СообщениеДрузья, добрый день
Помогите пожалуйста решить задачу с таблицей:
есть таблица, в которой 3 столбца - артикул, тип изделия и размер.
Нужно по некоторому условию вырезать строки (все три) в новую таблицу. Именно вырезать, не перенести.
Т.е. должно получиться 2 новых таблицы: одна с вырезанными значениями и новая - со вставленными.
Условие: 3 и 4 цифра в артикуле равна 20, 21, 15 или 40.
Прилагаю пример. Заранее спасибо всем неравнодушным. За мной, если что, не заржавеет.

Автор - aaronn9256162
Дата добавления - 30.08.2021 в 16:11
Nic70y Дата: Понедельник, 30.08.2021, 16:32 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7034
Репутация: 1627 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "a").End(xlUp).Row
    For Each c In Range("a1:a" & u)
        v = Mid(c, 3, 2)
        w = c.Row
        ' 20, 21, 15 или 40
        If v = "20" Or v = "21" Or v = "15" Or v = "40" Then
            Range("a" & w & ":c" & w).Cut Range("d" & w)
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 7845652.xlsm(18.7 Kb)


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u = Cells(Rows.Count, "a").End(xlUp).Row
    For Each c In Range("a1:a" & u)
        v = Mid(c, 3, 2)
        w = c.Row
        ' 20, 21, 15 или 40
        If v = "20" Or v = "21" Or v = "15" Or v = "40" Then
            Range("a" & w & ":c" & w).Cut Range("d" & w)
        End If
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 30.08.2021 в 16:32
aaronn9256162 Дата: Понедельник, 30.08.2021, 16:35 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Nic70y спасибо! так и думал, что придется с макросами)
как проверю - отпишусь
 
Ответить
СообщениеNic70y спасибо! так и думал, что придется с макросами)
как проверю - отпишусь

Автор - aaronn9256162
Дата добавления - 30.08.2021 в 16:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вырезание ячейки по условию из одной таблицы в другую (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!