Добрый день.

Просьба подсказать умный макрос для выполнения следующей задачи:

Для импорта данных из другого файла возникает необходимость добавления новых строк или удаления лишних строк в текущем рабочем листе.

Пусть рабочий лист содержит N строк, при этом исходный файл, откуда нужно импортировать данные, содержит M строк.

Если N<M, тогда следует скопировать предпоследнюю строку текущего рабочего листа в буфер обмена и вставить скопированные ячейки (M-N) раз перед предпоследней строкой. В противном случае, если N>M, тогда перед предпоследней строкой рабочего листа необходимо удалить (N-M) лишних строк.

Количество строк может быть более чем 50 тыс строк, поэтому нужен умный макрос для того, чтобы очень быстро вставить скопированные ячейки или удалить лишние ячейки.

СПАСИБО

Добрый день.

Нужен умный макрос для снятия галочки «Защищаемая ячейка» (в закладке «Защита» в меню «Формат ячеек») по ячейкам, закрашенным в желтый цвет (код цвета 65535). Данное действие нужно произвести по всем листам книги. Пример файла прилагается.

Заранее спасибо за подсказку и помощь.

Добрый день.

При вставке таблицы из  MS Excel в MS Word идет искажение вида таблицы, а именно буквы и числа в таблице становятся расплывчатыми, таблица растягивается, ничего невозможно делать. Это произошло после замены монитора 17 дюмов на 27 дюмов.

Вставку делаю через кнопку «Вставить»/Специальная вставка/Свзяать/Лист Microsoft Excel (объект). Данным методом я пользуюсь очень много лет, всегда такой способ вставки должным образом работал.

Скажите, пожалуйста, какие у вас есть мысли по данному вопросу?

Спасибо за советы.

Добрый вечер.

Подскажите, пжста, возможно ли посредством макроса конвертировать выгрузку из 1С в линейную таблицу (см. вложение). Есть выгрузка «Отчет по проводкам» из 1С (огромное количество строк!), при этом количество субконто по дебету и кредиту переменное – может меняться от одного до трех строк. Требуется перенести данные из листа «Исходный вид» (выгрузка из 1С) на лист «Линейный вид».

Если данная тема уже обсуждалась, укажите, пжста, ссылку. Заранее благодарен за любой совет и помощь.

Спасибо

Добрый день.

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

В приложении к сообщению три файла: w1 – имя принимающего файла (рабочий файл), w2 – имя передающего файла (файл-выгрузка из системы), s1 – имя принимающего листа рабочего файла, s2 – имя передающего листа файла выгрузки.

Кол-строк в файле-выгрузки около 50 тыс.строк, столбцы, макрос работает по ключевому полю «номер столбца», при этом последовательность номеров столбцов и их количество может отличаться.

Спасибо.

Sub ppe_dt()
wb1 = Workbooks("ppe_vba.xlsm").Worksheets("Macros").Range("F3")
sh1 = Workbooks("ppe_vba.xlsm").Worksheets("Macros").Range("G3")
wb2 = Workbooks("ppe_vba.xlsm").Worksheets("Macros").Range("D3") 'wb contains download from ERP
sh2 = Workbooks("ppe_vba.xlsm").Worksheets("Macros").Range("e3") 'sh contains downloads from ERP
Workbooks(wb1).Worksheets(sh1).Activate
For k = 1 To 225 'number of columns of wb1
For i = 1 To 195 'number of columns of wb2
For j = 7 To 100 'number of rows of wb2
If Workbooks(wb1).Worksheets(sh1).Cells(4, k) = i Then
Workbooks(wb1).Worksheets(sh1).Cells(j - 2, k) = Workbooks(wb2).Worksheets(sh2).Cells(j, i)
End If
Next j
Next i
Next k
MsgBox ("Task has been successfully completed.")
End Sub