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

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

Gan dybio bod gennych chi daflen waith gyda'r un data yn y rhesi cyfagos, ac nawr rydych chi am uno'r un celloedd yn un gell, fel bod y data'n edrych yn dwt a hardd. Sut ydych chi'n uno rhesi cyfagos gyda'r un data yn gyflym ac yn gyfleus? Heddiw, byddaf yn cyflwyno rhywfaint o ffordd gyflym ichi ddatrys y broblem hon.


Uno rhesi cyfagos o'r un data â chod VBA

Wrth gwrs gallwch chi uno'r un data â Uno a Chanolfan gorchymyn, ond os oes cannoedd o gelloedd mae angen uno, bydd y dull hwn yn cymryd llawer o amser. Felly gall y cod VBA canlynol eich helpu i uno'r un data yn hawdd.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlauffenestr.

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Yna pwyswch y F5 yn allweddol i redeg y cod hwn, mae deialog yn cael ei arddangos ar y sgrin ar gyfer dewis ystod i weithio gyda hi. Gweler y screenshot:

doc uno'r un celloedd 2

4. Yna cliciwch OK, bydd yr un data yng ngholofn A yn cael ei uno gyda'i gilydd. Gweler y screenshot:

doc uno'r un celloedd 1


Uno rhesi cyfagos o'r un data â Kutools ar gyfer Excel

Efo'r Uno'r un celloedd cyfleustodau Kutools ar gyfer Excel, gallwch chi uno'r un gwerthoedd yn gyflym mewn sawl colofn ag un clic.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gallwch wneud fel a ganlyn:

1. Dewiswch y colofnau rydych chi am uno'r rhesi cyfagos â'r un data.

2. Cliciwch Kutools > Uno a Hollti > Uno'r Un Celloedd, gweler y screenshot:

3. Ac yna mae'r un data yn y colofnau a ddewiswyd wedi'u huno mewn un cell. Gweler y screenshot:

doc uno'r un celloedd 4

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

I wybod mwy am hyn, ewch i hwn Uno'r Un Celloedd nodwedd.


Demo: Uno'r un celloedd yn un gell neu ddadmer i lenwi gwerthoedd dyblyg:

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch 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 (40)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae dyblygu'r macro VBA i uno celloedd cyfagos mewn colofnau yn lle rhesi? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Violeta, rwy'n dyblygu'r rhes (isod). ee ceisio ee ceisio ee ceisio A newid y cod i hyn: Gwaith NesafRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)).Uno i = j - 1 Mae'n cyfuno'r rhes uchod i "ee" a "ceisio"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
i unrhyw un sy'n dal i geisio cyflawni hyn, dwi'n meddwl bod gen i Start of Code ************************************ ***** Sub MergeSameCell() 'Updateby20131127 Dim Rng Fel Ystod, xCell Fel Ystod Dim xRows Fel Cyfanrif xTitleId = "MergeSimilar" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address. , Type:=8) Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Ffug ' xRows = WorkRng.Rows.Count xCols = WorkRng.Columns.Count ' Ar Gyfer Pob Rng Yn WorkRng.Columns ' Am i = 1 I xRows - 1 ' Ar gyfer j = i + 1 I xRows ' Os Rng.Cells(i, 1).Gwerth Rng.Celloedd(j, 1).Gwerth Yna ' Gadael Am ' Diwedd Os ' Nesaf ' WorkRng.Parent.Range(Rng.Cells(i) , 1), Rng.Cells(j - 1, 1)). Cyfuno ' i = j - 1 ' Nesaf ' Nesaf Am Bob Rng Mewn GwaithRng.Rows Ar gyfer i = 1 I xCols - 1 Ar gyfer j = i + 1 I xCols Os Rng.Cells(1, i).Gwerth Rng.Cells(1, j).Gwerth Yna Gadael i Ddiwedd Os Gwaith NesafRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)). Cyfuno i = j - 1 Cais Nesaf Nesaf.DisplayAlerts = Gwir Appl ication.ScreenUpdating = Diwedd Gwir Is ************************************* Diwedd y Cod IE Yn syml addasu y cod i gyfnewid unrhyw gyfeirnodau rhes am gyfeiriadau colofn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!!! helpodd fi mewn cyfnod hollbwysig
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn wedi bod yn ddefnyddiol i mi gymaint o weithiau :) Diolch yn fawr, fe arbedodd lawer o amser o waith i mi. Mae gen i gais bach. Rwy'n ceisio dod o hyd i'r ffordd i wneud yr un uno, ond pan fo celloedd gwag o dan bob gwerth, i uno pob cell gyda'r holl gelloedd gwag isod. Sut alla i addasu'r Macro? Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar y Cod hwn Sub MergeSameCell() Dim Rng Fel Ystod, xCell Fel Ystod Dim xRows Fel Cyfanrif xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:= 8) Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Ffug xRows = WorkRng.Rows.Count Ar Gyfer Pob Rng Mewn WorkRng.Columns Ar gyfer i = 1 I xRows - 1 Ar gyfer j = i + 1 I xRows Os Rng.Cells(i, 1 ).Gwerth Rng.Celloedd(j, 1).Gwerth Yna Gadael Am Diwedd Os Nesaf Os Ddim Yn Wag(Rng.Cells(i, 1).Gwerth) Neu Ddim yn Wag(Rng.Cells(j - 1, 1).Gwerth ) Yna WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)). Cyfuno Diwedd Os ff = j - 1 Nesaf Cais Nesaf.DisplayAlerts = Gwir Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
rhowch gynnig ar y cod hwn Sub MergeSameCell() Dim Rng Fel Ystod, xCell Fel Ystod Dim xRows Fel Cyfanrif xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:= 8) Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Ffug xRows = WorkRng.Rows.Count Ar Gyfer Pob Rng Mewn WorkRng.Columns Ar gyfer i = 1 I xRows - 1 Ar gyfer j = i + 1 I xRows Os Rng.Cells(i, 1 ).Gwerth Rng.Celloedd(j, 1).Gwerth Yna Gadael Am Diwedd Os Nesaf Os Ddim Yn Wag(Rng.Cells(i, 1).Gwerth) Neu Ddim yn Wag(Rng.Cells(j - 1, 1).Gwerth ) Yna WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)). Cyfuno Diwedd Os ff = j - 1 Nesaf Cais Nesaf.DisplayAlerts = Gwir Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os oes gen i'r un enw celwydd Raju 1000 Raju 2000 Monu 100 Monu 200 Yna sut alla i wneud ymyl enw gyda swm
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo wrth redeg y macro hwn caf y "gwall Diffiniedig Cais neu Gwall Diffiniedig Gwrthrych" yn y llinell WorkRng.Parent.Range(rng.Cells(i, 1), rng.Cells(j - 1, 1)). Cyfuno Unrhyw syniadau sut i drwsio hynny? Yn gywir, Michal
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael yr un gwall. ydych chi wedi cyfrifo hynny eto? os gwnewch, sut wnaethoch chi? diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn cael yr un gwall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gadawaf yma y sgript wedi'i haddasu felly bydd yn uno celloedd isod gyda'r un gwerth neu gyda chell wag: Sub MergeSameCell() 'Updateby20131127 Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Gosod WorkRng = Application.InputBox("Ystod", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Ffug xRows = WorkRng.Rows.Count Ar Gyfer Pob Rng Yn WorkRng.Columns Ar gyfer i = 1 I xRows - 1 Ar gyfer j = i + 1 I xRows Os Rng.Cells(j, 1).Gwerth" "" Yna Os Rng.Cells(i, 1).Gwerth Rng.Cells(j, 1).Gwerth Yna Gadael Am Diwedd Os Diwedd Os Gwaith NesafRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)). Cyfuno i = j - 1 Nesaf Cais Nesaf.DisplayAlerts = Gwir Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo helpwch os gwelwch yn dda. Mae gen i broblem gyda'r cod, gyda'r llinell hon. Unrhyw beth o'i le? Os Rng.Cells(j, 1).Gwerth" "Yna
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno. Dylech gael: os Rng.Cells(j, 1).Value = "" yna...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cyfuno neis. Ond mae angen nodi'r ystod wrth redeg y cod. Rwyf am nodi'r ystod hy B1:B50 yn y cod vba. Ac yn ei gwneud yn aliniad chwith uchaf ond sut os gwelwch yn dda helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wrth redeg y cod uchod mae'n dangos gwall llunio: gwall cystrawen. Yn y llinell lle " "defnyddir a llinell isaf o hwn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf innau hefyd yn dod ar draws y mater hwn gyda'r llinell hon. Os Rng.Cells(j, 1).Gwerth" "Yna All rhywun helpu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, Sut alla i roi ystod yn awtomatig heb fewnbwn defnyddiwr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gen i ond cefais rywun arall i wneud y sgriptio i mi, nid oes gennyf unrhyw wybodaeth i'ch helpu gyda'r addasiadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo syr, . Ceisiaf y cod vba ond nid yw'n gweithio. Neges gwall ar gyfer.408. Yn enwedig bod y sylw WorkRng.Parent. Ystod(rng.Celloedd (i, 1), rng.Celloedd(j - 1, 1)).Uno. Anfonwch yr ateb. Rwy'n treulio llawer o amser yn uno'r dogfennau. Yr wyf yn bennaf yn cyfuno fformat hwn o gelloedd C20059290. Diolch a chofion Purusothaman. C
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl syr, . Rwy'n defnyddio cod vba ar gyfer taflen excel ar gyfer uno celloedd. Nid oedd yn gweithio daeth am gamgymeriad 408. Yn enwedig y cod hwn WorkRng.Parent. Ystod(rng.Celloedd (i, 1), rng.Celloedd(j - 1, 1)).Uno. Rhowch yr ateb. Diolch a chofion Purusothaman
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A all rhywun gyfarwyddo â pheirianneg o chwith - diraddio celloedd â phoblogi'r un gwerth i bawb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae'r makro yn gweithio, ond nawr pan rydw i eisiau hidlo ar y golofn A, dim ond y Wybodaeth gyntaf o golofn B sy'n berthnasol i golofn A a welir. Gan edrych ar yr enghraifft a roddir yn y makro, os wyf am hidlo ddydd Llun ar ôl i'r uno gael ei wneud, dim ond Nicol fydd yn Arddangos ac ni ddangosir unrhyw wybodaeth gan Lucy a Lily. A oes llinell y gallaf ei hychwanegu i osgoi hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os ydych chi wir eisiau hidlo yna, ni fydd uno'r celloedd yn eich helpu chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
In EXCEL INPUT NAME PRO1 PRO2 PRO3 A B C output A PRO1 A PRO2 A PRO3 B PRO1 B PRO2 B PRO3 C PRO1 C PRO2 C PRO3
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn ac mae wedi arbed fy amser i raddau helaethach
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir diwygio'r cod VBA i gyflawni'r un peth ar gyfer uno ar draws colofnau (yn hytrach na rhesi i lawr, fel uchod) ac yna ailadrodd ar gyfer pob rhes?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiwch y cod uchod ac yna trawsosodwch y canlyniad
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn!! Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O ffrind, rydych chi'n arbed llawer o fy nyddiau. Diolch!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y llinell cod VBA uchod rhif 19 "i=j-1"
sut mae'n mynd i effeithio ar ein rhesymeg beth bynnag? Fe wnes i dynnu hwnnw a gallwn ddal i allu cael yr un canlyniad!
Unrhyw ddiben penodol pam ei fod yn bresennol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae i gyfyngu'r gwerth i i'r rhes olaf.
Plis diystyrwch y post yma!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir