Перенос данных из одной книги в другую

Нижеприведенный скрипт в настоящее время проходит через список данных и копирует диапазон от одной книги к другой в зависимости от значения в ячейке.

For i = 3 To LastRow If Cells(i, 1) <> "" And Cells(i, 13) = "ü" Then Range(Cells(i, 1), Cells(i, 12)).Select Selection.Copy workbooks.Open Filename:=iForm Worksheets("Statistics").Select erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Worksheets("Statistics").Cells(erow, 1).PasteSpecial Paste:=xlPasteValues ActiveWorkbook.Save ActiveWorkbook.Close Application.CutCopyMode = False End If Next i 

Скорее скопировав диапазон от A: LI хотел бы скопировать столбцы A & L, я пробовал обновлять это, но я продолжаю получать ошибки, пожалуйста, помогите. Я благодарю вас заранее.

Кажется, я вижу, что вы пытаетесь. Я предлагаю указать ваши рабочие листы переменной, а затем вы можете выделить целые столбцы через Range() :

 Sub t() Dim mainWS As Worksheet Set mainWS = ActiveWorkbook.Worksheets("Sheet1") ' Tweak as necessary, this sheet is where your main data is (the non-blank cell, and "ü") lastRow = mainWS.Cells(mainWS.Rows.Count,1).End(xlUp).Row 'or whatever your formula is. Make sure to reference the worksheet For i = 3 To lastRow If mainWS.Cells(i, 1) <> "" And mainWS.Cells(i, 13) = "ü" Then mainWS.Range("A:A,L:L").Select Selection.Copy Workbooks.Open Filename:=iForm 'Worksheets("Statistics").Select Set statWS = ActiveWorkbook.Worksheets("Statistics") erow = statWS.Cells(statWS.Rows.Count, 1).End(xlUp).Offset(1, 0).Row statWS.Cells(erow, 1).PasteSpecial Paste:=xlPasteValues ActiveWorkbook.Save ActiveWorkbook.Close Application.CutCopyMode = False End If Next i End Sub 

И заметьте, я ушел. .Select , просто чтобы он был похож на ваш OP. Хотя вам обязательно нужно избегать использования. .Select

  • Поиск 1000 номеров в 1000 книгах
  • Прокрутка всех рабочих листов в Active Workbook + Запуск нескольких макросов через макрос
  • VBA Loop через узлы XML с помощью SelectSingleNode
  • excel vba loop - повторять команду до места
  • Как читать несколько файлов xlsx в R, используя цикл с определенными строками и столбцами
  • Макросменить цвет карты (состояния)
  • Копирование диапазонов из нескольких листов в один рабочий лист, в первой пустой ячейке
  • Как сделать расчет по нескольким строкам и подвести итоги
  • Ссылка на строку внутри массива формул в Excel VBA
  • циклический макрос через все листы
  • Альтернатива использованию флагов при итерации через объекты в python
  • Давайте будем гением компьютера.