У меня есть лист Excel, который содержит информацию по ряду переменных столбцов.информация должна перейти на второй лист.Информация также является переменной и должна помещаться в соответствующий столбец другой рабочей таблицы.Как только он пройдет через этот столбец, он должен перейти к следующему ряду и начать заново.Количество строк тоже переменное .. т.е.столбец AN может содержать: общее количество метража стекла, задавать вопросы по спецификации или тип проекта.Если столбец содержит общее количество метража стекла, он должен перейти к столбцу 21 второго листа, если задать вопросы спецификации к столбцу 27 и т. Д. Цикл столбца должен будет остановить 2 столбца до конца данных
У меня есть оператор if, так что он смещается в соответствующий столбец (я получаю его, чтобы каждый раз идти в начало строки).У меня есть подсчет строк, поэтому он останавливается, но я изо всех сил пытаюсь понять, как заставить его перейти к следующему ряду и начать в нужном месте.Информация, которую я копирую, не начинается до тех пор, пока столбец 20
Dim lastRow As Long
lastRow = Sheets("Leadbank").Range("a" & Rows.Count).End(xlUp).Row
Do Until ActiveCell.Row = lastRow + 1
Sheets("Leadbank").Select
If ActiveCell.Value Like "" Then
ActiveCell.Offset(0, 2).Select
Sheets("Results").Select
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Select
End If
End If
If ActiveCell.Value Like "Total Meterage of Glass" Then
Selection.Copy
Sheets("Results").Select
ActiveCell.Offset(0, 21).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a" & ActiveCell.Row).Select
End If
If ActiveCell.Value Like "Stage of Project" Then
Selection.Copy
Sheets("Results").Select
ActiveCell.Offset(0, 22).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a" & ActiveCell.Row).Select
End If
Sheets("Leadbank").Select
'Selection.End(xlUp).Select
If ActiveCell.End(xlUp).Value Like "" Then
Range("a" & ActiveCell.Row).Select
ActiveCell.Offset(1, 50).Select
End If
Sheets("Leadbank").Select
ActiveCell.Offset(0, 2).Select
Loop
End Sub
Мне нужно, чтобы информация была перенесена на второй лист с нужной информацией о клиенте.Я думаю, что я должен быть в состоянии использовать некоторую форму поиска, чтобы сделать это.Я просто не могу заставить его зацикливаться и помещать информацию в правильный столбец