Skip i'r prif gynnwys

Sut i uno dalennau lluosog gyda'r un penawdau yn Excel?

Er enghraifft, mae gennych chi rywfaint o ddata gyda'r un penawdau mewn gwahanol ddalenni ag isod sgrinluniau a ddangosir, a nawr eich swydd chi yw uno'r taflenni hyn yn un ddalen. Yn lle eu copïo a'u pastio fesul un, mae'r tiwtorial hwn yn cyflwyno'r ffyrdd gwell i chi drin y swydd hon.

doc cyfuno'r un pennawd 1
doc cyfuno'r un pennawd 2
doc cyfuno'r un pennawd 3

Uno dalennau gyda'r un penawdau gan VBA

Cydgrynhoi taflenni excel gyda'r un penawdau yn ôl swyddogaeth Cydgrynhoi

Cyfuno neu atgyfnerthu taflenni excel gyda'r un penawdau gan Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Uno dalennau gyda'r un penawdau gan VBA

Os ydych chi am uno'r dalennau â'r un penawdau heb unrhyw gyfrifiadau, gallwch gymhwyso'r cod VBA i'w ddatrys.

1. Gweithredwch y llyfr gwaith rydych chi am uno'r taflenni, pwyswch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i'r newydd Modiwlau ffenestr.

VBA: Uno dalennau gyda'r un penawdau

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. Gwasgwch F5 allwedd i redeg y VBA, ac mae deialog yn galw allan i chi nodi rhif y rhesi teitl. Gweler y screenshot:

doc cyfuno'r un pennawd 4

4. Cliciwch OK. Ac mae'r holl daflenni yn y llyfr gwaith gweithredol yn cael eu huno mewn dalen newydd o'r enw “Cyfun”.

doc cyfuno'r un pennawd 1
doc plws
doc cyfuno'r un pennawd 2
doc plws
doc cyfuno'r un pennawd 3
doc fertigol cyfartal
doc cyfuno'r un pennawd 3

Tip:

(1.) Rhaid i'ch data ddechrau o A1, os na, ni fydd y cod yn dod i rym.

(2.) Rhaid i'ch data fod â'r un strwythur.

(3.) Dim ond holl daflenni gwaith y llyfr gwaith gweithredol y gall y cod hwn eu cyfuno, os ydych chi am uno taflenni gwaith o lyfrau gwaith lluosog, ni fydd y cod hwn yn gweithio.


swigen dde glas saeth Cydgrynhoi taflenni excel gyda'r un penawdau yn ôl swyddogaeth Cydgrynhoi

Gan dybio bod gennych chi rywfaint o ddata gyda'r un penawdau colofn a rhes ag islaw'r screenshot a ddangosir, a'ch bod chi am uno taflenni excel gyda'r un penawdau ac yna gwneud rhai cyfrifiadau, gallwch chi gymhwyso'r swyddogaeth Cydgrynhoi yn Excel.

doc cyfuno'r un pennawd 6
doc cyfuno'r un pennawd 7
doc cyfuno'r un pennawd 8

1. Agorwch yr holl lyfrau gwaith rydych chi am uno taflenni ohonynt, a gosod y cyrchwr mewn cell wag lle rydych chi am ddod o hyd i'r data sy'n uno, yna cliciwch Dyddiad > Cyfnerthu. Gweler y screenshot:

doc cyfuno'r un pennawd 9

2. Yna yn y Cyfnerthu ffenestr, gwnewch fel y nodir isod:

1) Dewiswch y ffurflen gyfrifo rydych chi ei eisiau swyddogaeth rhestr;

2) Cliciwch i ddewis yr ystod rydych chi am ei chyfuno.

3) Cliciwch Ychwanegu botwm i ychwanegu'r ystod yn Pob rhestr gyfeirio. I ailadrodd 2) cam a 3) cam i ychwanegu'r holl ystodau sydd eu hangen i uno i'r rhestr hon.

4) Gwiriwch Rhes uchaf ac Y golofn chwith dan Defnyddiwch labeli yn adran hon.

5) Os ydych chi am gysylltu'r data unedig â data ffynhonnell, gwiriwch Creu dolenni i ddata ffynhonnell.

doc cyfuno'r un pennawd 10
doc cyfuno'r un pennawd 11
1) Dewiswch y ffurflen gyfrifo rydych chi ei eisiau swyddogaeth rhestr;

2) Cliciwch i ddewis yr ystod rydych chi am ei chyfuno.

3) Cliciwch Ychwanegu botwm i ychwanegu'r ystod yn Pob rhestr gyfeirio. I ailadrodd 2) cam a 3) cam i ychwanegu'r holl ystodau sydd eu hangen i uno i'r rhestr hon.

4) Gwiriwch Rhes uchaf ac Y golofn chwith dan Defnyddiwch labeli yn adran hon.

5) Os ydych chi am gysylltu'r data unedig â data ffynhonnell, gwiriwch Creu dolenni i ddata ffynhonnell.

3. Cliciwch OK. Nawr mae'r holl ystod data gyda'r un penawdau yn cael eu huno yn un a'u crynhoi gan benawdau.

doc cyfuno'r un pennawd 6doc cyfuno'r un pennawd 7doc cyfuno'r un pennawd 8
doc fertigol cyfartal
doc cyfuno'r un pennawd 12

swigen dde glas saeth Cyfuno neu atgyfnerthu taflenni excel gyda'r un penawdau gan Kutools ar gyfer Excel

Os ydych chi, mewn rhai achosion, eisiau uno data â'r un penawdau yn unig, ac mewn achosion eraill, rydych chi am uno data a'u cydgrynhoi, a oes unrhyw driciau sy'n gallu datrys y ddwy dasg hyn? Dyma fi'n cyflwyno Kutools ar gyfer Excelyn bwerus Cyfunwch swyddogaeth i chi.

Uno dalennau excel gyda'r un penawdau

Cydgrynhoi dalennau lluosog gyda'r un penawdau

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)

Uno dalennau excel gyda'r un penawdau

1. Cliciwch Kutools Byd Gwaith > Cyfunwch i alluogi'r dewin Cyfuno, ac yna gwirio Cyfuno nifer o daflenni gwaith o lyfrau gwaith yn un daflen waith. Gweler sgrinluniau:
doc cyfuno'r un pennawd 14
mae kutools doc yn cyfuno 2

2. Cliciwch Nesaf >> i fynd i'r Cyfuno Taflenni Gwaith - Cam 2 o 3 dewin, a gwnewch fel isod:

mae kutools doc yn cyfuno 3
1) Cliciwch Ychwanegu > Ffeil / Ffolder i ychwanegu'r llyfrau gwaith gallwch uno taflenni o'r Rhestr llyfr gwaith;
2) Gwiriwch enw'r llyfr gwaith rydych chi am uno'r taflenni, gallwch ddewis nifer o lyfrau gwaith;
3) Gwiriwch y taflenni gwaith rydych chi am eu cyfuno gyda'i gilydd;
4) Cliciwch dewiswch doc i ddewis yr ystod rydych chi am ei chyfuno, os yw'r ystodau wedi'u gosod yn yr un lleoliad â phob dalen, dim ond angen dewis un amrediad o ddalen yna cliciwch Yr un ystod.

3. Cliciwch Nesaf >> i'r Taflen Waith Cyfuno - Cam 3 o 3 dewin, a gwirio Cyfuno yn ôl opsiwn rhes a math 1 i mewn i flwch testun Rhif rhes teitl, os nad oes teitl yn eich ystod, teipiwch 0 ynddo.

mae kutools doc yn cyfuno 4

4. Cliciwch Gorffen, ac mae deialog yn galw allan i'ch atgoffa i achub y senario hwn, os ydych chi am ei arbed, cliciwch Ydy, neu Na.

doc cyfuno'r un pennawd 17

Nawr mae'r taflenni'n uno â'r un penawdau rhes mewn llyfr gwaith newydd.

doc cyfuno'r un pennawd 18

Cydgrynhoi dalennau lluosog gyda'r un penawdau

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)

1. Cliciwch Menter > Cyfunwch i arddangos y dewin Cyfuno, a gwirio Cydgrynhoi a chyfrifo gwerthoedd ar draws nifer o lyfrau gwaith yn un daflen waith. Gweler y screenshot:
mae kutools doc yn cyfuno 5

2. Cliciwch Nesaf >> i fynd i'r Cyfuno Taflenni Gwaith - Cam 2 o 3 dewin, a gwnewch fel isod:

mae kutools doc yn cyfuno 3
1) Cliciwch Ychwanegu > Ffeil / Ffolder i ychwanegu'r llyfrau gwaith gallwch uno taflenni o'r Rhestr llyfr gwaith;
2) Gwiriwch enw'r llyfr gwaith rydych chi am uno'r taflenni, gallwch ddewis nifer o lyfrau gwaith;
3) Gwiriwch y taflenni gwaith rydych chi am eu cyfuno gyda'i gilydd;
4) Cliciwch dewiswch doc i ddewis yr ystod rydych chi am ei chyfuno, os yw'r ystodau wedi'u gosod yn yr un lleoliad â phob dalen, dim ond angen dewis un amrediad o ddalen yna cliciwch Yr un ystod.

3. Ewch ymlaen i glicio Nesaf>>, a dewiswch y swyddogaeth rydych chi am ei chymhwyso yn yr ystod gyfun, a gwiriwch y labeli am eich ystod gyfun. Gweler y screenshot:
mae kutools doc yn cyfuno 6

4. Cliciwch Gorffen, a deialog yn galw allan i ofyn i chi achub y senario, cliciwch Ydy i arbed, neu glicio Na i beidio â'i achub.

Yna mae'r ystodau wedi'u cydgrynhoi mewn llyfr gwaith newydd.

doc cyfuno'r un pennawd 12

Y fantais o Kutools ar gyfer Excel'S Cyfunwch swyddogaeth yw y gallwch uno nifer o daflenni ar draws llyfrau gwaith agored neu lyfrau gwaith heb eu hagor yn un daflen waith neu un llyfr gwaith.

Cyfuno / Cydgrynhoi data yn hawdd yn seiliedig ar yr un gwerth yn Excel

Gan dybio eich bod yn gweithio gyda thaflen waith sy'n cynnwys nifer o gofnodion dyblyg, ac yn awr mae angen i chi gyfuno / uno'r rhesi yn seiliedig ar yr un gwerth a gwneud rhai cyfrifiadau, megis swm, cyfartaledd, cyfrif y rhesi dyblyg. Gyda hyn Rhesi Cyfuno Uwch of Kutools ar gyfer Excel, gallwch gyfuno'r un gwerthoedd / un data yn gyflym neu ddyblygu rhesi i mewn i gelloedd priodol.  Cliciwch ar gyfer treial llawn sylw am ddim mewn 30 diwrnod!
doc datblygedig cyfuno rhesi
 
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Erthyglau Perthynas

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
When using the VBA code only two of my sheets are combining instead of the three active sheets. The headers are all the same and all start in cell A1. Would you have any idea what the issue is please?
This comment was minimized by the moderator on the site
Bonjour, est-ce possible de Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel afin que les changements qui sont effectués dans les feuilles du classeur soient appliqués dans la nouvelle feuille "combinée"?
This comment was minimized by the moderator on the site
Hello, If you want to combine sheets which with the same sheet names, there is no built-in feature in Excel can help you. You can try Combine feature of Kutools for Excel, it provides an option that combine sheets with same names, for more details, you can visit this tutorial https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. And Kutools for Excel supports 30-day free trial, you can download it to have a try. https://www.extendoffice.com/download/kutools-for-excel.html
This comment was minimized by the moderator on the site
Very helpful the code for combining multiple worksheets, it worked fine! Thank you!
This comment was minimized by the moderator on the site
what will be vba code for combining multiple sheets in workbook into one worksheet if row headers are the same ( not column headers)
This comment was minimized by the moderator on the site
I used VBA to copy all sheets to one, but how can I copy only select sheets instead of all of them?
This comment was minimized by the moderator on the site
Esta excelente la primera macro, pero no sabrias decirme por que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
This comment was minimized by the moderator on the site
Hello
I bought Kutools for Excel 19.00, by interest in the merge function, but doesn't work with my files and sheets, all have the same name (Workbook an sheets) but in the combination of : "Combine all same name worksheets into one worksheet" dosn't work (does nothing), inclusive don't saves the new workbook in the place that I select prior to execute de Finish button.
I followed the instructions one and another time, but the result is the same.
Some help?
This comment was minimized by the moderator on the site
Hi, Ezequiel Zavaleta, I am sorry for hear that. You can contact our Customer Service Manager through this: our team will solve your problems as soon as possible.
This comment was minimized by the moderator on the site
perfect, thank you
This comment was minimized by the moderator on the site
How can I combine only sheets with same header ignoring other sheets?
This comment was minimized by the moderator on the site
How do I merge only select worksheets in that workbook?
How can I run the Macro to refresh the data on a weekly basis without having to delete the "Combined" tab?
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