Прошу помочь с макросом. Имеется 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