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 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
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:
4. Cliciwch OK, mae'r rhesi gwag wedi'u mewnosod.
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!