Cum se extrage dinamic o listă de valori unice dintr-un interval de coloane din Excel?
Pentru un interval de coloane ale cărui valori se modifică în mod regulat și trebuie întotdeauna să obțineți toate valorile unice din interval, indiferent de modul în care s-au schimbat. Cum se face o listă dinamică a valorilor unice? Acest articol vă va arăta cum să faceți față acestuia.
Extrageți dinamic o listă de valori unice dintr-un interval de coloane cu formulă
Extrageți dinamic o listă de valori unice dintr-un interval de coloane cu cod VBA
Extrageți dinamic o listă de valori unice dintr-un interval de coloane cu formulă
După cum se arată mai jos, trebuie să extrageți dinamic o listă de valori unice din intervalul B2: B9. Vă rugăm să încercați următoarea formulă matrice.
1. Selectați o celulă goală, cum ar fi D2, introduceți formula de mai jos în ea și apăsați pe Ctrl + Schimba + Introduce tastele simultan. (B2: B9 este datele coloanei pe care doriți să extrageți valorile unice, D1 este celula de mai sus unde se află formula dvs.)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Continuați să selectați celula D2, apoi trageți mânerul de umplere în jos pentru a obține toate valorile unice din intervalul specificat.
Acum sunt extrase toate valorile unice din gama de coloane B2: B9. Când valorile din acest interval s-au modificat, lista de valori unice va fi modificată dinamic imediat.
Extrageți dinamic o listă de valori unice dintr-un interval de coloane cu cod VBA
De asemenea, puteți extrage dinamic o listă de valori unice dintr-un interval de coloane cu următorul cod VBA.
1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în Module fereastră.
Cod VBA: extrageți o listă de valori unice dintr-un interval
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
notițe: În cod, D2 este celula în care veți localiza lista de valori unice. Îl puteți schimba după cum aveți nevoie.
3. Reveniți la foaia de lucru, faceți clic pe Insera > Forme > Dreptunghi. Vedeți captura de ecran:
4. Desenați un dreptunghi în foaia de lucru, apoi introduceți câteva cuvinte pe care trebuie să le afișați. Apoi faceți clic dreapta pe el și selectați Atribuiți macro din meniul cu clic dreapta. În Atribuiți macro caseta de dialog, selectați CreateUniqueList în Numele macro , apoi faceți clic pe OK buton. Vedeți captura de ecran:
5. Acum faceți clic pe butonul dreptunghi, a Kutools pentru Excel apare fereastra de dialog, selectați intervalul conține valori unice pe care trebuie să le extrageți, apoi faceți clic pe OK butonul.
De acum înainte, puteți repeta pasul 5 de mai sus pentru a actualiza automat lista de valori unică.
Articole pe aceeași temă:
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
- Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
- Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
- Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
- Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
- Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
- Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
- Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
- Peste 300 de funcții puternice. Suportă Office / Excel 2007-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.
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 în fiecare zi!
