Как да направите vlookup и да върнете съвпадаща стойност с коментар на клетка?
Когато приложите функцията Vlookup, за да върнете съвпадащата стойност, тя ще извлече само стойността без форматиране, като цвят на запълване, шрифт или коментар и т.н. Но понякога може да се наложи да направите vlookup и да върнете съвпадащата стойност, включително и коментар за да получите следния резултат от екранна снимка. Как бихте могли да решите тази задача в Excel?
Vlookup и връщане на съответстваща стойност с коментар на клетка с помощта на VBA код
Vlookup и връщане на съответстваща стойност с коментар на клетка с помощта на VBA код
Кодът на VBA по-долу може да ви помогне да направите vlookup и да върнете съответстваща стойност с нейния коментар, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модули, след това копирайте и поставете следния код в Модули Window.
VBA код: Vlookup и връщане на съответстваща стойност с коментар на клетка:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. След това запазете кода и затворете прозореца с код, въведете тази формула: =vlookupcomment(H2,A2:C10,3,FALSE) в празна клетка, за да намерите резултата, и натиснете Въведете ключ, съответстващата стойност, както и коментарът се връщат наведнъж, вижте екранната снимка:
Забележка: В горната формула, H2 е търсената стойност, която искате да върне съответната й стойност, A2:C10 е таблицата с данни, която искате да използвате, числото 3 е номерът на колоната, която съдържа съответстващата стойност, която искате да върнете.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!