Skip to main content

Conas sraitheanna bána a chur isteach nuair a athraíonn luach in Excel?

Má cheaptar go bhfuil raon sonraí agat, agus anois ba mhaith leat sraitheanna bána a chur isteach idir na sonraí nuair a athraíonn luach, ionas gur féidir leat na luachanna seicheamhacha céanna a scaradh i gcolún amháin agus na scáileáin scáileáin a leanas a thaispeántar. San Airteagal seo, labhróidh mé faoi roinnt cleasanna chun an fhadhb seo a réiteach.

Cuir isteach sraitheanna bána nuair a athraíonn luach le feidhm Fotheideal

Cuir isteach sraitheanna bána nuair a athraíonn luach le colúin chúntóra

Cuir isteach sraitheanna bána nuair a athraíonn luach le cód VBA

Cuir isteach líon sonrach sraitheanna bána nuair a athraíonn luach le gné chumhachtach


Cuir isteach sraitheanna bána nuair a athraíonn luach le feidhm Fotheideal

Leis an Fo-iomlán gné, is féidir leat sraitheanna bána a chur isteach idir na sonraí nuair a athraíonn luach mar na céimeanna seo a leanas:

1. Roghnaigh an raon sonraí a theastaíonn uait a úsáid.

2. Cliceáil Dáta > Fo-iomlán a oscailt Fo-iomlán bosca dialóige, agus sa Fo-iomlán dialóg, déan na roghanna seo a leanas le do thoil:

1: Roghnaigh ainm an cholúin ar mhaith leat sraitheanna bána a chur isteach ann bunaithe ar an uair a athraíonn an luach Ag gach athrú in alt;
2: Roghnaigh Count ó na Úsáid feidhm liosta anuas;
3: Seiceáil ainm an cholúin ar mhaith leat an fotheideal a chur isteach sa Cuir subtotal leis bosca liosta

3. Ansin cliceáil OK, cuireadh na línte subtotal isteach idir na táirgí éagsúla, agus taispeántar na siombailí imlíne ar thaobh na láimhe clé den tábla, féach an scáileán:

4. Agus ansin cliceáil ar an uimhir 2 ag barr an tsiombail imlíne chun na línte subtotal a thaispeáint.

5. Ansin roghnaigh na sonraí raon subtotal, agus brúigh Alt +; eochracha aicearra chun na sraitheanna infheicthe amháin a roghnú, féach an scáileán:

6. Tar éis duit na sraitheanna infheicthe a roghnú ach ansin brúigh an Scrios eochair ar an méarchlár, agus baineadh na sraitheanna subtotal go léir.

7. Ansin cliceáil aon chill eile, agus téigh ar ais Dáta > Díghrúpáil > Imlíne Glan chun na Imlínte a bhaint, féach an pictiúr:

8. Glanadh na siombailí imlíne ag an am céanna, agus is féidir leat a fheiceáil gur cuireadh sraitheanna bána isteach idir na sonraí nuair a athraíonn luach, féach an scáileán:

9. Faoi dheireadh, is féidir leat an colún A a scriosadh de réir mar is gá duit.


Cuir isteach briseadh leathanaigh, sraitheanna bán, teorainn bun nó dath líonta nuair a athraíonn luach go gasta

Má tá tú Kutools le haghaidh Excel's Déan idirdhealú idir difríochtaí gné, is féidir leat briseadh leathanaigh, sraitheanna bána, teorainn bun nó dath a líonadh isteach go tapa nuair a athraíonn luach de réir mar is gá duit. Féach an taispeántas thíos.         Cliceáil chun Kutools a íoslódáil le haghaidh Excel!


Cuir isteach sraitheanna bána nuair a athraíonn luach le colúin chúntóra

Leis na colúin chúntóra, is féidir leat an fhoirmle a chur isteach ar dtús, agus ansin an Aimsigh agus Ionadaigh feidhm, faoi dheireadh, cuir isteach na sraitheanna bána idir na luachanna athraitheacha. Déan mar a leanas le do thoil:

1. I gcill bhán C3, cuir isteach an fhoirmle seo le do thoil = A3 = A2, agus i gcill D4 cuir isteach an fhoirmle seo = A4 = A3, féach ar an scáileán:

2. Ansin roghnaigh C3: D4, agus tarraing an láimhseáil líonta go dtí an raon a theastaíonn uait foirmlí tráchtais a chur i bhfeidhm, agus gheobhaidh tú True or Bréagach sna cealla, féach an pictiúr:

3. Agus ansin brúigh Ctrl + F eochracha a oscailt Aimsigh agus Ionadaigh dialóg, sa dialóg popped out, iontráil FALSE isteach sa Aimsigh cad bosca téacs faoi Aimsigh cluaisín, agus cliceáil Roghanna cnaipe chun an dialóg seo a leathnú, agus roghnaigh luachanna ó na Feach isteach liosta anuas, féach an scáileán:

4. cliceáil Faigh Gach cnaipe, agus ansin brúigh Ctrl + A chun na torthaí go léir a fuarthas a roghnú, roghnaíodh gach cealla FALSE ag an am céanna, féach an scáileán:

6. Dún an Aimsigh agus Ionadaigh dialóg, an chéad chéim eile, is féidir leat sraitheanna bána a chur isteach trí chliceáil Baile > Ionsáigh > Cuir Sraitheanna Bileog isteach, agus cuireadh sraitheanna bána isteach sna sonraí nuair a athraíonn luach bunaithe ar cholún A, féach scáileáin scáileáin:

7. Faoi dheireadh, is féidir leat an colún cúntóra C agus D a scriosadh de réir mar a theastaíonn uait.


Cuir isteach sraitheanna bána nuair a athraíonn luach le cód VBA

Má tá tú tuirseach de na modhanna thuas a úsáid, tá cód anseo a chabhróidh leat sraitheanna bána a chur isteach idir na luachanna athraithe ag an am céanna.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Cuir isteach sraitheanna bána nuair a athraíonn luach

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach chun ligean duit sonraí colún amháin a roghnú ar mhaith leat sraitheanna bána a chur isteach nuair a athraíonn luach ar a raibh tú bunaithe, féach an scáileán:

4. Agus ansin cliceáil OK, cuireadh na sraitheanna bána isteach idir sonraí nuair a athraíonn an luach bunaithe ar cholún A.


Cuir isteach líon sonrach sraitheanna bána nuair a athraíonn luach le gné chumhachtach

Má dhéantar triail ort leis na modhanna trioblóideacha thuas, anseo, tabharfaidh mé uirlis úsáideach isteach, Kutools le haghaidh Excel's Déan idirdhealú idir difríochtaí is féidir leis cabhrú leat briseadh leathanaigh, sraitheanna bána, teorainn bun nó dath a líonadh isteach nuair a athraíonn luach cille go tapa agus go héasca.

Leid:Chun é seo a chur i bhfeidhm Déan idirdhealú idir difríochtaí gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools > déanta > Déan idirdhealú idir difríochtaí, féach ar an scáileán:

2. Sa an Déan idirdhealú de réir eochaircholún bosca dialóige, déan na hoibríochtaí seo a leanas le do thoil:

  • Roghnaigh an raon sonraí a theastaíonn uait a úsáid, agus ansin roghnaigh an príomhcholún ar mhaith leat sraitheanna bána a chur isteach bunaithe air;
  • Ansin seiceáil Ró bán rogha ón Roghanna alt, agus cuir isteach líon na sraitheanna bán a theastaíonn uait a chur isteach.

3. Ansin cliceáil Ok cnaipe, agus tá líon sonrach na sraitheanna bána curtha isteach sna sonraí má athraíonn luach cille, féach scáileáin scáileáin:

Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, Hassan,

This vba is amazing, whereas I need one more alternate code for insert single blank row after changes in sequencing numbers. Example:- In column having number series like 1, 2, 3, 5, 6, 9 & etc...
Need to add single blank row between 3 & 5 as well as 6 & 9.
Please can you with this.
This comment was minimized by the moderator on the site
Can the VBA method be adapted to ignore blank cells? I have a file which I need to insert rows in based on two different columns but when I run the macro on the second column I end up with three blank lines where the first macro run inserted rows.
Or can it run on two columns at the same time?
This comment was minimized by the moderator on the site
Hello,
Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
This comment was minimized by the moderator on the site
Hi, Hassan,
To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

Sub InsertRowsAtValueChange()
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
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
This comment was minimized by the moderator on the site
RE: insert blank rows when value changes with vba code
Is there a way that I can save the Range & not have to pick it every time I run it?
This comment was minimized by the moderator on the site
The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
This comment was minimized by the moderator on the site
I've been using my own solution for some time.
1. Insert a helper column into Column A
2. In A2, type "if(B2=B1,A1,A1+1)"
3. Copy that formula down to the last row
4. Copy all the populated cells in column A and Paste Special (Values) over them
5. Copy all the cells again and paste them into column A in the first unpopulated cell (e.g. if you have 104 rows of data plus a header row you would paste into cell A106)
6. Click on Data and Remove Duplicates (only on the cells you just pasted in Step 5; not on all rows)
7. Sort all of Column A
8. Delete Column A

Seems like a lot of steps but only takes a few seconds.
This comment was minimized by the moderator on the site
[quote]Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.By Hudson[/quote] Please let me know how to insert more than 1 row.
This comment was minimized by the moderator on the site
Hi there, These are almost useful! The first method doesn't work for me because when I follow the steps explicitly, the the data that I delete in the subtotal panes deletes the entire columns that I've sorted. In the second method when I get to the step where I insert sheet rows, the rows are inserted ABOVE the FALSE cells which breaks up the data, but the last selection of every group is then added to the group below. Any advice???
This comment was minimized by the moderator on the site
Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.
This comment was minimized by the moderator on the site
Where in the code would I need to modify to include more than one row, I need to add 10 after each break... Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations