Добрый день, уважаемые знатоки.
У меня возникла задача собрать массив из столбцов, поменять столбцы местами, затем из массива удалить строки со словом "уд", удалить столбец, в котором встречается слово "уд" и выгрузить результат на Лист2.
С первой частью прекрасно справляется макрос Anchoret
А вот с удалением у меня беда. Помогите, пожалуйста.
У меня возникла задача собрать массив из столбцов, поменять столбцы местами, затем из массива удалить строки со словом "уд", удалить столбец, в котором встречается слово "уд" и выгрузить результат на Лист2.
С первой частью прекрасно справляется макрос Anchoret
Код |
---|
Sub aaa() Dim aa(), a&, lr1& lr1 = Cells(Rows.Count, 1).End(xlUp).Row With Sheets(1) aa = Array("A", "B", "B", "F", "C", "H", "D", "C") For a = 0 To UBound(aa) Step 2 Worksheets("Лист2").Range(aa(a + 1) & "3:" & aa(a + 1) & lr1 + 1).Value = Range(aa(a) & "2:" & aa(a) & lr1).Value Next End With ' End Sub |