Note: The other languages of the website are Google-translated. Back to English

Sut i ddarganfod a chael gwerth y gell weladwy gyntaf ar ôl hidlo yn Excel?

Mewn rhai achosion, efallai y bydd angen i chi gael gwerth y gell weladwy gyntaf mewn rhestr wedi'i hidlo. Sut i'w gyflawni? Bydd yr erthygl hon yn dangos dulliau i chi ei datrys.

Darganfyddwch a chael gwerth y gell weladwy gyntaf ar ôl hidlo gyda fformiwla arae
Darganfyddwch a chael gwerth y gell weladwy gyntaf ar ôl hidlo gyda VBA


Darganfyddwch a chael gwerth y gell weladwy gyntaf ar ôl hidlo gyda fformiwla arae


Gallwch gymhwyso'r fformiwla arae ganlynol i gael gwerth y gell weladwy gyntaf mewn rhestr wedi'i hidlo. Gwnewch fel a ganlyn.

1. Dewiswch gell wag ar gyfer gosod y gwerth gweladwy cyntaf, rhowch y fformiwla isod i mewn iddi, ac yna pwyswch y Ctrl + Symud + Rhowch allweddi ar yr un pryd.

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))

Nodyn: Yn y fformiwla, C2: C19 yw'r rhestr wedi'i hidlo rydych chi am ddychwelyd y gwerth cell gweladwy cyntaf, C2 yw cell gyntaf y rhestr. Gallwch eu newid yn ôl yr angen.

Yna gallwch weld gwerth y gell weladwy gyntaf yn y rhestr wedi'i hidlo wedi'i phoblogi yn y gell a ddewiswyd fel y dangosir y screenshot uchod.


Darganfyddwch a chael gwerth y gell weladwy gyntaf ar ôl hidlo gyda VBA

Ar wahân i ddefnyddio'r fformiwla arae uchod i gael gwerth y gell weladwy gyntaf mewn rhestr wedi'i hidlo, gallwch redeg y sgript VBA isod i ddychwelyd cell weladwy gyntaf rhestr wedi'i hidlo yn gyflym. Gwnewch fel a ganlyn.

1. Dewiswch gell wag fel E8 ar gyfer gosod gwerth cell gweladwy cyntaf rhestr wedi'i hidlo.

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

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

Cod VBA: darganfyddwch a chael gwerth y gell weladwy gyntaf ar ôl hidlo yn Excel

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

Nodyn: Yn y cod, Sheet1 yw enw'r ddalen sy'n cynnwys y rhestr wedi'i hidlo. “C” yw'r enw colofn rydych chi am gael y gwerth gweladwy cyntaf ohono. Gallwch eu newid yn ôl yr angen.

3. Gwasgwch y F5 allwedd i redeg y cod, yna bydd y gell weladwy gyntaf o restr wedi'i hidlo sy'n lleoli yng ngholofn C yn cael ei phoblogi i gell E8 ar unwaith.


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 Swyddfa / Excel 2007-2019 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.
tab kte 201905

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!
gwaelod officetab
sylwadau (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i Ddarganfod A Cael Gwerth Deg (10) o Gelloedd Gweladwy Gyntaf Ar ôl Hidlo Isgyfanswm Yn Excel?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ola,


Como faço para saber o número da célula toda vez que realizo o filtro automático no vba via loop?
Er enghraifft, ao filtrar neu valor 1, retornou fel linhas 2, 3 a 4. Dim próximo dolen filtro o valor 2 a retorna fel linhas 19, 20, 22.
Como faço para que eu realizar esse filtro eu pegue exatamente o valor da linha atual da linha do filtro e não o valor da primeira linha da planilha?
Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Modiwl Ardderchog yn VBA, wedi gweithio'n berffaith Rwy'n gwerthfawrogi hyn! Diolch yn fawr am y swydd hon!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A all unrhyw un egluro sut mae'r fformiwla hon yn gweithio mewn gwirionedd?

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dal i gael newidyn Gwrthrych gwall Run-time '91' neu Gyda newidyn bloc heb ei osod. Fy nhaflen waith yw Taflen 1 o'r enw AllBrands. Dyma fy fformiwla i:

Is-gyntafVisibleCell()
Gyda Taflenni Gwaith ("ALLBRANDS").AutoFilter.Range
ActiveCell.Value2 = Amrediad("H" & . Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Gwerth2
Diwedd Gyda

Is-End

Bydd unrhyw help yn cael ei werthfawrogi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Bub,
Mae'r cod yn gweithio'n dda yn fy achos i. Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus - nid y fformiwla - sy'n rhoi gwall #VALUE i mi ac nid yw'r VBA yn gweithio i mi gan roi gwall amser rhedeg '1004' i mi
Rhy ddrwg gan fod gen i Office 2019 ac roeddwn i'n disgwyl i un o'r nodweddion hyn weithio wrth hidlo celloedd penodol... :-(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
‌gwych 🌺 Diolch miliwn🙏
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch miliwn 🙏🌺
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio. Diolch yn fawr iawn...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla hon yn gweithio, ond byddwch yn ymwybodol, os oes gennych gelloedd gwag, y gall y fformiwla gamweithio a dewis y gwerth cyntaf yn y tabl cyfan, nid yn unig yn y canlyniadau wedi'u hidlo. Yr ateb a ddarganfyddais oedd gosod NULL neu fwlch yn lle celloedd gwag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gyntaf cefais fylchau....yna llenwyd pob cell ond yn dal i gael yr ymateb #VALUE. Gobeithio bod y fformiwla hon yn gweithio ar destun hefyd...! Diolch am y cyngor beth bynnag ;-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly i mi nid yw'r ateb uchod yn gweithio cystal â hynny. Mae gen i lyfr gwaith gyda dros 23k o resi ac mae'n rhywbeth rydw i wedi bod yn gweithio i'w optimeiddio dros y blynyddoedd. Daeth fy ateb i mi y bore yma mewn sbarc arall eto o ysbrydoliaeth.
Gan gymryd eich bod chi'n defnyddio TABL i gael y data rydych chi ei eisiau, gwnewch hyn: Mae un rhes (fe wnes i ei enwi yn "Rownmbr") wedi'i neilltuo i: =CELL([@[YOURFIRSTROW]])
Y tu allan i'r tabl rydych chi'n gwneud fformiwla yn rhywle:=INDIRECT(CONCATENATE("A"; SUBTOTAL(105; Tabl 1[Rownmbr])))
Yn syml, rydych chi'n disodli'r "A" gyda lle bynnag rydych chi am gael y data. I mi mae hyn yn gweithio'n wych, ac nid yw'n fformiwla drom i'w defnyddio a fydd yn gorlifo'r ddogfen ymhellach.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd yr ateb hwn yn berffaith i mi, gan fy mod yn defnyddio bwrdd. Roedd y cyfarwyddiadau yn anodd eu dilyn, felly gobeithio y bydd yr esboniad hwn ychydig yn gliriach.
Dywedwch fod gennych dabl excel o'r enw "Table_Name." Yn gyntaf, crëwch golofn newydd yn eich tabl a'i henwi yn "Rhif Rhif". 
Yn y golofn newydd honno, rhowch y fformiwla "=ROW([@RowNumber])" Bydd hyn wedyn yn llenwi'r golofn newydd gyda
Yn y gell lle rydych am ddangos y gwerth gweladwy cyntaf, rhowch y fformiwla "=INDIRECT("A"&SUBTOTAL(105,Table_Name[RowNumber]))" Yr "A" yw llythyren y golofn sy'n dal y gwerth rydych ei eisiau i ddychwelyd.
Mae'r ffwythiant SUBTOTAL(105,...) yn dychwelyd isafswm gwerth yr holl resi gweladwy mewn amrediad penodol, a fydd yn yr achos uchod yn dychwelyd rhif rhes y rhes weladwy gyntaf.
Mae'r ffwythiant INDIRECT yn dychwelyd gwerth y gell ar gyfer cyfeiriad cell penodol. Dyma pam mae angen rhan gyntaf y fformiwla arnoch i gynnwys llythyren golofn y golofn rydych chi am ei harddangos. Bydd ail ran y fformiwla yn dychwelyd rhif y rhes.


Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi fy helpu i ysgrifennu'r fformiwla hon mewn google sheet gyda arrayformula ()

{=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))}
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y cod VBA canlynol, a allwch chi esbonio beth sy'n ei wneud Celloedd Arbennig(xlCellTypeVisible)(1) golygu? Beth yw (1) ddefnyddir ar gyfer ar ôl Celloedd Arbennig(xlCellTypeVisible)?
ActiveCell.Value2 = Amrediad("C" & . Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Gwerth2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir