Автор: Кели Последна промяна: 2020-05-09

Например вие създавате таблица за покупка на плодове в Excel и сега трябва да потърсите плодовете от друга работна книга и да върнете съответните цени, както са показани екранните снимки по-долу. Тук ще ви насоча да го решите с функцията VLOOKKUP в Excel.

1. Отворете и двете работни книги, от които ще търсите vlooking стойности и ще връщате стойности.

2. Изберете празна клетка, която ще върне цената, въведете формулата =VLOOKUP(B2,[Price.xlsx]Sheet1!$A$1:$B$24,2,FALSE) в него и след това плъзнете неговия манипулатор за попълване за прилагане на тази формула към диапазона, както ви е необходимо.

Може да е малко объркано да конфигурирате пътя за запис, името на файла и работния лист във функцията VLOOKUP. Този метод ще въведе VBA за лесно решаване.

1. Натисни Друг + F11 клавиши, за да отворите прозореца на Microsoft Visual Basic за приложения.

2. Щракнете върху Поставете > Модулии след това поставете под VBA кода в прозореца на отварящия модул.

VBA: Vlookup данни и връщане на стойности от друга затворена работна книга

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

Забележка: Този VBA ще върне стойности в колона, която е 2 колони зад избраната колона. Например избирам колона B, когато прилагам този VBA, стойностите ще се върнат в колона D. Ако трябва да промените целевата колона, моля, разберете кода xRg.Offset(0, 2).Формула = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row , и заменете 2 към друг номер, колкото ви трябва.

3. Натисни F5 клавиша или щракнете върху бягане бутон за стартиране на този VBA.

4. В диалоговия прозорец за отваряне, моля, посочете диапазона от данни, който ще търсите, и щракнете върху OK бутон.

5. Сега, моля, изберете работната книга, където ще търсите стойности в отварящия се диалогов прозорец Избор на работна книга и щракнете върху отворено бутон.

Сега всички избрани стойности се търсят в указаната затворена работна книга и съответните стойности се връщат в определена колона. Вижте екранна снимка: