У меня есть две книги. Один из них wb1
состоит из client
имен в столбце A и idnumber
в столбце B. В другой книге wb2
также есть те же имена client
в columb A (но в другом порядке). Что мне нужно сделать, так это скопировать idnumbers
с wb1
и вставить во вторую книгу, используя имя client
в качестве ссылки. Скопированные значения должны перейти к столбцу (например, J, AC, DC), заданному пользователем (используя поле ввода), и макрос должен вставлять значения только в том случае, если целевая ячейка еще не заполнена idnumber
.VBA - Мне нужен код VLookUP-ish для копирования значений
Я не уверен, как использовать метод application.vlookup, и если это правильный путь или существуют более простые методы.
Id хотел бы услышать ваши советы
До сих пор я сумел придумал этот
Sub copy_val()
Dim lookfor As Range, lookin As Range, found As Variant, col as variant
Set lookfor = Workbooks("wb1.xlsm").Sheets("Sheet1").Range("A2:a22")
Set lookin = Workbooks("wb2.xlsm").Sheets("Sheet2").Range("A2:a22")
col = InputBox("please provide input colum")
found = apllication.VLookup(lookfor.Value, lookin, col, 0)
For Each cl In ActiveSheet.Range("B2:b21")
Range("B&Activecell.row").Select
Selection.Copy
Range("found").Select
Selection.Paste
End Sub
Я также использовал этот один, но я не знаю, почему я не могу получить надлежащий адрес ячейки с помощью:
col = inputbox("please provide input column"
id_row = sheets.("sheet2).range("col"&"2").row
id_col = sheets.("sheet2).range("col"&"2").column
Начните с размещения кода, который у вас есть. – Miqi180
(см. [Как спросить] (http://stackoverflow.com/help/how-to-ask), если вам интересно, почему вы, возможно, получили downvotes.) – BruceWayne
@ Miqi180 я отредактировал сообщение, чтобы показать вам мой код – mm90