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

Sut i uno neu gyfuno taflenni gwaith neu lyfrau gwaith yn un daflen waith?

Yn ein gwaith beunyddiol, efallai y byddwn yn dod ar draws problem sy'n uno cannoedd o daflenni neu lyfrau gwaith yn un ddalen ar gyfer dadansoddi data sy'n cymryd llawer o amser os ydych chi'n defnyddio'r gorchymyn Copi a Gludo yn Excel. Yma yn y tiwtorial hwn, byddaf yn darparu rhai awgrymiadau ar gyfer datrys y swydd hon yn gyflym.

doc cyfuno 1

CYFLEUSTER CYFLYM

Uno pob dalen o lyfr gwaith gweithredol yn un ddalen â VBA
Uno dwsinau o daflenni neu lyfrau gwaith yn un daflen waith / llyfr gwaith gyda chliciau
Uno dau dabl yn un a'u diweddaru gan golofn gyda chliciau
Dadlwythwch ffeil sampl


Uno pob dalen o lyfr gwaith gweithredol yn un ddalen â VBA

Yn yr adran hon, rwy'n darparu cod VBA a fydd yn creu taflen newydd i gasglu holl ddalenni'r llyfr gwaith gweithredol wrth i chi ei redeg.

1. Gweithredwch y llyfr gwaith rydych chi am gyfuno ei ddalennau i gyd, yna pwyswch + allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn popping window, cliciwch Mewnosod > Modiwlau i greu sgript Modiwl newydd.

3. Copïwch isod y cod a'u pastio i'r sgript.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc cyfuno 2

4. Gwasgwch F5 yn allweddol, yna mae'r holl ddata ar draws taflenni wedi'u huno i mewn i ddalen newydd o'r enw Cyfun sy'n cael ei rhoi o flaen pob dalen.


ot symud

Ydych chi Am Gael Codi Tâl a Llawer o Amser i Gyfeilio i'r Teulu?

Tab Office Yn Gwella Eich Effeithlonrwydd 50% Yn Microsoft Office Working Ar hyn o bryd

Yn anghredadwy, mae gweithio mewn dwy ddogfen neu fwy yn haws ac yn gyflymach na gweithio mewn un.

O'i gymharu â phorwyr adnabyddus, mae'r offeryn tabbed yn Office Tab yn fwy pwerus ac yn fwy effeithlon.

Gostyngwch gannoedd o gliciau llygoden a theipio bysellfwrdd bob dydd i chi, ffarweliwch â llaw'r llygoden nawr.

Os ydych chi fel arfer yn gweithio mewn sawl dogfen, bydd Office Tab yn arbed amser gwych i chi.

Treial am ddim 30-dydd, nid oes angen cerdyn credyd.

Darllenwch mwyAm ddim Lawrlwythwch Nawr


Uno dwsinau o daflenni neu lyfrau gwaith yn un daflen waith / llyfr gwaith gyda chliciau

Gyda'r VBA, dim ond taflenni yn y llyfr gwaith gweithredol y gallwch chi eu cyfuno, ond sut allwch chi uno taflenni ar draws llyfrau gwaith â thaflen neu lyfr gwaith?

Uno taflenni ar draws llyfrau gwaith yn un ddalen
doc cyfuno 18

Uno taflenni ar draws llyfrau gwaith yn un llyfr gwaith
doc cyfuno 3

Ar gyfer datrys y swydd hon a bodloni gofynion eraill ar gyfuno dalennau, mae'r Cyfunwch mae'r swyddogaeth wedi'i datblygu gyda phedwar senario cyfuniad:

  • Cyfunwch daflenni neu lyfrau gwaith lluosog yn un ddalen
  • Cyfunwch daflenni neu lyfrau gwaith lluosog yn un llyfr gwaith
  • Cyfunwch daflenni o'r un enw yn un ddalen
  • Cydgrynhoi gwerthoedd ar draws taflenni neu lyfrau gwaith yn un ddalen

Dyma gymryd yr ail opsiwn fel enghraifft:

Cyfunwch daflenni neu lyfrau gwaith lluosog yn un llyfr gwaith

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Activate Excel, cliciwch Kutools Byd Gwaith > Cyfunwch, mae deialog yn ymddangos i'ch atgoffa bod angen cau'r llyfrau gwaith rydych chi am eu cyfuno. Cliciwch OK i barhau.
doc cyfuno 4
doc cyfuno 5

2. Yn y Cyfuno Taflenni Gwaith cam 1 deialog, gwirio Cyfuno nifer o daflenni gwaith o lyfrau gwaith yn un llyfr gwaith opsiwn. Cliciwch Digwyddiadau i fynd i gam nesaf y dewin.
doc cyfuno 6

3. Cliciwch Ychwanegu > ffeil or Ffolder i ychwanegu'r llyfrau gwaith rydych chi am eu cyfuno i'r Rhestr llyfr gwaith cwarel, yna gallwch chi nodi pa daflen waith fydd yn cael ei chyfuno trwy wirio enwau i mewn Rhestr taflen waith cwarel. Cliciwch Digwyddiadau i fynd at gam olaf y dewin.
doc cyfuno 7

4. Yn y cam hwn, nodwch y gosodiadau yn ôl yr angen. Yna cliciwch Gorffen.
doc cyfuno 8

5. Mae ffenestr yn galw allan i chi ddewis ffolder i osod y llyfr gwaith cyfun, yna cliciwch Save.
doc cyfuno 9

Nawr mae'r llyfrau gwaith wedi'u huno yn un llyfr gwaith. Ac ar flaen pob dalen, crëir prif ddalen o'r enw Kutools for Excel sy'n rhestru rhywfaint o wybodaeth am y taflenni a'r dolenni ar gyfer pob dalen.
doc cyfuno 10

Demo: Cyfuno taflenni / llyfrau gwaith yn un ddalen neu lyfr gwaith

Kutools for Excel: 200 + offer defnyddiol defnyddiol, gan symleiddio'r tasgau cymhleth yn Excel i ychydig o gliciau.

Ffarwelio â Llaw Llygoden a Spondylosis Serfigol Nawr

Mae offer uwch 300 o Kutools ar gyfer Excel yn datrys tasgau 80% Excel mewn eiliadau, yn eich tynnu allan o'r miloedd o gliciau llygoden.

Delio'n hawdd â 1500 o senarios gweithio, dim angen gwastraffu amser i chwilio am atebion, cael llawer o amser i fwynhau'ch bywyd.

Gwella cynhyrchiant 80% ar gyfer 110000+ o bobl hynod effeithiol bob dydd, gan gynnwys chi wrth gwrs.

Peidiwch â chael eich poenydio bellach gan fformiwlâu poenus a VBA, rhowch orffwys a hwyliau gweithio llawen i'ch ymennydd.

Treial am ddim 30 diwrnod gyda nodweddion llawn, arian 30 diwrnod yn ôl heb resymau.

Mae Corff Gwell yn Creu Bywyd Gwell.


Uno dau dabl yn un a'u diweddaru gan golofn gyda chliciau

Os ydych chi am uno dau dabl yn un a diweddaru data yn seiliedig ar golofn fel isod llun a ddangosir, gallwch roi cynnig ar y Uno Tablau cyfleustodau Kutools ar gyfer Excel.
doc cyfuno 11

Kutools for Excel: mwy na 200 o ychwanegion Excel defnyddiol i symleiddio tasgau cymhleth i ychydig o gliciau yn Excel

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Cliciwch Kutools Byd Gwaith > Uno Tablau i alluogi Uno Tablau dewin.
doc cyfuno 12

2. Yng ngham 1 y dewin, mae angen i chi ddewis y prif ystodau tabl ac edrych ar wahân. Yna cliciwch Digwyddiadau.
doc cyfuno 13

3. Gwiriwch y golofn allweddol rydych chi am ddiweddaru data yn y brif dabl yn seiliedig arni. Cliciwch Digwyddiadau.
doc cyfuno 14

4. Yna gwiriwch y colofnau yn y brif dabl rydych chi am ddiweddaru'r data yn seiliedig ar y tabl edrych. Cliciwch Digwyddiadau.
doc cyfuno 15

5. Yng ngham 4 y dewin, gwiriwch y colofnau rydych chi am eu hychwanegu o'r tabl edrych i'r prif dabl. Cliciwch Digwyddiadau.
doc cyfuno 16

6. Yng ngham olaf y dewin, nodwch yr opsiynau gosod yn ôl yr angen. Yna cliciwch Gorffen.
doc cyfuno 17

Nawr mae'r prif dabl wedi'i ddiweddaru'r data ac ychwanegu data newydd yn seiliedig ar y tabl edrych.

Demo: Cyfuno taflenni / llyfrau gwaith yn un ddalen neu lyfr gwaith

Kutools for Excel: 200 + offer defnyddiol defnyddiol, gan symleiddio'r tasgau cymhleth yn Excel i ychydig o gliciau.


Dadlwythwch Ffeil Sampl

sampl


Offer Cynhyrchaeth a Argymhellir

Tab Swyddfa - Pori Tabbed, Golygu, Rheoli Dogfennau Yn Microsoft Office 2019 - 2003 Ac Office 365


tab swyddfa

Ychwanegiad Proffesiynol ar gyfer Cyflymu Excel 2019-2007, crebachu tasgau oriau i eiliadau

Mae'r ychwanegiad hwn yn cynnwys dwsinau o grwpiau proffesiynol, gyda 300+ opsiwn yn awtomeiddio'r rhan fwyaf o'ch tasgau dyddiol yn Excel, ac yn cynyddu eich cynhyrchiant o 50% o leiaf. Megis grwpiau o optonau un clic ac addasiadau swp.
Nawr dyma'ch cyfle i gyflymu'ch hun gyda Kutools ar gyfer Excel!


sylwadau (168)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
defnyddio eich swyddogaeth Macro cyntaf. WAW! diolch am bostio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n meddwl bod y cod 'Dewis.Offset(0, 0).Newid Maint(Dewis.Rows.Cyfrif - 1).Dewis' rhaid peidio bod yno. Ar fy mhen i, yr hyn y mae'n ei wneud yw dewis yr ail res ymlaen yn colli'r gyntaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem. Mae'n hepgor y rhes gyntaf o'r ail daflen waith a ychwanegwyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn dileu penawdau fel nad oes gennych benawdau wedi'u dyblygu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio fel swyn, diolch am rannu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Gweithiodd y macro yn berffaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dydw i ddim yn gwybod, sut i ddefnyddio'r swyddogaeth VBN yn excel, a allwch chi helpu sut i wneud hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, diolch!!! Defnyddiol Iawn Iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Macro un yn gweithio'n iawn. Diolch!! Mae'n anhygoel!!!! :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sylwch fod hyn wedi'i gyfyngu gan y terfyn rhes 65k, os oes angen i chi godi'r llinell Selection.Copy Destination:=Taflenni(1).Range("A65536").End(xlUp)(2) ystod i ddatrys y broblem.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Offeryn gwych fodd bynnag, nid yw'n cyfuno pob un o'r 21 tudalen. Sut alla i ehangu'r ystod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
NODYN!!! Mae angen i chi fod yn ofalus gyda'r macro... bydd yn gweithio os oes gan eich data lif parhaus o wybodaeth a dim rhes wag. dyma beth mae'r llinell "Selection.CurrentRegion.Select" yn ei wneud. Er enghraifft, os oes angen i chi gopïo'r HOLL ddata ar daenlen ond bod llinell wag yn rhes 200 (deud i ni), bydd y macro ond yn copïo i lawr i res 200; BYDD YN DDIYSTYRIED YR HOLL DDATA O DAN Y RHES HWNNW!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un yn gwybod gorchymyn i osgoi'r mater hwn ?? Y broblem gyda Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Dewis gellir ei datrys? Selection.Rows.Count - 1) yw'r gorchymyn sy'n tarddu o'r mater. Unrhyw un??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn hytrach na dechrau o'r brig a mynd i lawr, dechreuwch o'r gwaelod ac ewch i fyny
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un yn gwybod y cod i ddatrys problemau rhesi a cholofnau gwag?. Mae gennyf yn fy nata ond nid oes ateb syml fel cychwyn gwaelod i fyny? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar gyfer dileu rhesi sy'n wag: Opsiwn 1: Dewiswch gelloedd yng ngholofn A sydd angen eu dileu. Defnyddiwch Ctrl - ac yna dewiswch Rhes Gyfan mewn naidlen. Arbed llyfr gwaith ac ymadael. Yna agorwch y llyfr gwaith. Opsiwn 2: Dewiswch resi y mae angen eu dileu. Defnyddiwch Ctrl -. Cadw llyfr gwaith ac ymadael Y llyfr gwaith agored. Wedi rhoi opsiwn 1 fel ei fod yn weladwy i chi beth oedd yn digwydd. Ar gyfer dileu colofnau sy'n wag: Dewiswch golofn. Ctrl -. Cadw llyfr gwaith ac ymadael Y llyfr gwaith agored.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes gennym unrhyw ateb i gopïo'r data o dan y gell wag?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch ! Roedd fy 2il res yn wag ym mhob tudalen ac roeddwn i wedi drysu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gweithiodd y cod vba yn wych ond mae angen y daflen waith gyfun arnaf i'w diweddaru wrth i mi ychwanegu rhesi newydd neu ddata newydd i'r celloedd yn y taflenni gwaith yr wyf yn eu cyfuno. A oes ffordd i wneud hynny? Diolch am eich help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd y cod macro yn wych ar gyfer y daflen waith gyfunol gyntaf, ond mae angen y daflen waith gyfunol arnaf i'w diweddaru wrth i mi ychwanegu data at y taflenni gwaith presennol yr wyf yn eu cyfuno. A oes ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A wnaethoch chi erioed ddarganfod sut i'w gael i'w ddiweddaru yn y meistr wrth i chi ychwanegu rhesi at y taflenni gwaith eraill?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwaith ardderchog.. Mae hyn wedi lleihau fy ngwaith o 2 awr i 10 munud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ardderchog, defnyddiais y macro cyntaf a Kutools, mae'r ddau wedi lleihau fy ngwaith casglu data a chrynhoi yn aruthrol. Diolch am Rhannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fi jyst dileu'r rhan a roddir isod ac yn awr mae'n diweddaru yn unig. Gobeithio bod hyn yn helpu... Sheets(1).Dewiswch Taflenni Gwaith.Add
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae cod yn gweithio'n wych! Dwi angen y macro i gopïo'r holl ddata ar y dalennau. Mae'n torri'r rhes gyntaf ar ôl Taflen 1. Dim ond dalen un sydd â'r rhes pennawd, data yn unig yw'r dalennau eraill. Ydy hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i gwestiwn am "Uno pob taflen waith i mewn i un daflen waith gyda chod VBA" : Mae'r cod yn gweithio'n dda iawn, ond dim ond pan fydd yn wag, mae'n ychwanegu'r pennawd, mae'n bosibl addasu'r cod i ddweud peidio â chyfuno'r daflen wag ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch fe wnaethoch chi arbed awr o gopïo a gludo i mi :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cael dau lyfr gwaith, yr un data ond mae gan yr ail un ddata ychwanegol a rhywfaint o ddata wedi'i ddiweddaru, inv# Statws 123 7/2 agor statws inv# 123 7/2 agor 7/7 wedi cau sut i uno i un dileu neu amlygu copïau dyblyg ac ychwanegu unrhyw inv# newydd nad ydynt yn yr un cyntaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych os nad yw eich Colofn A yn = wag. Ar ddalennau gyda cholofn A yn wag, mae'n ymddangos ei fod yn trosysgrifo. Yn fy ngholofn dtaa E, nid yw'n wag ar bob tudalen. Sut gallaf addasu'r Cyrchfan Copïo i gyfrif am golofn wag A ar rai dalennau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-CopiSheet() ' ' CopySheet Macro ' ' Dim i Fel Cyfanrif Ar gyfer i = 2 I 25 Taflen ("Taflen 1"). Dewis Ystod ("A1").Dewiswch Dewis.Diwedd(xlDown).Dewis Ystod("A" & CStr(Selection.Row) + 1).Dewiswch Daflenni("Taflen" & CStr(i)).Dewis Ystod("A2").Dewis Ystod(Dewis, Dewis.Diwedd(xlDown)).Dewis Ystod(Dewisiad,Dewisiad) .Diwedd(xlToRight)).Dewiswch Selection.Cut Sheets("Taflen1").Dewiswch ActiveSheet.Gludwch Is-Ddiwedd Nesaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ystod ("A:A").SpecialCells(xlCellTypeLastCell).Dewiswch ActiveCell.Offset(1, 0).Dewiswch 'defnyddiwch y cod hwn i ddewis y gell olaf yng ngholofn "A" [dyfynbris] Is-gopi Taflen() ' 'Copi Sheet Macro' ' Dim i Fel Cyfanrif Ar gyfer i = 2 I 25 Taflen ("Taflen 1"). Dewis Ystod ("A1"). Dewiswch Dewis.Diwedd(xlDown). Dewiswch Ystod ("A" & CStr(Dewisiad.Row) + 1) .Dewiswch Daflenni("Taflen" & CStr(i)).Dewiswch Ystod("A2").Dewiswch Ystod(Dethol, Dewis.Diwedd(xlDown)).Dewis Ystod(Dewis, Dewis.Diwedd(xlToRight)).Dewis Detholiad .Cut Sheets("Taflen1").Dewiswch ActiveSheet.Gludwch Is-Ddiwedd NesafGan clopez[/ Quote]
Lleihawyd y sylw hwn gan y safonwr ar y wefan
CÔD MACRO GWEITHIO MOR IAWN... SWYDD FAB :-)
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