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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вырезание ячейки по условию из одной таблицы в другую (Формулы/Formulas)

aaronn9256162

Дата: Понедельник, 30.08.2021, 16:11 | Сообщение № 1

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

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

Сообщений: 16

Репутация: 0 ±

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

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

К сообщению приложен файл: 7845652.xlsx (10.7 Kb)

Ответить

Nic70y

Дата: Понедельник, 30.08.2021, 16:32 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

Репутация: 2415 ±

Замечаний: 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

Ответить

aaronn9256162

Дата: Понедельник, 30.08.2021, 16:35 | Сообщение № 3

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

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

Сообщений: 16

Репутация: 0 ±

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

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

Ответить

Вырезание ячейки по условию из одной таблицы в другую (Формулы/Formulas)

Страница 1 из 1
1