Макрос цикла для копирования диапазона пользовательского ввода и вставки в диапазон пользовательского ввода в неизвестной открытой книге

Привет, добро пожаловать в переполнение стека. Я боюсь, что ваш вопрос немного сложен для понимания (или, может быть, это только я). Надеюсь, я на правильном пути, но я думаю, вы хотите

1. выберите список значений, которые вы хотите найти
2. выберите диапазон с этими значениями и дополнительными данными в столбцах, которые вы хотите вернуть
3. добавить искомый столбец данных в список ссылок

Вы можете использовать свойство Application.WorksheetFunction для vlookup или, как я бы это сделал, перебрать каждое значение в поисках совпадения, а затем вернуть значение в той же строке, но в другом столбце. Это может быть немного медленным для длинных списков данных, но это просто и будет работать.

 Sub copyv5input2()


 Dim vRng1 As Range

 Dim rNum As Integer
 Dim rNum2 As Integer
 Dim vRef1 As Range
 Dim vRng2 As Range
 Dim cNum As Integer
 Dim lookupV As String
 Dim foundR As Long
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With

Set vRng1 = Application.InputBox("Select the range of reference data:", Type:=8)
Set vRng2 = Application.InputBox("Select the reference data range for destination:", Type:=8)   '2
cNum = Application.InputBox("Select the column number you want to return from reference data:")


For rNum = 1 To vRng1.Rows.Count

    lookupV = vRng1.Cells(rNum, 1).Value
    For rNum2 = 1 To vRng2.Rows.Count
        If vRng2.Cells(rNum2, 1) = lookupV Then
            vRng1.Cells(rNum, 1).Offset(0, 1) = vRng2.Cells(rNum2, cNum).Value
            foundR = foundR + 1
            GoTo 10
        End If
    Next rNum2
10
Next rNum

With Application
    .ScreenUpdating = true
    .Calculation = xlCalculationAutomatic

End With
MsgBox "complete, " & foundR & " values returned", vbInformation, "auto lookup"

 End Sub

Добро пожаловать в Stack Overflow!

Вы можете использовать функции рабочего листа Excel с помощью функции VBA: Application.Worksheet.

Например, у меня есть функция листа:

=VLOOKUP(D7,$A$2:$B$5,2,FALSE)

... поэтому в VBA я мог бы открыть диалоговое окно MsgBox с тем же результатом, используя:

MsgBox Application.WorksheetFunction.VLookup(Range("D7"), Range("$A$2:$B$5"), 2, False)

Дополнительная информация:

• Документация MS для свойства Application.WorksheetFunction< /а>

• Документация MS для объекта WorksheetFunction

• Вызов функций рабочего листа из VBA, автор Чип Пирсон _{(король Excel!)}