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.
Dewis ac amlygu'r holl werthoedd unigryw yn hawdd mewn ystod o ragori:
Mae adroddiadau Dewiswch Gelloedd Dyblyg ac Unigryw cyfleustodau Kutools ar gyfer Excel yn gallu'ch helpu chi i ddewis ac amlygu'r holl werthoedd unigryw yn hawdd (cynnwys y dyblygu cyntaf) neu'r gwerthoedd unigryw sy'n ymddangos unwaith yn unig, yn ogystal â gwerthoedd dyblyg ag sydd eu hangen arnoch chi fel y dangosir isod.
Dadlwythwch Kutools ar gyfer Excel nawr! (llwybr am ddim 30 diwrnod)
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!