Cum să copiați formatarea sursă a celulei de căutare atunci când utilizați Vlookup în Excel?
În articolele anterioare, am vorbit despre păstrarea culorii de fundal atunci când valorile vlookup în Excel. Aici, în acest articol, vom introduce o metodă de copiere a tuturor formatărilor de celule ale celulei rezultate atunci când faceți Vlookup în Excel. Vă rugăm să faceți următoarele.
Copiați formatarea sursei atunci când utilizați Vlookup în Excel cu o funcție definită de utilizator
Copiați formatarea sursei atunci când utilizați Vlookup în Excel cu o funcție definită de utilizator
Să presupunem că aveți un tabel așa cum este prezentat mai jos. Acum trebuie să verificați dacă o valoare specificată (în coloana E) se află în coloana A și să returnați valoarea corespunzătoare cu formatarea în coloana C. Vă rugăm să faceți următoarele pentru a o atinge.
1. În foaia de lucru conține valoarea pe care doriți să o vizualizați, faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual. Vedeți captura de ecran:
2. În deschidere Microsoft Visual Basic pentru aplicații fereastra, copiați mai jos codul VBA în fereastra Cod.
Cod VBA 1: Vlookup și returnează valoarea cu formatarea
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Apoi apasa Insera > Moduleși copiați codul VBA 2 de mai jos în fereastra Module.
Cod VBA 2: Vlookup și returnează valoarea cu formatarea
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function
4. clic Instrumente > Referinte. Apoi verificați Microsoft Script Runtime cutie în Referințe - VBAProject căsuță de dialog. Vedeți captura de ecran:
5. apasă pe Alt + Q tastele pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră.
6. Selectați o celulă necompletată adiacentă valorii de căutare, apoi introduceți formula =LookupKeepFormat(E2,$A$1:$C$8,3) în Formula Barului, apoi apăsați tasta Intrați cheie.
notițe: În formulă, E2 conține valoarea pe care o veți căuta, $ A $ 1: $ C $ 8 este intervalul tabelului și numărul 3 înseamnă că valoarea corespunzătoare pe care o veți returna o localizează în a treia coloană a tabelului. Vă rugăm să le schimbați după cum aveți nevoie.
7. Continuați să selectați prima celulă de rezultat, apoi glisați mânerul de umplere în jos pentru a obține toate rezultatele împreună cu formatarea lor, după cum a arătat imaginea de mai jos.
Legate de articole:
- Cum să vizualizați și să returnați culoarea de fundal împreună cu valoarea de căutare în Excel?
- Cum să vizualizați și să returnați formatul de dată în loc de număr în Excel?
- Cum se utilizează vlookup și suma în Excel?
- Cum să vizualizați valoarea de returnare în celula adiacentă sau următoare din Excel?
- Cum să vizualizați valoarea și să returnați adevărat sau fals / da sau nu în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!