Как выбрать конкретные ячейки из всех листов без знания точного количества рабочих листов?

Я новичок. Вот часть моего кода:

Workbooks("xxx").Worksheets(1).Activate Range("A1").Select Selection.Copy Workbooks("yyy").Worksheets(1).Activate Range("B2").Select ActiveSheet.Paste Workbooks("xxx").Worksheets(2).Activate Range("A2").Select Selection.Copy Workbooks("yyy").Worksheets(1).Activate Range("B3").Select ActiveSheet.Paste 

Каждая рабочая тетрадь xxx содержит неизвестное количество рабочих листов. Это может быть 3, может быть 50. Если я вручную скопирую и вставлю код выше, например. 50 раз, если количество рабочих листов равно 30, макрос отобразит ошибку и остановится. Как я могу автоматизировать это? Pls, имейте в виду, что я новичок в этом, чтобы ваши ответы были простыми.

Попробуйте выполнить код ниже.

 Dim wbX As Workbook Dim wbY As Workbook Set wbX = Application.Workbooks("xxx") Set wbY = Application.Workbooks("yyy") For i = 1 To wbX.Sheets.Count wbX.Sheets(i).Activate Range("A" & i).Select Selection.Copy wbY.Sheets(1).Activate Range("B" & i + 1).Select ActiveSheet.Paste Next 

Ответил Шива. СПАСИБО!

 Dim wbX As Workbook Dim wbY As Workbook Set wbX = Application.Workbooks("xxx") Set wbY = Application.Workbooks("yyy") For i = 1 To wbX.Sheets.Count wbX.Sheets(i).Activate Range("A1").Select Selection.Copy wbY.Sheets(1).Activate Range("B" & i + 1).Select ActiveSheet.Paste Next 
  • Мой .xls-документ открывается в яблочных номерах со всеми данными в одном столбце
  • Проверка номера не работает в VBA
  • Не удалять ведущие ноль в Big Decimal в java
  • Как найти процент в заданном диапазоне в java
  • Нечетные результаты с использованием функции COMBIN
  • C #: Чтение файла Excel с ошибкой в ​​формате ячейки выглядит как номер
  • Excel: как проверить повторяющиеся числа внутри ячейки
  • Копировать из Excel / Numbers -> Webform
  • Получите номер столбца соответствующей строки в первой строке. Excel VBA
  • Число округлений в нотации для тысяч и миллионов
  • Excel 2013: Скрытие «0 часов 00 минут» прошедшее время
  • Interesting Posts

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

    Вставьте один массив (одно измерение) с> 100 КБ в диапазон Excel

    Excel VBA для назначения границы для группы на основе имени столбца и значения ячейки

    избегать цикла в R для генерации серии

    Связь между excel и silverlight

    Файл Nodejs Excel с графиком и модулем VB

    Макросчитывать данные из одной книги в другую

    как ввести текст свободной формы в ячейку с раскрывающимся списком?

    Макрос для объединения ячеек в Excel для строк, в которых соответствует информация в других столбцах

    Скопируйте строку в другую таблицу, отредактируйте и скопируйте обратно

    Переменные для многих подпрограмм: очистка кода

    VBA: форматирование ячейки при ошибке #VALUE

    Застрял в использовании транспонирования

    Цикл через каждый лист, ищущий данные и возвращающий его на конкретный лист, если его там

    Excel VBA пытается изменить видимость фигур внутри группы

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