VBA: переместить данные и удалить опустевший столбец

Пользователь

Сообщений: 36 Регистрация: 29.06.2016

25.11.2018 20:08:33

Добрый день, Уважаемые знатоки Экселя!

Помогите, пожалуйста, написать макрос. Сам пример и что должно получится во вложении. Спасибо заранее тем, кто посмотрит.
Есть таблица с наименованиями и условными ценами. Цифровой код должен переместиться в столбец А, а сама строчка полностью удалиться. Сама таблица, как правило, содержит больше 10 тыч. строк, руками удалять не реально. В файле более подробно все написано.

Прикрепленные файлы

Пример 1.xlsx (10.8 КБ)

Kuzmich

Пользователь

Сообщений: 8053 Регистрация: 21.12.2012

25.11.2018 20:19:15

Код

Sub iKod_Del_Row()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
  For i = iLastRow To 10 Step -1
    If IsNumeric(Cells(i, "B")) Then
      Cells(i - 1, "A") = Cells(i, "B")
      Rows(i).Delete
    End If
  Next
End Sub

Billy Пользователь Сообщений: 36 Регистрация: 29.06.2016	#3 25.11.2018 20:27:09 Kuzmich, Спасибо Вам большое!!!! Все работает.