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

Sut i fewnosod rhesi gwag pan fydd gwerth yn newid yn Excel?

Gan dybio bod gennych chi ystod o ddata, ac nawr rydych chi am fewnosod rhesi gwag rhwng y data pan fydd gwerth yn newid, fel y gallwch chi wahanu'r un gwerthoedd dilyniannol mewn un golofn â'r sgrinluniau canlynol a ddangosir. Yn yr erthygl hon, byddaf yn siarad am rai triciau i chi ddatrys y broblem hon.

Mewnosod rhesi gwag pan fydd gwerth yn newid gyda swyddogaeth Is-gyfanswm

Mewnosod rhesi gwag pan fydd gwerth yn newid gyda cholofnau cynorthwywyr

Mewnosod rhesi gwag pan fydd gwerth yn newid gyda chod VBA

Mewnosod nifer benodol o resi gwag pan fydd gwerth yn newid gyda nodwedd bwerus


Mewnosod rhesi gwag pan fydd gwerth yn newid gyda swyddogaeth Is-gyfanswm

Efo'r Is-gyfanswm nodwedd, gallwch fewnosod rhesi gwag rhwng y data pan fydd gwerth yn newid fel y camau canlynol:

1. Dewiswch yr ystod ddata rydych chi am ei defnyddio.

2. Cliciwch Dyddiad > Is-gyfanswm i agor y Is-gyfanswm blwch deialog, ac yn y Is-gyfanswm deialog, gwnewch yr opsiynau canlynol:

1: Dewiswch enw'r golofn rydych chi am fewnosod rhesi gwag yn seiliedig ar pryd mae'r gwerth yn newid Ar bob newid yn adran;
2: Dewiswch Cyfri oddi wrth y Defnyddiwch swyddogaeth rhestr ostwng;
3: Gwiriwch enw'r golofn rydych chi am fewnosod yr is-gyfanswm iddi yn y Ychwanegu subtotal i blwch rhestr

3. Yna cliciwch OK, mae'r llinellau subtotal wedi'u mewnosod rhwng y gwahanol gynhyrchion, ac mae'r symbolau amlinellol i'w gweld ar ochr chwith y tabl, gweler y screenshot:

4. Ac yna cliciwch y rhif 2 ar frig y symbol amlinellol i arddangos y llinellau is-gyfanswm yn unig.

5. Yna dewiswch y data amrediad subtotal, a gwasgwch Alt +; bysellau llwybr byr i ddewis y rhesi gweladwy yn unig, gweler y screenshot:

6. Ar ôl dewis y rhesi gweladwy yn unig yna pwyswch y Dileu allwedd ar y bysellfwrdd, ac mae'r holl resi subtotal wedi'u tynnu.

7. Yna cliciwch unrhyw gell arall, ac ewch yn ôl Dyddiad > Dadgrwpio > Amlinelliad Clir i gael gwared ar yr Amlinelliadau, gweler y screenshot:

8. Mae'r symbolau amlinellol wedi'u clirio ar unwaith, a gallwch weld bod rhesi gwag wedi'u mewnosod rhwng y data pan fydd gwerth yn newid, gweler y screenshot:

9. O'r diwedd, gallwch ddileu'r golofn A yn ôl yr angen.


Mewnosod toriad tudalen, rhesi gwag, ffin waelod neu lenwi lliw pan fydd gwerth yn newid yn gyflym

Os oes gennych Kutools ar gyfer Excel's Gwahaniaethwch wahaniaethau nodwedd, gallwch fewnosod toriad tudalen, rhesi gwag, ffin waelod neu lenwi lliw yn gyflym pan fydd gwerth yn newid yn ôl yr angen. Gweler y demo isod.         Cliciwch i lawrlwytho Kutools ar gyfer Excel!


Mewnosod rhesi gwag pan fydd gwerth yn newid gyda cholofnau cynorthwywyr

Gyda'r colofnau cynorthwywyr, gallwch fewnosod fformiwla yn gyntaf, ac yna defnyddio'r Dod o hyd ac yn ei le swyddogaeth, o'r diwedd, mewnosodwch y rhesi gwag rhwng y gwerthoedd newidiol. Gwnewch fel a ganlyn:

1. Mewn cell wag C3, nodwch y fformiwla hon = A3 = A2, ac yng nghell D4 nodwch y fformiwla hon = A4 = A3, gweler y screenshot:

2. Yna dewiswch C3: D4, a llusgwch y ddolen llenwi i'r ystod rydych chi am gymhwyso fformiwlâu traethodau ymchwil, a byddwch chi'n ei chael Cywir or Anghywir yn y celloedd, gweler y screenshot:

3. Ac yna pwyswch Ctrl + F allweddi i agor y Dod o hyd ac yn ei le deialog, yn y dialog popped out, nodwch Anghywir i mewn i'r Dewch o hyd i beth blwch testun o dan Dod o hyd i tab, a chlicio Dewisiadau botwm i ehangu'r ymgom hwn, a dewis Gwerthoedd oddi wrth y Edrych mewn rhestr ostwng, gweler y screenshot:

4. Cliciwch Dewch o Hyd i Bawb botwm, ac yna pwyswch Ctrl + A i ddewis holl ganlyniadau darganfod, mae'r holl gelloedd GAU wedi'u dewis ar unwaith, gweler y screenshot:

6. Caewch y Dod o hyd ac yn ei le deialog, y cam nesaf, gallwch fewnosod rhesi gwag trwy glicio Hafan > Mewnosod > Mewnosod Rhesi Dalen, ac mae rhesi gwag wedi'u mewnosod yn y data pan fydd gwerth yn newid yn seiliedig ar golofn A, gweler sgrinluniau:

7. Yn olaf, gallwch ddileu'r golofn cynorthwyydd C a D yn ôl yr angen.


Mewnosod rhesi gwag pan fydd gwerth yn newid gyda chod VBA

Os ydych wedi blino defnyddio'r dulliau uchod, dyma god hefyd a all eich helpu i fewnosod rhesi gwag rhwng y gwerthoedd newidiol ar unwaith.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Mewnosod rhesi gwag pan fydd gwerth yn newid

Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i adael i chi ddewis un data colofn yr ydych am ei fewnosod rhesi gwag pan fydd gwerth yn newid yr ydych yn seiliedig arno, gweler y screenshot:

4. Ac yna cliciwch OK, mae'r rhesi gwag wedi'u mewnosod rhwng data pan fydd y gwerth yn newid yn seiliedig ar golofn A.


Mewnosod nifer benodol o resi gwag pan fydd gwerth yn newid gyda nodwedd bwerus

Os rhoddir cynnig arnoch gyda'r dulliau trafferthus uchod, yma, byddaf yn cyflwyno teclyn defnyddiol, Kutools ar gyfer Excel's Gwahaniaethwch wahaniaethau gall eich helpu i fewnosod toriad tudalen, rhesi gwag, ffin waelod neu lenwi lliw pan fydd gwerth celloedd yn newid yn gyflym ac yn hawdd.

Awgrym:I gymhwyso hyn Gwahaniaethwch wahaniaethau nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools > fformat > Gwahaniaethwch wahaniaethau, gweler y screenshot:

2. Yn y Gwahaniaethwch y gwahaniaethau yn ôl colofn allweddol blwch deialog, gwnewch y gweithrediadau canlynol:

  • Dewiswch yr ystod ddata rydych chi am ei defnyddio, ac yna dewiswch y golofn allweddol rydych chi am fewnosod rhesi gwag yn seiliedig arni;
  • Yna gwiriwch Rhes wag opsiwn gan y Dewisiadau adran, a nodwch nifer y rhesi gwag rydych chi am eu mewnosod.

3. Yna cliciwch Ok botwm, ac mae'r nifer benodol o resi gwag wedi'u mewnosod yn y data os yw gwerth celloedd yn newid, gweler sgrinluniau:

Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!


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 (15)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i golofn gyda'r rhifau 5,4,3,2 ac 1 (LLWYTH ohonyn nhw) ac rydw i eisiau gwahanu'r Pumpau oddi wrth y lleill, fel: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Mae'r rhifau mewn trefn desc ac mae pedwar o dan bump bob amser, felly ceisiais: Sub InsertRowsAtValueChange() 'Diweddariad 20140716 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Gosod WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = Gau Ar gyfer i = WorkRng.Rows.Count I 2 Cam -1 Os WorkRng.Cells(i, 1). Gwerth = 5 A WorkRng.Cells(i - 1, 1).Gwerth = 4 Yna WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = Gwir Diwedd Is Ond ni weithiodd. Allwch chi fy helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla'n gweithio'n wych, ond mae yna rai enghreifftiau lle nad yw'n cydnabod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr, edrych ym mhobman a dyma'r unig ateb a weithiodd i mi oedd hefyd mewn saesneg glir. Ni wnaeth yr holl wefannau tiwtorial Excel eraill ei dorri i lawr gam wrth gam fel y gwnaethoch chi, diolch yn fawr iawn. lloniannau :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am ddisgrifio atebion lluosog i'r broblem. Defnyddiais yr un Visual Basic a newidiais [dyfynbris]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] gyda [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop).LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium Diwedd Gyda[/quote] Bydd hyn yn tynnu llinellau rhwng rhesi gyda gwerthoedd newidiol yn lle llinellau gwag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ble yn y cod byddai angen i mi addasu i gynnwys mwy nag un rhes, mae angen i mi ychwanegu 10 ar ôl pob toriad... Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo diolch i gyd!! Mae'n anhygoel, a allwch chi hefyd adael i mi sut i fewnosod 2 res pan fydd y gwerth yn newid yn VBA neu drwy excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r rhain bron yn ddefnyddiol! Nid yw'r dull cyntaf yn gweithio i mi oherwydd pan fyddaf yn dilyn y camau yn benodol, mae'r data rydw i'n ei ddileu yn y cwareli is-gyfanswm yn dileu'r colofnau cyfan rydw i wedi'u didoli. Yn yr ail ddull pan fyddaf yn cyrraedd y cam lle rwy'n mewnosod rhesi dalennau, mae'r rhesi yn cael eu mewnosod UCHOD y celloedd ANGHYWIR sy'n torri'r data, ond yna mae detholiad olaf pob grŵp yn cael ei ychwanegu at y grŵp isod. Unrhyw gyngor???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Helo diolch i gyd!! Mae'n anhygoel, a allwch chi hefyd adael i mi sut i fewnosod 2 res pan fydd y gwerth yn newid yn VBA neu drwy excel.Gan Hudson[/dyfyniad] Rhowch wybod i mi sut i fewnosod mwy nag 1 rhes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi bod yn defnyddio fy ateb fy hun ers peth amser.
1. Mewnosodwch golofn cynorthwyydd yng Ngholofn A
2. Yn A2, teipiwch "if(B2=B1,A1,A1+1)"
3. Copïwch y fformiwla honno i lawr i'r rhes olaf
4. Copïwch yr holl gelloedd poblog yng ngholofn A a Gludo Arbennig (Gwerthoedd) drostynt
5. Copïwch yr holl gelloedd eto a gludwch nhw i golofn A yn y gell heb ei phoblogaeth gyntaf (e.e. os oes gennych chi 104 rhes o ddata ynghyd â rhes pennyn byddech chi'n gludo i mewn i gell A106)
6. Cliciwch ar Data a Dileu Dyblygiadau (dim ond ar y celloedd rydych chi newydd eu gludo yng Ngham 5; nid ar bob rhes)
7. Trefnwch y cyfan o Golofn A
8. Dileu Colofn A

Mae'n ymddangos fel llawer o gamau ond dim ond yn cymryd ychydig eiliadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd y cod VBA y tro 1af a gwnaeth yn union yr hyn yr oeddwn yn ceisio ei wneud. Diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
RE: mewnosodwch resi gwag pan fydd gwerth yn newid gyda chod vba
A oes ffordd y gallaf achub y Bryniau a pheidio â gorfod ei ddewis bob tro y byddaf yn ei redeg?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
A yw'n ddefnyddiol iawn rhag ofn y bydd angen i mi fewnosod 1 rhes, ond os bydd angen i mi fewnosod 145 rhes bob tro y bydd y data yn newid yn y golofn spwcific, sut y gallaf ei wneud??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Hassan,
I fewnosod rhesi gwag lluosog pan fydd gwerth yn newid mewn colofn benodol, dylech gymhwyso'r cod VBA canlynol:

Nodyn: Yn y cod isod, dylech newid y rhif 99 i'ch angen, er enghraifft, pan fyddwch chi'n mewnosod 145 o resi gwag, dylech newid y rhif 99 i 144. Rhowch gynnig arni, gobeithio y gall eich helpu chi!

Is-MewnosodRowsAtValueChange()
Dim Rng Fel Ystod
Dim WorkRng Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
xTitleId = "KutoolsforExcel"
Gosod WorkRng = Application.Selection
Gosod WorkRng = Application.InputBox ("Ystod", xTitleId, WorkRng.Address, Math:=8)
Application.ScreenUpdating = Anghywir
Ar gyfer i = WorkRng.Rows.Cyfrif I 2 Gam -1
If WorkRng.Cells(i, 1).Gwerth <> WorkRng.Cells(i - 1, 1).Gwerth Yna
Ystod(WorkRng.Cells(i, 1).Rhes Gyfan, WorkRng.Cells(i + 99, 1).Rhes Gyfan).Mewnosod
Gorffennwch Os
Digwyddiadau
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn. Roedd y cod y mae skyyang yn ei ddangos uchod yn gweithio'n berffaith. Gwnewch yn siŵr nad oes bylchau yn y data eisoes.

Nid wyf yn deall VBA, ond rwy'n credu pe baech am ychwanegu mwy o resi o dan ddata a oedd eisoes â'r bylchau, dylai fod ffordd i anwybyddu bylchau.

A ellid ychwanegu llinell i anwybyddu neu neidio dros linellau gwag? Gallai hynny wneud y cod hwn yn fwy cyffredinol ac ailadroddadwy os oes angen. Hefyd gall swyddogaeth dileu sy'n debyg i hyn fod yn ddefnyddiol felly nid oes angen dadwneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir addasu'r dull VBA i anwybyddu celloedd gwag? Mae gen i ffeil y mae angen i mi fewnosod rhesi ynddi yn seiliedig ar ddwy golofn wahanol ond pan fyddaf yn rhedeg y macro ar yr ail golofn, byddaf yn diweddu gyda thair llinell wag lle mae'r rhediad macro cyntaf yn mewnosod rhesi.
Neu a all redeg ar ddwy golofn ar yr un pryd?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir