Поиск, копирование и вставка значений между книгами с использованием VBA - PullRequest
Новая
       21

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

0 голосов
/ 16 марта 2020

Я пытаюсь скопировать и вставить строки данных из рабочей книги A в рабочую книгу B на основе их. Данные / строки, скопированные из рабочей книги A, будут скопированы на основании их названия в столбце A рабочей книги C. когда их имя, строка копируется и вставляется в рабочую книгу B, затем их имена изменяются на обновленные, что составляет 1 ячейку / столбец справа от позиции их имени в рабочей книге A. Я написал некоторый код и был бы благодарен за любую помощь по его обновлению. 

Sub bulkupload()

Dim ampid As Range
Dim acadiaalias As Worksheet
Dim acadiexport As Worksheet
Dim acadiaupload As Worksheet


Set acadaialias = Workbooks("").Worksheets("")
Set acadiaexport = Workbooks("").Worksheets("")
Set acadiaupload = Workbooks("").Wooksheets("")

For Each ampid In acadialias.Range("a1:a306")
    acadiaexport.Find (ampid.Value)
        For Each ampid In acadiaxport
            ampid.Value.EntireRow.Copy
                For Each Row In acadiaupload
                    acadiaupload.Row.PasteSpecial Paste:=xlPasteValues
...