Voh (Автор тем)

Выгрузка из файла с помощью макроса

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

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

18.01.2016 16:34:10

Здравствуйте. Есть 2 файла с идентичной структурой строк и столбцов. Один файл содержит макрос с кнопкой, по нажатию на которую выбирается второй файл (база данных) из которой подгружаются целиком те строки, 2й столбец (наименование) которых полностью совпадает с исходным файлом. Вставка строки происходит посредством полной замены одной строки на другую. Файлы-примеры во вложении.

Задача такая.
Нужно, чтобы при замене строки неизменным в исходном файле остовался столбец 3 (количество), т.к. в базе данных количество не указывается и важно его сохранить.

Заранее спасибо за помощь и прошу прощения за топорную формулировку.

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]

Перейти

Удаление строк по условию. Как ускорить макрос?

Voh

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

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

25.01.2013 15:36:50

В листе около 2,5 тыс. строк, можно ли ускорить этот макрос, ато он ищет строки с заданными условиями около 10 минут или вообще виснет комп..?(

Код

Sub DeleteRows()
LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For row = LastRow To 1 Step -1
On Error Resume Next
if ActiveSheet.Cells(row, 6).Interior.Color = 3 Then ActiveSheet.Rows(row).Delete
If Cells(row, 6).Value = "0" Then ActiveSheet.Rows(row).Delete
Next row
Application.ScreenUpdating = True
ActiveSheet.Calculate
End Sub

Перейти