Jak pominąć i zwrócić pasującą wartość z komentarzem komórki?
Kiedy zastosujesz funkcję Vlookup w celu zwrócenia pasującej wartości, wyodrębni ona tylko wartość bez formatowania, takiego jak kolor wypełnienia, czcionka lub komentarz itp. Ale czasami może być konieczne przeoczenie i zwrócenie dopasowanej wartości, w tym również komentarza aby uzyskać następujący wynik zrzutu ekranu. Jak możesz rozwiązać tę pracę w programie Excel?
Wyszukaj i zwróć pasującą wartość z komentarzem komórki za pomocą kodu VBA
Wyszukaj i zwróć pasującą wartość z komentarzem komórki za pomocą kodu VBA
Poniższy kod VBA może pomóc w przejrzeniu i zwróceniu dopasowanej wartości z komentarzem, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Moduł, a następnie skopiuj i wklej następujący kod w pliku Moduł Okno.
Kod VBA: Wyszukaj i zwróć pasującą wartość z komentarzem do komórki:
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. A następnie zapisz kod i zamknij okno kodu, wprowadź tę formułę: = vlookupcomment (H2, A2: C10,3, FALSE) do pustej komórki, aby zlokalizować wynik, i naciśnij Wchodzę klucz, dopasowana wartość, a także komentarz są zwracane od razu, patrz zrzut ekranu:
Note: W powyższym wzorze, H2 jest wartością wyszukiwania, którą chcesz zwrócić odpowiadającą jej wartość, A2: C10 to tabela danych, której chcesz użyć, liczba 3 to numer kolumny zawierającej dopasowaną wartość, którą chcesz zwrócić.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!