Спойлер и теги кода VBA

Старая форма входа

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

Мир MS Excel » Работа и общение » Неформальное общение » Спойлер и теги кода VBA (Макросы Sub)

jack_daniels

Дата: Пятница, 13.12.2013, 14:11 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2007

Всем доброго дня.

Суть задачи такова, есть 2 файла XLS(X), для упрощения можно предположить - 2 листа. В каждом - некая шапка, и таблица, которая может быть сдвинута от А1. В первом столбце обоих файлов - некие уникальные номера, вида 42652-4673. Таблицы достигают 10000строк и 20 столбцов. Значимым в задаче является именно номер.
Первый файл - назовем его "большой" содержит больше элементов. Суть задачи - поиском сложить в каждую строку файла-результата информацию по каждой строке "большего" файла, например, столбцы a,b,c,g,h,s,t, и, в свою очередь, в столбцы f, m, k - из другого.
Уникальные номера могут в каждом из файлов повторяться, это не глюк. Могут встречаться те, которые есть и в первом, и во втором, только в первом, только во втором.
Количество строк не совпадает. многие поля могут быть пустыми, кроме первого - номера. Нумерация первого файла должна сохраняться, если добавляются строки - нужно как то выделять.
Последний раз программировать на VBA, да и вообще программить приходилось в 2002-м, так что вспоминается с трудом. Панель инструментов и кнопки, формы и прочее я сделаю, но- массивов я и тогда толком не понимал. Поэтому полез в фунции и циклы, проще разобраться.
К примеру, тут нашел Set rFind = Columns("A").Find(What:=Sheets("In_ws").Cells(i, "A").Text и If Not rFind Is Nothing Then
Sheets("In_ws").Select Ins = Sheets("In_ws").Cells(i, "A").Value
В итоге - из первого листа строки вставляются в результат (фактически, тупо копируются), rfind отрабатывает, но дальше заблудился с вытаскиванием из второго файла. Как передать значение адреса ячейки переменной чтобы вставить ячейку из него?
_{Базировался на этом
[vba]Код
Sub Procedure_1()

Dim lLastRowA As Long
Dim lLastRowC As Long
Dim i As Long
Dim rFind As Excel.Range

lLastRowA = Cells(Rows.Count, "A").End(xlUp).Row

lLastRowC = Cells(Rows.Count, "C").End(xlUp).Row + 1

Application.ScreenUpdating = False
For i = 2 To lLastRowA Step 1

Set rFind = Columns("B").Find(What:=Cells(i, "A").Text, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not rFind Is Nothing Then
Cells(lLastRowC, "C").Value = Cells(i, "A").Value
lLastRowC = lLastRowC + 1
End If

Next i

Application.ScreenUpdating = True

End Sub
[/vba]}

Сообщение отредактировал jack_daniels - Пятница, 13.12.2013, 14:56