Помогите, пожалуйста, доделать макрос.
Если в столбце E встречается "Иванов, Сидоров, Петров", тогда скопировать их, и их соседнюю ячейку, а потом вставить в самую последнюю нижнюю строку (количество строк всегда меняется). В файле я выделил чтобы из зеленой зоны они перешли в оранжевую.
Что я пытался сделать:
Если в столбце E встречается "Иванов, Сидоров, Петров", тогда скопировать их, и их соседнюю ячейку, а потом вставить в самую последнюю нижнюю строку (количество строк всегда меняется). В файле я выделил чтобы из зеленой зоны они перешли в оранжевую.
Что я пытался сделать:
Код |
---|
Sub Source() Dim LastRow As Long, iCell As Range lLastRow = Sheets("1").Cells(Sheets("1").Rows.Count,1).End(xlUp).Row + 1 For Each iCell In Worksheets("1").Range("E2:E"& LastRow) If iCell = "Иванов" Or iCell = "Сидоров" Or iCell = "Петров" Then iCell.Copy Sheets("1").Range("C" & lLastRow).Paste iCell.Offset(0, -1)Copy Sheets("1").Range("B" & lLastRow).Paste iCell.Offset(0, -4) Sheets("1").Range("A" & lLastRow) = "1" Else End If Next iCell End Sub |