Sut i dynnu rhestr o werthoedd unigryw yn ddeinamig o ystod colofn yn Excel?

Ar gyfer amrediad colofn y mae'r gwerthoedd yn newid yn rheolaidd, ac mae angen i chi bob amser gael yr holl werthoedd unigryw o'r ystod ni waeth sut y newidiodd. Sut i wneud rhestr ddeinamig o werthoedd unigryw? Bydd yr erthygl hon yn dangos i chi sut i ddelio ag ef.

Tynnwch restr o werthoedd unigryw yn ddeinamig o ystod colofn gyda fformiwla
Tynnwch restr o werthoedd unigryw yn ddeinamig o ystod colofn gyda chod VBA

Tynnwch restr o werthoedd unigryw yn ddeinamig o ystod colofn gyda fformiwla

Fel y dangosir isod y llun, mae angen i chi dynnu rhestr o werthoedd unigryw yn ddeinamig o ystod B2: B9. Rhowch gynnig ar y fformiwla arae ganlynol.

1. Dewiswch gell wag fel D2, rhowch y fformiwla isod i mewn iddi a gwasgwch y Ctrl + Symud + Rhowch allweddi ar yr un pryd. (B2: B9 yw'r data colofn rydych chi am echdynnu'r gwerthoedd unigryw, D1 yw'r gell uchod lle mae'ch fformiwla wedi'i lleoli)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. Daliwch i ddewis cell D2, yna llusgwch y Llenwch Trin i lawr i gael yr holl werthoedd unigryw o'r ystod benodol.

Nawr mae'r holl werthoedd unigryw yn ystod colofn B2: B9 wedi'u tynnu. Pan newidiodd gwerthoedd yn yr ystod hon, bydd y rhestr werth unigryw yn cael ei newid yn ddeinamig ar unwaith.

Tynnwch restr o werthoedd unigryw yn ddeinamig o ystod colofn gyda chod VBA

Gallwch hefyd dynnu rhestr o werthoedd unigryw yn ddeinamig o ystod colofn gyda'r cod VBA canlynol.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch y cod VBA isod i'r Modiwlau ffenestr.

Cod VBA: Tynnwch restr o werthoedd unigryw o ystod

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

Nodyn: Yn y cod, D2 yw'r gell y byddwch chi'n dod o hyd i'r rhestr werth unigryw. Gallwch ei newid yn ôl yr angen.

3. Ewch yn ôl i'r daflen waith, cliciwch Mewnosod > Siapiau > Petryal. Gweler y screenshot:

4. Tynnwch betryal yn eich taflen waith, yna nodwch rai geiriau y mae angen i chi eu harddangos arno. Yna cliciwch ar y dde a dewis Neilltuo Macro o'r ddewislen clicio ar y dde. Yn y Neilltuo Macro blwch deialog, dewiswch y CreuUniqueList yn y Enw macro blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

5. Nawr cliciwch ar y botwm petryal, a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch yr ystod sy'n cynnwys gwerthoedd unigryw y mae angen i chi eu tynnu, ac yna cliciwch ar y OK botwm.

O hyn ymlaen, gallwch ailadrodd y cam 5 uchod i ddiweddaru'r rhestr werth unigryw yn awtomatig.

Erthyglau perthnasol:

• Sut i greu calendr misol deinamig yn Excel?
• Sut i fewnosod delwedd neu lun yn ddeinamig mewn cell yn seiliedig ar werth celloedd yn Excel?
• Sut i greu hyperddolen ddeinamig i ddalen arall yn Excel?

---

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

• Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
• Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
• Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
• Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
• Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
• Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
• Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
• Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
• Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ... 

---

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

• Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
• Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
• Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Read More ... Lawrlwythiad Am Ddim... Prynu ...