Пробежаться по выбранным листам для поиска и ввода значений

@barsuuuk · Регистрация: 04.03.2018

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

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

имеются 2 массива massiv2_0, massiv2_1 с размерностью b2 as long (отсортированные данные из столбцов A и B листа 15 соответственно).

имеются листы Лист2, Лист3, Лист4, Лист5, Лист7, Лист9 со значениями в первом столбце
(кол-во строк с данными везде разное)

в этих листах в первых столбцах надо найти значения из массива massiv2_0, и если значение находится, то в столбец 8 в строку и лист с найденным значением записать значение из массива massiv2_1.
(т.е. если в листе нашлось значение massiv2_0(234), то в 8 столбец с найденым значением записать значение massiv2_1(234).

сделать цикл по имеющимся листам не получается, знаний не хватает.

если возможно - прошу помочь с конечным кодом.

@Vlad999 · 24.03.2018, 07:58

вместо двух массивов я бы сделал словарь dictionary, с него считывать проще (без цикла). Естественно это зависит от ваших данных заносимых в массив.
более точно можно сказать при наличии файла-примера.

@Казанский · 24.03.2018, 12:21

Сообщение от barsuuuk

имеются 2 массива massiv2_0, massiv2_1 с размерностью b2 as long (отсортированные данные из столбцов A и B листа 15 соответственно)

Почему бы тогда ВПР-ом не сделать?

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Ba()
Dim w As Worksheet
  For Each w In Worksheets(Array("Лист2", "Лист3", "Лист4", "Лист5", "Лист7", "Лист9"))
    With w.Cells(1, 8).Resize(w.Cells(w.Rows.Count, 1).End(xlUp).Row)
      .FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,Лист15!C1:C2,2,),"""")"
      .Value = .Value
    End With
  Next
End Sub

@barsuuuk · 24.03.2018, 12:51 **[ТС]**

Vlad999, Спасибо. про Dictionary мельком видел, надо будет внимательнее изучить.
Казанский, Спасибо. щас попробую применить в своём файле.

Добавлено через 24 минуты
Казанский, работает все отлично, мгновенно
Все мои предыдущие потуги стали по сути не нужны

А вы можете подробно объяснить работу строк 4-6 ?
а то мне сложно пока для моего восприятия с учетом имеющихся знаний.

Спасибо!

@Vlad999 · 24.03.2018, 13:08

4. работаем с неким столбцом
5. в каждую ячейку столбца вставляем формулу
6. заменяем формулу на значение.
пояснение: если перед точкой (например .Value) нет ничего то работаем с диапазоном определенным With
если есть (например w.Cells(1, 8)) то с указанным в строке.
как то так.

@Казанский · 24.03.2018, 13:11

barsuuuk,
1. w.Cells(w.Rows.Count, 1).End(xlUp) - последняя заполненная ячейка в первом столбце листа w: как если бы выделили самую нижнюю ячейку столбца и нажали Ctrl+вверх;
2. w.Cells(1, 8).Resize(w.Cells(w.Rows.Count, 1).End(xlUp).Row) - диапазон от первой ячейки столбца 8 до ячейки, номер которой соответствует ячейке из п.1;
3. строка 5 - вставили формулы в диапазон их п.2;
4. заменили формулы на их значения.

@Vlad999 · 24.03.2018, 13:11

w.Cells(1, 8).Resize(w.Cells(w.Rows.Count, 1).End(xlUp).Row)
w.Cells(w.Rows.Count, 1).End(xlUp).Row - определяем последнюю заполненную ячейку по 1 столбцу.
Cells(1, 8).Resize( - расширяем диапазон с ячейки по строкам и столбцам, т.к. столбцы не указаны то расширение только по строкам на найденное к-во.

@barsuuuk · 24.03.2018, 13:54 **[ТС]**

просто ВПР знаю, но строку 5 не понимаю нифига, надо читать мануалы. Формулы вставлять не приходилось.

Спасибо Вам большое за ответы.

Добавлено через 31 минуту
после применения кода образовался вопрос:

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

@Казанский · 24.03.2018, 14:52

barsuuuk, 4 строка

Visual Basic
1
    With w.Cells(2, 8).Resize(w.Cells(w.Rows.Count, 1).End(xlUp).Row-1)

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@barsuuuk 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 40

	Пробежаться по выбранным листам для поиска и ввода значений 24.03.2018, 07:42. Показов 1313. Ответов 8 Метки нет (Все метки) Здравствуйте! имеются 2 массива massiv2_0, massiv2_1 с размерностью b2 as long (отсортированные данные из столбцов A и B листа 15 соответственно). имеются листы Лист2, Лист3, Лист4, Лист5, Лист7, Лист9 со значениями в первом столбце (кол-во строк с данными везде разное) в этих листах в первых столбцах надо найти значения из массива massiv2_0, и если значение находится, то в столбец 8 в строку и лист с найденным значением записать значение из массива massiv2_1. (т.е. если в листе нашлось значение massiv2_0(234), то в 8 столбец с найденым значением записать значение massiv2_1(234). сделать цикл по имеющимся листам не получается, знаний не хватает. если возможно - прошу помочь с конечным кодом. 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	24.03.2018, 07:58
	вместо двух массивов я бы сделал словарь dictionary, с него считывать проще (без цикла). Естественно это зависит от ваших данных заносимых в массив. более точно можно сказать при наличии файла-примера. 1

@barsuuuk 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 40
	24.03.2018, 12:51 [ТС]
	Vlad999, Спасибо. про Dictionary мельком видел, надо будет внимательнее изучить. Казанский, Спасибо. щас попробую применить в своём файле. Добавлено через 24 минуты Казанский, работает все отлично, мгновенно Все мои предыдущие потуги стали по сути не нужны А вы можете подробно объяснить работу строк 4-6 ? а то мне сложно пока для моего восприятия с учетом имеющихся знаний. Спасибо! 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	24.03.2018, 13:08
	4. работаем с неким столбцом 5. в каждую ячейку столбца вставляем формулу 6. заменяем формулу на значение. пояснение: если перед точкой (например .Value) нет ничего то работаем с диапазоном определенным With если есть (например w.Cells(1, 8)) то с указанным в строке. как то так. 1

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.03.2018, 13:11
	barsuuuk, 1. w.Cells(w.Rows.Count, 1).End(xlUp) - последняя заполненная ячейка в первом столбце листа w: как если бы выделили самую нижнюю ячейку столбца и нажали Ctrl+вверх; 2. w.Cells(1, 8).Resize(w.Cells(w.Rows.Count, 1).End(xlUp).Row) - диапазон от первой ячейки столбца 8 до ячейки, номер которой соответствует ячейке из п.1; 3. строка 5 - вставили формулы в диапазон их п.2; 4. заменили формулы на их значения. 1

@barsuuuk 0 / 0 / 0 Регистрация: 04.03.2018 Сообщений: 40
	24.03.2018, 13:54 [ТС]
	просто ВПР знаю, но строку 5 не понимаю нифига, надо читать мануалы. Формулы вставлять не приходилось. Спасибо Вам большое за ответы. Добавлено через 31 минуту после применения кода образовался вопрос: А как в этом коде поменять чтобы формула вставлялась не с первой строки, а со второй? а то на первой строке у меня заголовки столбцов. все заголовки снесло где вставка была. 0

Пробежаться по выбранным листам для поиска и ввода значений

Решение