Як vlookup і повернути відповідне значення з коментарем комірки?
Коли ви застосовуєте функцію Vlookup для повернення відповідного значення, вона лише витягує значення без форматування, наприклад, колір заливки, шрифт або коментар тощо. Але іноді вам може знадобитися vlookup і повернути відповідне значення, включаючи коментар. щоб отримати такий результат скріншоту. Як ви могли вирішити цю роботу в Excel?
Перегляд і повернення відповідного значення з коментарем комірки за допомогою коду VBA
Перегляд і повернення відповідного значення з коментарем комірки за допомогою коду VBA
Наведений нижче код VBA може допомогти вам здійснити пошук та повернути відповідне значення з його коментарем. Будь ласка, зробіть наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модулі, потім скопіюйте та вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!