Macro для копирования данных из нескольких листов в одной книге в один лист книги пыльника

-1

Мне нужно скопировать тот же диапазон (L18: L22) Из всех листов в рабочей книге1, а затем вставьте данные в Лист1 рабочей книги2. Данные с 1-го листа будут поступать в первую пустую ячейку столбца A, данные со второго листа будут поступать в первую пустую ячейку столбца B ... и т. Д. Я только смог скопировать данные с одного листа и застрял, пытаясь сделать это для всех листов.Macro для копирования данных из нескольких листов в одной книге в один лист книги пыльника

источник

2014-10-22 CMC6

Просьба поделиться своим кодом, и мы постараемся вам помочь. –

@Paresh, вот что я начал с. Он только копирует с моего листа «M-025», но Igot застревает при попытке изменить его, чтобы скопировать тот же диапазон во всех листах. Sub TorqueData() Dim sBook_t As String Dim sBook_s As String Dim sSheet_t As String Dim sSheet_s As String sBook_t = "Opta Comms Export.xlsm" sBook_s = "Основные данные калибровки - Num10.xlsm" lMaxRows = Ячейки (Rows.Count, "A ") .End (xlUp) .Row sSheet_s =" Sheet1 "sSheet_t =" M-025 "Рабочие книги (sBook_t). Таблицы (sSheet_t) .Range (" L18: L22 "). Копировать _ Рабочие книги (sBook_s). Таблицы (sSheet_s) .Range («A» & lMaxRows + 1) End Sub – CMC6

Проверьте приведенный ниже код. Я написал в соответствии с вашим требованием. Выполняйте незначительную настройку, если это необходимо, поскольку код не проверяется.

Sub TorqueData() 
Dim wbSrc As Workbook 
Dim wbDest As Workbook 
Dim lastrow As Long 

Set wbDest = Workbooks.Open("Master Calibration Data - Num10.xlsm") 
Set wbSrc = Workbooks.Open("Opta Comms Export.xlsm") 

lastrow = 1 
wbSrc.Activate 
For Each sh In wbSrc.Sheets 

    wbSrc.Sheets(sh).Range("L18:L22").Copy 
    wbDest.Sheets("Sheet1").Activate 
    lastrow = wbDest.Sheets("Sheet1").Range("A" & .Rows.Count).End(xlUp).Row + 1 
    wbDest.Sheets("Sheet1").Range("A" & lastrow).PasteSpecial xlPasteValues 

Next 


End Sub

источник

2014-10-23 05:46:01

Я столкнулся с неверной или неквалифицированной ссылочной ошибкой для «.Rows ...», поэтому я удалил период до «.Rows.Count». Затем он предоставил сообщение об ошибке «1004», согласно которому рабочая книга назначения не может быть найдена, даже если она откроет ее. Я не уверен, почему я получаю эту ошибку, когда кажется, что книга очень удобная. Затем я попытался определить путь к файлу (Dim strFilePath As String strFilePath = "C: \ ..."), но не был успешным. – CMC6

Извините, я забыл исправить это. Он должен выглядеть так: wbDest.Sheets («Sheet1»). Rows.Count –

Можете ли вы уточнить, где в исходном коде должно быть? – CMC6

Macro для копирования данных из нескольких листов в одной книге в один лист книги пыльника

ответ

Смежные вопросы