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

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!


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (15)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá colún agam leis na huimhreacha 5,4,3,2 agus 1 (go leor acu) agus ba mhaith liom na Cúigí a scaradh ó na cinn eile, mar: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Bíonn na huimhreacha in ord desc agus bíonn ceithre faoi bhun cúig i gcónaí, mar sin bhain mé triail as: Sub InsertRowsAtValueChange() 'Nuashonraigh 20140716 Dim Rng As Range Dim WorkRng As Range On Earráid Atosú Ar Aghaidh xTitleId = "KutoolsforExcel" Socraigh WorkRng = Feidhmchlár.Roghnú Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8) Application.ScreenUpdating = Bréagach do i = WorkRng.Rows.Count Go 2 Céim -1 Má WorkRng.Cells(i, 1). Luach = 5 Agus WorkRng.Cells(i - 1, 1).Luach = 4 Ansin WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = Fíor Deiridh Fo Ach níor oibrigh sé. An féidir leat cabhrú liom?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an fhoirmle ag obair go hiontach, ach tá roinnt samplaí ann nach n-aithníonn sí
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat, d'fhéach sé i ngach áit agus ba é seo an t-aon réiteach a d'oibrigh domsa a bhí i mBéarla simplí freisin. Níor bhris na láithreáin ghréasáin teagaisc Excel eile go léir é céim ar chéim mar a rinne tú, go raibh míle maith agat. beannacht :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat as cur síos a dhéanamh ar réitigh iolracha ar an bhfadhb. D'úsáid mé an ceann Visual Basic agus d'athraigh mé [ceanglófar]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] le [ceanglófar]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop).LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium Deireadh Le[/quote] Tarraingeoidh sé seo línte idir sraitheanna le luachanna athraitheacha in ionad línte folmha.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cá háit sa chód a chaithfidh mé a mhodhnú chun níos mó ná sraith amháin a chur san áireamh, is gá dom 10 a chur leis tar éis gach sos... Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit go raibh maith agat!! a uamhnach , an féidir leat guys in iúl dom freisin conas a chur isteach 2 sraitheanna nuair a athraíonn an luach i VBA nó trí fheabhas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ansin, tá siad seo beagnach úsáideach! Ní oibríonn an chéad mhodh domsa mar nuair a leanaim na céimeanna go sainráite, scriosann na sonraí a scriosaim sna pannaí fo-iomlán na colúin iomlána atá sórtáilte agam. Ar an dara modh nuair a shroichim an chéim ina gcuirim isteach sraitheanna bileoga, cuirtear na sraitheanna isteach THAR na cealla Bréagach a bhriseann na sonraí, ach cuirtear an rogha dheireanach de gach grúpa leis an ngrúpa thíos ansin. Aon chomhairle???
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
[ceanglófar] Dia duit go raibh maith agat!! a uamhnach , an féidir leat guys in iúl dom freisin conas a chur isteach 2 sraitheanna nuair a athraíonn an luach i VBA nó trí fheabhas.De réir Hudson[/ceanglófar] Cuir in iúl dom le do thoil conas níos mó ná 1 ró a chur isteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá mo réiteach féin á úsáid agam le tamall anuas.
1. Cuir colún cúntóra isteach i gColún A
2. In A2, clóscríobh "má tá(B2=B1,A1,A1+1)"
3. Cóipeáil an fhoirmle sin síos go dtí an tsraith dheireanach
4. Cóipeáil na cealla daonra go léir i gcolún A agus Greamaigh Speisialta (Luachanna) os a gcionn
5. Cóipeáil na cealla go léir arís agus greamaigh iad isteach i gcolún A sa chéad chill neamhphobail (m.sh. má tá 104 sraith sonraí agat chomh maith le sraith ceanntásc, ghreamódh tú isteach cill A106)
6. Cliceáil ar Sonraí agus Bain Dúblaigh (ar na cealla a ghreamaigh tú díreach i gCéim 5 amháin; ní ar gach sraith)
7. Sórtáil Colún A ar fad
8. Scrios Colún A

Is cosúil go leor céimeanna ach ní thógann sé ach cúpla soicind.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh an cód VBA 1ú uair agus rinne sé go díreach cad a bhí mé ag iarraidh a dhéanamh. Go raibh míle maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
RE: cuir isteach sraitheanna bána nuair a athraíonn luach le cód vba
An bhfuil bealach ann gur féidir liom an Raon a shábháil & nach mbeidh orm é a phiocadh gach uair a rithim é?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Tá sé an-úsáideach ar eagla go mbeidh orm 1 ró a chur isteach, ach más gá dom 145 ró a chur isteach gach uair a athraíonn na sonraí sa cholún spwcific, conas is féidir liom é a dhéanamh??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Hassan,
Chun sraitheanna bána iolracha a chur isteach nuair a athraíonn luach i gcolún ar leith, ba cheart duit an cód VBA seo a leanas a chur i bhfeidhm:

Tabhair faoi deara: Sa chód thíos, ba cheart duit an uimhir 99 a athrú go dtí do riachtanas, mar shampla, nuair a chuireann tú 145 sraitheanna bána isteach, ba cheart duit an uimhir 99 a athrú go 144. Bain triail as, le do thoil, tá súil agam gur féidir leis cabhrú leat!

Fo IonsáighRowsAtValueChange()
Dim Rng Mar Raon
Dim WorkRng Mar Raon
Ar Lean Earráid Aghaidh
xTitleId = "KutoolsforExcel"
Socraigh WorkRng = Application.Selection
Socraigh WorkRng = Application.InputBox("Raon", xTitleId, WorkRng.Address, Cineál:=8)
Application.ScreenUpdating = Bréagach
Chun i = WorkRng.Rows.Count To 2 Step -1
Má tá WorkRng.Cealla(i, 1).Luach <> WorkRng.Cealla(i - 1, 1).Luach Ansin
Raon(WorkRng.Cealla(i, 1).EntireRow, WorkRng.Cells(i+ 99, 1).EntireRow).Cuir isteach
Deireadh Má
Ar Aghaidh
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-chabhrach. D'oibrigh an cód a léiríonn skyyang thuas go foirfe. Cinntigh nach bhfuil spásanna sna sonraí cheana féin.

Ní thuigim VBA, ach creidim má bhí tú ag iarraidh níos mó sraitheanna a chur faoi shonraí a raibh an spásáil acu cheana féin, ba cheart go mbeadh bealach ann neamhaird a dhéanamh ar spásanna.

An bhféadfaí líne a chur leis chun neamhaird a dhéanamh de nó scipeáil thar línte bána? D’fhéadfadh sé sin go mbeadh an cód seo níos uilíoch agus níos athdhéanta dá mba ghá. Freisin d’fhéadfadh feidhm scriosta atá cosúil leis seo a bheith úsáideach agus mar sin ní gá é a chealú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir an modh VBA a oiriúnú chun neamhaird a dhéanamh ar chealla bána? Tá comhad agam ar gá dom sraitheanna a chur isteach ann bunaithe ar dhá cholún dhifriúla ach nuair a rithim an macra ar an dara colún críochnaíonn mé le trí líne bhána inar chuir an chéad mhacra rith sraitheanna isteach.
Nó is féidir é a reáchtáil ar dhá cholún ag an am céanna?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL