Копирование столбцов из таблицы в другую

Что-то не так с моим кодом, я не могу понять.

Я хотел бы скопировать column C из workbook 1 worksheet wsCopyFrom_OFP в column D в worksheet wsCopyTo workbook 2 worksheet wsCopyTo чтобы worksheet wsCopyTo только строки со значениями

 LastRow_OFP = wsCopyFrom_OFP.Cells(wsCopyFrom_OFP.Rows.Count, "C").End(xlUp).Row For i = 4 To LastRow_OFP wsCopyFrom_OFP.Cells(i, 3).Copy erow = wsCopyTo.Cells(wsCopyTo.Rows.Count, 1).End(xlUp).Offset(1, 0).Row wsCopyFrom_OFP.Paste Destination:=Worksheets(wsCopyTo).Cells(erow, 1) Next i 

Очень благодарна

Попробуйте использовать код ниже

 LastRow_OFP = wsCopyFrom_OFP.Cells(wsCopyFrom_OFP.Rows.Count, "C").End(xlUp).Row For i = 4 To LastRow_OFP wsCopyFrom_OFP.Cells(i, 3).Copy wsCopyTo.Range("A" & wsCopyTo.Range("A" & Rows.Count).End(xlUp).Row + 1) Next i 

EDIT # 1

Попробуйте использовать код ниже

  LastRow_OFP = wsCopyFrom_OFP.Cells(wsCopyFrom_OFP.Rows.Count, "C").End(xlUp).Row For i = 4 To LastRow_OFP wsCopyFrom_OFP.Range("C" & i & ":C" & i + 3).Copy wsCopyTo.Range("A" & wsCopyTo.Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial (xlPasteValues) Next i 
  • Программа проверяет следующую доступную строку на неверном листе
  • Макрос Excel для включения параметра в диапазон
  • Копировать нулевую строку Visual Basic Excel
  • Копирование / Вставка VBA с проверкой смещения
  • Как условно скопировать строки данных из одного листа Excel в другой
  • Я хотел бы создать копию слова или файла excel, используя poi
  • Скопируйте один лист в другую книгу ... Но значения вставки?
  • Копировать значения в относительные рабочие листы
  • если ячейка содержит определенное число, то скопируйте
  • Ошибка Excel 400 при копировании на другой лист
  • Копирование из одной книги в открытую книгу
  • Interesting Posts

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

    Visual Basic в Excel: итерация, хотя список строк

    Найти значения в одной колонке на основе других столбцов

    Суммируйте повторяющиеся строки и затем удалите все дубликаты

    excel – обновлять несколько столбцов, если обновляется столбец с одного из листов

    Почему эта простая функция не возвращает значение?

    Выпадающий список Excel из нескольких столбцов

    Логика для оператора IF

    MS Excel: укажите, есть ли совпадения в 2 столбцах

    1004 (выбор метода класса диапазона не удался)

    Как остановить «точку», которую нужно заменить «запятой» на выходе кода VBA?

    Ошибка в коде Excel VBA

    Переключить перестановки между двумя столбцами

    Преобразование Excel в PDF с использованием библиотеки spire

    Количество различных значений, основанных на втором параметре

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