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

Sut i awto rhifau celloedd unedig yn Excel?

Sut y gallem lenwi rhifau cyfresi i mewn i restr o gelloedd unedig o wahanol faint yn Excel? Yn gyntaf yn ein meddwl yw llusgo handlen Autofill i lenwi'r celloedd unedig, ond, yn yr achos hwn, byddwn yn cael y neges rybuddio ganlynol, ac ni allwn lenwi'r celloedd unedig.

doc-fill-merged-cealla-1

Gan nad yw'r handlen llenwi yn cefnogi'r celloedd unedig, yma, gallaf siarad am rai triciau eraill ar gyfer datrys y broblem hon.

Rhif awto / llenwi celloedd unedig â chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Rhif awto / llenwi celloedd unedig â chod VBA


Gall y cod VBA canlynol eich helpu i rifo'r celloedd unedig a ddewiswyd yn gyflym. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Uno celloedd wedi'u huno â rhifau

Sub NumberCellsAndMergedCells()
	'Update 20141028
	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)
	Set WorkRng = WorkRng.Columns(1)
	xIndex = 1
	Set Rng = WorkRng.Range("A1")
	Do While Not Intersect(Rng, WorkRng) Is Nothing
		Rng.Value = xIndex
		xIndex = xIndex + 1
		Set Rng = Rng.MergeArea.Offset(1)
	Loop
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i adael i chi ddewis y celloedd unedig rydych chi am eu llenwi, gweler y screenshot:

doc-fill-merged-cealla-1

4. Ar ôl dewis y celloedd unedig, a chlicio OK, nawr, mae'r celloedd unedig a ddewiswyd wedi'u llenwi â rhifau dilyniannol, gweler y screenshot:

doc-fill-merged-cealla-1


Erthyglau cysylltiedig:

Sut i rifo rhif neu ail-rifo ar ôl hidlo yn Excel?

Sut i uno rhesi cyfagos yn gyflym â'r un data yn Excel?

Sut i ddadmer celloedd a'u llenwi â gwerthoedd dyblyg yn Excel?


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 (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn ac fe ddatrysodd fy mhroblem ar unwaith, diolch yn fawr iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddefnyddiol iawn. ond mae angen un ateb arnaf, mae'n debyg fy mod eisiau llenwi cyfresi i mewn i gelloedd unedig ond mae gan gynnwys cell unedig ddata fel TC_01, A yw'n bosibl llenwi celloedd unedig nesaf fel TC_02, TC_03etc.. Os yw'n bosibl mae'n fy helpu llawer. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Addasu: Gwneud Tra Ddim yn Croestorri(Rng, WorkRng) Ydy Dim yn = xIndex Rng.Value = "Tc_" & a xIndex = xIndex + 1 Set Rng = Rng.MergeArea.Offset(1) Loop
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roeddwn yn meddwl tybed a oes unrhyw ffordd i newid y cod lle bydd gwerth yr amrediad yn cynyddu o un ee rydw i'n ceisio defnyddio hwn ar gyfer anfonebau a dylai'r rhif fynd o NR000026489 i NR000026490, ond gan ddefnyddio'r cod uchod gyda'r addasiad a roddwyd i JYOTHI byddai'n cynyddu o NR000026489 i NR0000264810. Byddai unrhyw gymorth yn cael ei werthfawrogi'n fawr gan fy mod wedi treulio oesoedd yn rhoi cynnig ar wahanol bethau ond nid wyf yn ddigon datblygedig yn VB. Diolch yn fawr iawn :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Prynais y Kutools felly byddai'n fy helpu i gynyddu fy rhif anfoneb yn awtomatig ond nid wyf yn gweld y nodwedd honno yn yr ychwanegiad ar y bar offer Excel. Efallai nad wyf yn chwilio am yr enw cywir ond nid wyf yn darganfod sut i fewnosod hwn yn fy nhempled anfoneb. Unrhyw allan yna
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn gweithio'n berffaith.


Is-rifCelloeddAChelloeddMerged()
'Diweddariad 20141028
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)
Gosod WorkRng = WorkRng.Columns(1)
xIndex = 1
Gosod Rng = WorkRng.Range("A1")
Nid yw Gwneud Tra Ddim yn Croestorri (Rng, WorkRng) yn Dim
Rng.Value = xIndex
xIndex = xIndex +1
Gosod Rng = Rng.MergeArea.Offset(1)
dolen
Is-End


OND rydw i eisiau iddo ddewis ystod yn awtomatig yn lle Set WorkRng = Application.Selection.
Os gwelwch yn dda helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i eithrio cell gyfun sydd â thestun ynddi? Mae'r sgript hon yn gweithio'n berffaith ond rwy'n croesi dogfen sy'n cynnwys nifer o gelloedd wedi'u huno'n llorweddol sy'n cael eu gwneud yn fariau teitl ac rwyf am hepgor / hepgor y rheini. Byddai unrhyw help yn cael ei werthfawrogi'n fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Sut i drosi cell gyda

Afal, Lemon, Dŵr, Soda, Cap, Ystlum

i mewn i

1. Afal, 2. Lemon, 3. Dwfr, 4. Cap, 5. Ystlum
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r rhain yn cynnwys gwahanol fathau o lyfrau, a gwahanol rifau, gwahanol fathau o rifau, rhifau a dewisiadau eraill... yn y gyfres gyfun : =IF(Q7="",(COUNTIF($Q$7:Q7,"") ), SUBSTITUTE ("TRUE", "TRUE","")) yn canfod nad oes hay nada y en la casilla combinada pondrá un consecutivo iniciando con el 1- Dim mewnforio o la celda combinada, solo pondrá el numero al principio de la celda combinada.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!! :)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir