VBA для вставки / значений / транспонирования нескольких рабочих книг

Question

Мои извинения, я новичок в VBA, как я уверен, что вы уже догадались. Ни один из предыдущих ответов на подобные вопросы не смог решить мою проблему.

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

В попытке объединить и, по сути, сделать вручную обновленную электронную таблицу типа панели мониторинга, содержащую всю последнюю информацию, которую я копировал, и вставлять данные в «мастер-лист». Различные рабочие книги (рабочие места) также имеют разные диапазоны. Я использую специальные вставки, значения, транспонировать функцию.

Я пытаюсь найти макрос вставки / значения / транспонирования ПОСЛЕ того, как я выбрал и скопировал нужную информацию.

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

Sub paste_values()

    wbkCurrent.Activate
    Range("Selection").Select
    Selection.Copy
    Windows("job cost summary project.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

&

Sub TransposePaste()
With ActiveCell
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End With
End Sub

Я надеюсь, что макрос будет одним щелчком мыши для вставки / транспонирования данных, скопированных в другую книгу.

Answer 1

Привет! Я понял, что вы хотите скопировать вручную, но хотите вставить информацию с помощью макроса.

Если это так, я бы предложил сделать следующее:

1. в сводке стоимости работы project.xlsm напишите следующий код:

   Sub Pasteinfo dim WS в качестве набора рабочих листов WS = thisworkbook.worksheets ("Sheet") ws.cells (rows.count), 1) .end (xlup) .offset (1,0) .PasteSpecial Paste: = xlPasteValuesAndNumberFormats, Transpose: = True End sub

2. Назначить короткий путь к макросу, перейдя>Разработчик> Макросы> Выберите макрос> Параметры (и назначьте ярлык)

С помощью этих шагов вы сможете вставить информацию в свою книгу после того, как вы скопировали ее вручную.