Копировать ячейку между листами, используя VBA

Question

У меня есть копия сводной панели с веб-сайта моей компании, и я пытаюсь скопировать необработанные данные электронной почты в мою отредактированную рабочую таблицу, но это все еще похоже на беспорядок: Это примерно так:

[

Этот лист называется «Лист3», а другой - «Лист1». Все они имеют одинаковый номер для отслеживания:

Sub CopyRow()

Dim I As Variant
I = Sheet1.Cells(Sheet1.Rows.Count, 6).End(xlUp).Row`
If Not Intersect(Target, Worksheets("Sheet3").Columns("E:E")) Is Nothing Then
     If InStr(UCase(Target.Value), "@") > 0 Then
         If InStr(UCase(Worksheets("Sheet3").Columns("B:B")), "L") = Worksheets("Sheet1").Columns("B:B") Then
         Target = I

   End If
End If

End Sub

Answer 1

Я обычно делаю что-то вроде этого, предполагая, что sheet1 - это лист, который должен обновляться данными из sheet3;

dim destLength as Long 'rows used in sheet 1
dim sourceLength as Long 'rows used in sheet 3

Открыть каталог с исходными файлами и l oop через каждый файл и выполнить следующее

destLength = Sheet1.Range("A"&Rows.Count).End(xlUp).Row
sourceLength = Sheet3.Range("A"&Rows.Count).End(xlUp).Row
Sheet3.Range("B1" & ":I" & sourceLen).copy
Sheet1.Range("A" & destLen + 1).pasteSpecial xlValues
Application.CutCopyMode = False