Перенос всех строк с заданным условием на другой лист

@testpa · Регистрация: 30.06.2016

Author24 — интернет-сервис помощи студентам

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

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

К примеру, у меня есть набор данных, из которых я хочу вычленить только те, где значение столбца URL = *instagram.com и перенести на другой лист вместе со всеми другими параметрами.

Читала много тем на форуме, но никак не могу провести параллели со своей задачей.

Очень буду рада помощи! Спасибо.

тест.xlsx

Fairuza · 30.06.2016, 21:25

Расширенный фильтр посмотрите

@testpa · 30.06.2016, 21:32 **[ТС]**

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

Пол дня сегодня промучилась над этим вопросом( Голова уже не соображает.

Если в примере я привела двадцать строк, то по работе я имею дело с массивом в несколько тысяч.

Мальчик занимавшийся макросами уволился, а на меня всех собак повесили.
Если кто может объяснить доходчиво, я попробую написать сама, но за что хвататься - не знаю!

Fairuza · 30.06.2016, 22:02

testpa, скопируйте на этот же лист, потом перенесете на другой лист

@pashulka · 30.06.2016, 22:13

testpa, Если перед тем, как вызвать диалоговое окно Расширенный фильтр, Вы активируете рабочий лист, куда необходимо скопировать все отфильтрованные данные, то всё сработает. А если захотите немного упростить себе жизнь, то в аттаче сможете найти пример с тем же расширенным фильтром.

@testpa · 30.06.2016, 22:28 **[ТС]**

Огромное спасибо! Все работает!!! Даже с кнопочкой

Но как вы это сделали?? Я вас очень прошу, объясните мне поэтапно, если после рабочего дня на это остались силы и терпение. Я не могу тупо пользоваться уже готовым( Если задача поменяется и нужно будет менять какие-то условия, то сяду в лужу. Хочется понять принцип работы, чтобы самой в дальнейшем решать. Нужно головой не только кушать)

Тысячи благодарностей вам)

@pashulka · 30.06.2016, 22:44

Собственно, я просто использовал расширенный фильтр, только программно. Единственный нюанс - исходный диапазон, там определяется как текущая область вокруг ячейки Упоминания!B3

@testpa · 30.06.2016, 23:19 **[ТС]**

pashulka, Спасибо))) Сначала начала злиться, что не могу понять, а потом нашла другое видео, где показали на пальцах и теперь довольна)) В любом случае, вы мой герой на сегодня.

Добавлено через 9 минут
pashulka, и последнее) Скажите, а можно вот этот уже готовый фильтр превратить в макрос (и сделать для него такую же красивую кнопочку, как у вас).

@pashulka · 30.06.2016, 23:39

Не видео, а просто полезные статьи :

Создание и удаление макросов

Добавление на лист кнопки и назначение ей макроса

@alyaska213 · 07.06.2020, 01:01

Доброго времени суток, Уважаемые знатоки!
У меня похожая ситуация, только можно подправить таким образом, чтобы копировалась не вся строка, а только именно эти столбцы.
Заранее спасибо!

@pashulka · 07.06.2020, 08:26

alyaska213, Если столбец, где находятся критерии отбора, является частью 'именно этих' столбцов, то указывайте конкретно их. А если речь идёт о несмежных столбцах, то копируете все столбцы и удаляете ненужные.

Или говорите более предметно, файл с абстрактными данными (в виде .xls/.xlsx, не картинки) в виде нескольких десятков строк. И что нужно копировать, по какому принципу(критерию). И не помешает сказать, сколько в реальности строк.

@alyaska213 · 07.06.2020, 11:48

Я в качестве примера за основу взял данные девушки, которая выше писала, т.к. вся база на работе осталась.
Но учел количество столбцов.

В файле лист "Данные" строк будет не более 1500. По столбцу, выделенной красной заливкой, будет происходить фильтрование, по аналогии с сообщениями девушки выше (vk.com, facebook.com, и т.д.)

В листе "Выборка" - готовый вид отфильтрованных значений.

@pashulka · 07.06.2020, 13:43

В файле нет переноса только избранных столбцов.
А чтобы избежать очистки данных лишних столбцов, достаточно явно указать столбцы, т.е. вместо
wsSheet2.[A5].CurrentRegion.Clear написать что-то вроде wsSheet2.Range("A5:H" & Rows.Count).Clear

или wsSheet2.Range("A5:H" & wsSheet2.Rows.Count).Clear если в момент выполнения макроса - активным может быть лист, не имеющий ячеек, например, лист диаграммы

@alyaska213 · 07.06.2020, 21:02

pashulka, Превосходно и Волшебно!

Я прошу прощения за столь яркие эмоции, просто сам только буквально вчера начал изучать макросы.

Огромнейшее спасибо!!!

С Днем Святой Троицы!

@teacher6 · 14.11.2020, 18:22

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

Я методом тыка и многих чтений сделала такую же таблицу, вот только в моем списке поиск по Фамилии учеников
Подскажите пожалуйста, а можно дописать какую-то команду, чтобы искалось не совпадение в ячейке, а точное значение.
Потому что есть, к примеру Сорокин, а есть СорокинА.
И в поля, связанных с Сорокин, происходит непонятные вычисления.

Буду признательна.

@Narimanych · 14.11.2020, 18:25

teacher6,
Прикрепите файл- пример ...
Покажите в нем исходные данные ( 3-4 строки) и что хотите получить...

@Narimanych · 14.11.2020, 23:52

teacher6,

Если используете файл Паши, то уберите звездочки (*) перед словом и после него

@teacher6 · 23.11.2020, 08:54

Здравствуйте еще раз!
Прошу прощения, времени не было для дальнейшего познания.
Да, этот файл использую, вместо ссылок в примере фамилии. Так вот при однокоренном совпадении, все равно получается весь список.

@Narimanych · 23.11.2020, 10:42

teacher6,
Для вашего файла:

Visual Basic

Sub MMM()
With Worksheets("Óïîìèíàíèÿ")
        Set R1 = Range(.Cells(4, 2), .Cells(.Cells(Rows.Count, 4).End(xlUp).Row, 9))
        ARR1 = R1.Value
End With
M = 1
With Worksheets("Ðåçóëüòàò")
ReDim ARR2(1 To UBound(ARR1), 1 To UBound(ARR1, 2))
 SS = .Cells(2, 1).Value
        For i = 1 To UBound(ARR1)
            If ARR1(i, 3) = SS Then
              For j = 1 To UBound(ARR1, 2)
                ARR2(M, j) = ARR1(i, j)
              Next
              M = M + 1
        End If
        Next
Range(.Cells(6, 1), .Cells(200, 8)).ClearContents
  .Cells(6, 1).Resize(UBound(ARR2), UBound(ARR2, 2)).Value = ARR2
        
End With
End Sub

@Adelink · 07.04.2021, 11:18

Подскажите пожалуйста, как сделать: есть таблица excel, состоящая из трех листов. Необходимо, чтобы при вводе "done" в столбце T вся строка из первого листа копировалась на 3 лист. Спасибо.

@Narimanych 2736 / 1711 / 778 Регистрация: 23.03.2015 Сообщений: 5,420
	14.11.2020, 23:52	17
	teacher6, Если используете файл Паши, то уберите звездочки (*) перед словом и после него Миниатюры 0

@testpa 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 4
		1
	Перенос всех строк с заданным условием на другой лист 30.06.2016, 21:23. Показов 61657. Ответов 20 Метки нет (Все метки) Здравствуйте. Очень нужен макрос, который бы переносил все значения столбцов одной строки по заданному параметру на другой лист. К примеру, у меня есть набор данных, из которых я хочу вычленить только те, где значение столбца URL = *instagram.com и перенести на другой лист вместе со всеми другими параметрами. Читала много тем на форуме, но никак не могу провести параллели со своей задачей. Очень буду рада помощи! Спасибо. тест.xlsx 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	30.06.2016, 21:25	2
	Расширенный фильтр посмотрите 0

@testpa 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 4
	30.06.2016, 21:32 [ТС]	3
	Посмотрела. Пишет, что копирование на отдельный лист не допускается. Пол дня сегодня промучилась над этим вопросом( Голова уже не соображает. Если в примере я привела двадцать строк, то по работе я имею дело с массивом в несколько тысяч. Мальчик занимавшийся макросами уволился, а на меня всех собак повесили. Если кто может объяснить доходчиво, я попробую написать сама, но за что хвататься - не знаю! 0

Fairuza 6014 / 3207 / 719 Регистрация: 23.11.2010 Сообщений: 10,721
	30.06.2016, 22:02	4
	testpa, скопируйте на этот же лист, потом перенесете на другой лист 0

@testpa 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 4
	30.06.2016, 22:28 [ТС]	6
	Огромное спасибо! Все работает!!! Даже с кнопочкой Но как вы это сделали?? Я вас очень прошу, объясните мне поэтапно, если после рабочего дня на это остались силы и терпение. Я не могу тупо пользоваться уже готовым( Если задача поменяется и нужно будет менять какие-то условия, то сяду в лужу. Хочется понять принцип работы, чтобы самой в дальнейшем решать. Нужно головой не только кушать) Тысячи благодарностей вам) 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.06.2016, 22:44	7
	Собственно, я просто использовал расширенный фильтр, только программно. Единственный нюанс - исходный диапазон, там определяется как текущая область вокруг ячейки Упоминания!B3 Миниатюры 0

@testpa 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 4
	30.06.2016, 23:19 [ТС]	8
	pashulka, Спасибо))) Сначала начала злиться, что не могу понять, а потом нашла другое видео, где показали на пальцах и теперь довольна)) В любом случае, вы мой герой на сегодня. Добавлено через 9 минут pashulka, и последнее) Скажите, а можно вот этот уже готовый фильтр превратить в макрос (и сделать для него такую же красивую кнопочку, как у вас). 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	30.06.2016, 23:39	9
	Не видео, а просто полезные статьи : Создание и удаление макросов Добавление на лист кнопки и назначение ей макроса 0

@alyaska213 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 13
	07.06.2020, 01:01	10
	Доброго времени суток, Уважаемые знатоки! У меня похожая ситуация, только можно подправить таким образом, чтобы копировалась не вся строка, а только именно эти столбцы. Заранее спасибо! 0

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	07.06.2020, 08:26	11
	alyaska213, Если столбец, где находятся критерии отбора, является частью 'именно этих' столбцов, то указывайте конкретно их. А если речь идёт о несмежных столбцах, то копируете все столбцы и удаляете ненужные. Или говорите более предметно, файл с абстрактными данными (в виде .xls/.xlsx, не картинки) в виде нескольких десятков строк. И что нужно копировать, по какому принципу(критерию). И не помешает сказать, сколько в реальности строк. 0

	07.04.2021, 11:18

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	07.06.2020, 13:43	13
	В файле нет переноса только избранных столбцов. А чтобы избежать очистки данных лишних столбцов, достаточно явно указать столбцы, т.е. вместо wsSheet2.[A5].CurrentRegion.Clear написать что-то вроде wsSheet2.Range("A5:H" & Rows.Count).Clear или wsSheet2.Range("A5:H" & wsSheet2.Rows.Count).Clear если в момент выполнения макроса - активным может быть лист, не имеющий ячеек, например, лист диаграммы 1

@alyaska213 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 13
	07.06.2020, 21:02	14
	pashulka, Превосходно и Волшебно! Я прошу прощения за столь яркие эмоции, просто сам только буквально вчера начал изучать макросы. Огромнейшее спасибо!!! С Днем Святой Троицы! 0

@teacher6 0 / 0 / 0 Регистрация: 14.11.2020 Сообщений: 4
	14.11.2020, 18:22	15
	Здравствуйте! Я методом тыка и многих чтений сделала такую же таблицу, вот только в моем списке поиск по Фамилии учеников Подскажите пожалуйста, а можно дописать какую-то команду, чтобы искалось не совпадение в ячейке, а точное значение. Потому что есть, к примеру Сорокин, а есть СорокинА. И в поля, связанных с Сорокин, происходит непонятные вычисления. Буду признательна. 0

@Narimanych 2736 / 1711 / 778 Регистрация: 23.03.2015 Сообщений: 5,420
	14.11.2020, 18:25	16
	teacher6, Прикрепите файл- пример ... Покажите в нем исходные данные ( 3-4 строки) и что хотите получить... 0

@Adelink 0 / 0 / 0 Регистрация: 06.04.2021 Сообщений: 1
	07.04.2021, 11:18	20
	Подскажите пожалуйста, как сделать: есть таблица excel, состоящая из трех листов. Необходимо, чтобы при вводе "done" в столбце T вся строка из первого листа копировалась на 3 лист. Спасибо. 0

Перенос всех строк с заданным условием на другой лист

Решение