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

У меня есть скрипт vba, который скопирует данные на всех листах и ​​вставляет их в другую группу toi group:

Sub Recap() Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "Feuil1" Then sh.[A7].Resize(sh.[A65536].End(xlUp).Row - 1, 13).Copy Destination:=Worksheets("Feuil1").[A65536].End(xlUp).Offset(1, 0) End If Next sh 

Моя проблема заключается в том, что сценарий не принимает ВСЕ данные, он как-то останавливается в какой-то момент, я предполагаю, что это связано с тем, что у меня есть объединенные ячейки или пустые строки. У кого-нибудь есть представление о том, что я должен изменить?

Большое спасибо!

Хорошо, после небольшого исследования я нашел другой способ рассчитать RowSize в функции Resize :

Идти:

 sh.[A7].Resize(sh.[A65536].End(xlUp).Row - 1, 13).Copy 

Я вычислил строку с использованием функции UsedRange :

 sh.[A7].Resize(sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row - 1, 13).Copy 

Окончательный VBA работает отлично:

 Sub Recap() Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "Feuil1" Then sh.[A7].Resize(sh.UsedRange.Rows(sh.UsedRange.Rows.Count).Row - 1, 13).Copy Destination:=Worksheets("Feuil1").[A65536].End(xlUp).Offset(1, 0) End If Next sh 
Interesting Posts

Чтение информации из SharePoint сначала возвращает неправильное значение – нужно сделать дважды

Могу ли Мондрианский куб просматривать Microsoft Excel?

ASP-таблица в Excel

Как найти даты на основе математических вычислений

Чтение из Excel с использованием OleDb в службе Windows?

как подключиться к внешнему API с помощью python?

как добавить данные к существующему листу excel с использованием laravel phpexcel?

Открыть все файлы с частичным именем в подпапках – VBA

Установите таблицу диаграмм на переменную рабочего листа

Обновление файла excel с использованием ODBC и PHP

Данные Excel в Word-шаблон с помощью поиска и замены – несколько документов

Объединение и перенос нескольких временных рядов с помощью Excel PowerQuery

Как установить числовой формат при использовании запроса в Excel

Можно ли использовать Microsoft.Office.Interop.Excel для создания файла Excel в системе, где пакет Microsoft Office не установлен?

Нумерация форматов в OpenXML C #

Давайте будем гением компьютера.