Здравствуйте, помогите пожалуйста, есть большой объем данных в таблице, номер детали (четная строка), а под ней наименование детали (не четная строка), как можно перенести наименование детали (не четная строка) в другой столбец на четную строку, а потом не четные строки в первом столбце удалить?
Здравствуйте, помогите пожалуйста, есть большой объем данных в таблице, номер детали (четная строка), а под ней наименование детали (не четная строка), как можно перенести наименование детали (не четная строка) в другой столбец на четную строку, а потом не четные строки в первом столбце удалить?kasi
Sub chetnechet() Dim rRange As Range, cl As New Collection Application.ScreenUpdating = False
For i = 3 To [a65535].End(xlUp).Row Step 2 If rRange Is Nothing Then Set rRange = Cells(i, 1) cl.Add Cells(i, 1).Value GoTo nxt End If Set rRange = Union(Cells(i, 1), rRange) cl.Add Cells(i, 1).Value nxt: Next
rRange.EntireRow.Delete (xlUp) Set rRange = Nothing
For i = 1 To cl.Count Cells(i + 1, 2).Value = cl.Item(i) Next
Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub chetnechet() Dim rRange As Range, cl As New Collection Application.ScreenUpdating = False
For i = 3 To [a65535].End(xlUp).Row Step 2 If rRange Is Nothing Then Set rRange = Cells(i, 1) cl.Add Cells(i, 1).Value GoTo nxt End If Set rRange = Union(Cells(i, 1), rRange) cl.Add Cells(i, 1).Value nxt: Next
rRange.EntireRow.Delete (xlUp) Set rRange = Nothing
For i = 1 To cl.Count Cells(i + 1, 2).Value = cl.Item(i) Next
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
