Прошу помочь с макросом. Имеется 2 листа- 1 общий реестр, 2- реестр с параметром. Необходимо, чтоб макрос подставлял параметры их второй таблицы в первую. Есть проблема: нужно, чтобы данные подставлялись не просто во второй столбец, а в ту ячейку, которая свободно (т.е. в первую свободную ячейку строки) Мой макрос, который все вставляет во вторую колонку: Sub Макрос1() With Sheets("НовыеДанные") On Error Resume Next For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set fnd = .Columns(1).Find(Cells(r, 1), LookIn:=xlValues, lookat:=xlWhole) If Err.Number > 0 Then Err.Clear Else Cells(r, 2) = fnd.Offset(0, 1) End If Next On Error GoTo 0 End With End Sub
Прошу помочь с макросом. Имеется 2 листа- 1 общий реестр, 2- реестр с параметром. Необходимо, чтоб макрос подставлял параметры их второй таблицы в первую. Есть проблема: нужно, чтобы данные подставлялись не просто во второй столбец, а в ту ячейку, которая свободно (т.е. в первую свободную ячейку строки) Мой макрос, который все вставляет во вторую колонку: Sub Макрос1() With Sheets("НовыеДанные") On Error Resume Next For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set fnd = .Columns(1).Find(Cells(r, 1), LookIn:=xlValues, lookat:=xlWhole) If Err.Number > 0 Then Err.Clear Else Cells(r, 2) = fnd.Offset(0, 1) End If Next On Error GoTo 0 End With End SubСтася1985
Sub Макрос1() With Sheets("НовыеДанные") On Error Resume Next For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set fnd = .Columns(1).Find(Cells(r, 1), LookIn:=xlValues, lookat:=xlWhole) If Err.Number > 0 Then Err.Clear Else emptyColumn = Range("XFD" & r).End(xlToLeft).Column + 1 Cells(r, emptyColumn) = fnd.Offset(0, 1) End If Next On Error GoTo 0 End With End Sub
[/vba]
[vba]
Код
Sub Макрос1() With Sheets("НовыеДанные") On Error Resume Next For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set fnd = .Columns(1).Find(Cells(r, 1), LookIn:=xlValues, lookat:=xlWhole) If Err.Number > 0 Then Err.Clear Else emptyColumn = Range("XFD" & r).End(xlToLeft).Column + 1 Cells(r, emptyColumn) = fnd.Offset(0, 1) End If Next On Error GoTo 0 End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
