WedX - журнал о программировании и компьютерных науках

VBA Копировать имя столбца с одного листа на все остальные листы

Я застрял на коде с

Ошибка выполнения 424, требуется объект

Код в основном копирует столбец из имени первого листа «Создать» и переносит скопированный столбец в строку заголовка на всех других активных листах, кроме «Создать».

Может ли кто-нибудь помочь мне исправить ошибку?

Sub Test()   
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Generate" Then
  Worksheets("Generate").Range("B2:B42").Copy
  ActiveWorksheet.Range("A" & Rows.Count).End(xlUp).Offset(1,  0).PasteSpecial Transpose:=True
End If
Next ws

End Sub
loops for-loop excel vba
15.04.2018

  • Почему вы помещаете «строку заголовка» в ActiveWorksheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)? 15.04.2018
  • Измените ActiveWorksheet.Range( на ws.Range( 15.04.2018

Ответы:


1

Попробуйте сначала собрать метки заголовков столбцов в массив.

sub test()
    dim hdrs as variant, w as long

    with worksheets(1)
        hdrs = application.transpose(.range(.cells(2, "B"), .cells(.rows.count, "B").end(xlup)).value2)
    end with

    for w=2 to worksheets.count
        with worksheets(w)
            .cells(1, "A").resize(1, ubound(hdrs)) = hdrs
            '.cells(.rows.count, "A").end(xlup).offset(1, 0).resize(1, ubound(hdrs)) = hdrs
        end with
    next w
end sub

'alternate by worksheet name

sub test()
    dim hdrs as variant, w as long

    with worksheets("Generate")
        hdrs = application.transpose(.range(.cells(2, "B"), .cells(.rows.count, "B").end(xlup)).value2)
    end with

    for w=1 to worksheets.count
        if lcase(worksheets(w).name) <> "generate" then
            with worksheets(w)
                .cells(1, "A").resize(1, ubound(hdrs)) = hdrs
                '.cells(.rows.count, "A").end(xlup).offset(1, 0).resize(1, ubound(hdrs)) = hdrs
            end with
        end if
    next w
end sub
15.04.2018
  • Рабочие листы (генерировать) могут быть или не быть рабочими листами (1). Лучше использовать структуру OPs для зацикливания листов. 15.04.2018
  • Да, я буквально воспринял OP с 'копированием столбца из первого имени листа Generate'. В ее варианте имени рабочего листа не было ошибок, которые я мог предвидеть, и его можно было легко применить здесь. 15.04.2018
    • Новые материалы
    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
    Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
    Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
    Учебные заметки: создание моего первого пакета Node.js
    Это мои обучающие заметки, когда я научился создавать свой самый первый пакет Node.js, распространяемый через npm. Оглавление Глоссарий I. Новый пакет 1.1 советы по инициализации..
    Забудьте о Matplotlib: улучшите визуализацию данных с помощью умопомрачительных функций Seaborn!
    Примечание. Эта запись в блоге предполагает базовое знакомство с Python и концепциями анализа данных. Привет, энтузиасты данных! Добро пожаловать в мой блог, где я расскажу о невероятных..
    ИИ в аэрокосмической отрасли
    Каждый полет – это шаг вперед к великой мечте. Чтобы это происходило в их собственном темпе, необходима команда астронавтов для погони за космосом и команда технического обслуживания..
    Для любых предложений по сайту: [email protected]