Skip i'r prif gynnwys

Sut i fewnosod rhes wag yn seiliedig ar werth uwchlaw'r gell yn Excel?

Yn Excel, mae'r mewnosod rhesi gwag yn un o'r swyddogaethau a ddefnyddir amlaf yn ein gwaith beunyddiol. Fodd bynnag, a oes unrhyw ffordd i fewnosod rhesi gwag yn gyflym yn seiliedig ar werth uwchlaw'r gell fel y dangosir isod y screenshot? Nawr, mae'r erthygl hon, yn sôn am y dull i fewnosod rhes wag yn gyflym yn seiliedig ar y gwerthoedd celloedd uchod yn Excel.

mewnosod doc rhes wag yn uwch na rhif 1 saeth saethu i'r dde mewnosod doc rhes wag yn uwch na rhif 2

Mewnosod rhes yn seiliedig ar y gwerth uchod


Mewnosod rhes yn seiliedig ar y gwerth uchod

Os ydych chi am fewnosod rhes wag yn seiliedig ar y rhif uchod, gallwch ddefnyddio cod macro.

1. Galluogi'r ddalen rydych chi'n ei defnyddio a'i phwyso Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludo islaw'r cod i'r sgript.

VBA: Mewnosod cod gwag yn seiliedig ar y gell uchod

Is-fewnosod () 'UpdatebyExtendoffice20170926
    Dim xRg Fel Ystod
    Dim xCyfeiriad Fel Llinyn
    Dim I, xNum, xLastRow, xFstRow, xCol, xCyfrif Cyhyd
    Ar Gwall Ailddechrau Nesaf
    xAddress = ActiveWindow.RangeSelection.Address
    Gosodwch xRg = Application.InputBox ("Dewiswch ystod i'w defnyddio (colofn sengl):", "KuTools For Excel", xAddress, , , , , 8)
    Os yw xRg Yn Ddim Yna Ymadael Is
    Application.ScreenUpdating = Gau
    xLastRow = xRg(1).Diwedd(xlDown). Rhes
    xFstRow = xRg.Row
    xCol = xRg.Column
    xCount = xRg.Count
    Gosod xRg = xRg(1)
    Ar gyfer I = xLastRow I xFstRow Cam -1
        xNum = Celloedd(I, xCol)
        Os yw'n Rhifol(xNum) A xNum > 0 Yna
            Rhesi (I + 1). Newid maint (xNum). Mewnosod
            xCount = xCyfrif + xNum
        Diwedd Os
    Nesaf
    xRg.Resize(xCount, 1).Dewiswch
    Application.ScreenUpdating = Gwir
Diwedd Is

mewnosod doc rhes wag yn uwch na rhif 3

3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i'ch atgoffa i ddewis rhestr i weithio. Gweler y screenshot:
mewnosod doc rhes wag yn uwch na rhif 4

4. Cliciwch OK, mae'r rhesi gwag wedi'u mewnosod.


Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is any way with kutools function? i don't want to use macro?
This comment was minimized by the moderator on the site
woow really it´s working, thank yoou so much, I saved a lot of time this day
This comment was minimized by the moderator on the site
Hi there, thank you so much for the post above, is there a way to run the code automatically without having to to press F5?
This comment was minimized by the moderator on the site
Thank you so munch, 1 st format working fine....
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations