Нужна формула которая будет переносить данные с листа 2 на лист 1 по условию если в столбце КТУ будет больше 1.2

@Александр_80 · Регистрация: 02.12.2018

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

Доброго времени суток, Гуру Эксель!!!! помогите решить задачку. нужна формула которая будет переносить данные с листа 2 на лист 1 по условию если в столбце КТУ будет больше 1,2.файл прикладываю.

@Александр_80 · 20.03.2020, 12:01 **[ТС]**

Здравствуйте! было так: If aSH2(i, 19) > 1.2 And aSH2(i, 2) <> "" Then,
а нужно сделать вот так: If Not xlsh2.Rows(i).Height = 0 Then?

Добавлено через 25 секунд
Aleksan7, Здравствуйте! было так: If aSH2(i, 19) > 1.2 And aSH2(i, 2) <> "" Then,
а нужно сделать вот так: If Not xlsh2.Rows(i).Height = 0 Then?

@Aleksan7 · 20.03.2020, 14:27

Александр_80, да, к массиву мы не можем обратиться так как он не содержит высоты строк, поэтому обращаемся к листу на прямую, "xlsh2" эта переменная листа с данными из последней мной выложенной версии. Если в вашем коде она другая, то замените на свою.

@Александр_80 · 24.03.2020, 13:32 **[ТС]**

Aleksan7, Здравствуйте! Подскажите пожалуйста, если в на листе с которого нужно перенести информацию по отфильтрованным столбцам более 2500 строк находится то макрос будет долго переносить данные? Просто я сделал как вы сказали, нажал кнопку заполнить и эксель у меня задумался минут 20 я ждал после чего остановил процесс не дожидаясь его завершения. Если это так то можно как то ускорить? За ранее спасибо!!!

@Aleksan7 · 24.03.2020, 22:18

Александр_80, Здравствуйте, 2500 будет дольше переносить но не настолько, счёт в любом случае пойдёт на секунды а не на минуты. Возможно где то ошибка. Попробуйте пройти макрос в режиме Debug

@Александр_80 · 25.03.2020, 07:53 **[ТС]**

Здравствуйте! Я прошел макрос в режиме Debug, нет ошибок, ждал примерно 10 минут макрос сделал свою работу но добавил мне 23000 строк, может из- за этого так долго идет процесс? не посмотрите файлик оригинальный? Пожалуйста!?

@Александр_80 · 25.03.2020, 10:29 **[ТС]**

Aleksan7, Здравствуйте! Я прошел макрос в режиме Debug, нет ошибок, ждал примерно 10 минут макрос сделал свою работу но добавил мне 23000 строк, может из- за этого так долго идет процесс? не посмотрите файлик оригинальный? Пожалуйста!?

@Aleksan7 · 25.03.2020, 19:42

Александр_80Здравствуйте, это было из за пустых строк под таблицей Журнал резки, с 2 043 по 25 761 строки пустые но когда то использовались. И нет отсева при наборе данных
добавил в условие:

Visual Basic
1
            If Not xlsh2.Rows(i).Height = 0 Then

условие что строка не пустая (по третьему столбцу смотрит):

Visual Basic
1
            If aSH2(i, 3) <> "" And Not xlsh2.Rows(i).Height = 0 Then

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

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

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106

	Excel Нужна формула которая будет переносить данные с листа 2 на лист 1 по условию если в столбце КТУ будет больше 1.2 05.03.2020, 09:05. Показов 3426. Ответов 26 Метки нет (Все метки) Доброго времени суток, Гуру Эксель!!!! помогите решить задачку. нужна формула которая будет переносить данные с листа 2 на лист 1 по условию если в столбце КТУ будет больше 1,2.файл прикладываю. 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	20.03.2020, 12:01 [ТС]
	Здравствуйте! было так: If aSH2(i, 19) > 1.2 And aSH2(i, 2) <> "" Then, а нужно сделать вот так: If Not xlsh2.Rows(i).Height = 0 Then? Добавлено через 25 секунд Aleksan7, Здравствуйте! было так: If aSH2(i, 19) > 1.2 And aSH2(i, 2) <> "" Then, а нужно сделать вот так: If Not xlsh2.Rows(i).Height = 0 Then? 0

@Aleksan7 109 / 60 / 27 Регистрация: 22.02.2018 Сообщений: 189
	20.03.2020, 14:27
	Александр_80, да, к массиву мы не можем обратиться так как он не содержит высоты строк, поэтому обращаемся к листу на прямую, "xlsh2" эта переменная листа с данными из последней мной выложенной версии. Если в вашем коде она другая, то замените на свою. 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	24.03.2020, 13:32 [ТС]
	Aleksan7, Здравствуйте! Подскажите пожалуйста, если в на листе с которого нужно перенести информацию по отфильтрованным столбцам более 2500 строк находится то макрос будет долго переносить данные? Просто я сделал как вы сказали, нажал кнопку заполнить и эксель у меня задумался минут 20 я ждал после чего остановил процесс не дожидаясь его завершения. Если это так то можно как то ускорить? За ранее спасибо!!! 0

@Aleksan7 109 / 60 / 27 Регистрация: 22.02.2018 Сообщений: 189
	24.03.2020, 22:18
	Александр_80, Здравствуйте, 2500 будет дольше переносить но не настолько, счёт в любом случае пойдёт на секунды а не на минуты. Возможно где то ошибка. Попробуйте пройти макрос в режиме Debug 0

@Александр_80 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 106
	25.03.2020, 10:29 [ТС]
	Aleksan7, Здравствуйте! Я прошел макрос в режиме Debug, нет ошибок, ждал примерно 10 минут макрос сделал свою работу но добавил мне 23000 строк, может из- за этого так долго идет процесс? не посмотрите файлик оригинальный? Пожалуйста!? 0