Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i gyfuno llyfrau gwaith lluosog yn un prif lyfr gwaith yn Excel?

Ydych chi erioed wedi bod yn sownd pan fydd yn rhaid i chi gyfuno llyfrau gwaith lluosog yn brif lyfr gwaith yn Excel? Y peth mwyaf ofnadwy yw bod y llyfrau gwaith y mae angen i chi eu cyfuno yn cynnwys taflenni gwaith lluosog. A sut i gyfuno dim ond y taflenni gwaith penodol o lyfrau gwaith lluosog yn un llyfr gwaith? Mae'r tiwtorial hwn yn dangos sawl dull defnyddiol i'ch helpu i ddatrys y broblem fesul cam.


Yn hawdd cyfuno llyfrau gwaith lluosog yn un yn Excel:

y Cyfunwch cyfleustodau llyfrau gwaith Kutools ar gyfer Excel Gall eich helpu i gyfuno ffeiliau Excel lluosog yn hawdd. Eithr, mae'n caniatáu i chi gyfuno'r taflenni gwaith penodol o ffeiliau Excel penodol â meistrlyfr gwaith yn hawdd. Lawrlwythwch y llwybr llawn 60 diwrnod llawn nawr!

Cyfuno llyfrau gwaith lluosog ag un llyfr gwaith gyda swyddogaeth Symud neu Gopïo

Os mai dim ond ychydig o lyfrau gwaith sydd angen eu cyfuno, gallwch ddefnyddio'r gorchymyn Symud neu Gopïo i symud â llaw neu gopïo taflenni gwaith o'r llyfr gwaith gwreiddiol i'r prif lyfr gwaith.

1. Agorwch y llyfrau gwaith y byddwch yn eu cyfuno'n brif lyfr gwaith.

2. Dewiswch y taflenni gwaith yn y llyfr gwaith gwreiddiol y byddwch yn eu symud neu eu copïo i'r prif lyfr gwaith.

Nodiadau:

1). Gallwch ddewis nifer o daflenni gwaith nad ydynt yn gyfagos â dal y Ctrl allwedd a chlicio'r tabiau fesul un.

2). I ddewis nifer o daflenni gwaith cyfagos, cliciwch ar y tab taflen gyntaf, daliwch y Symud yna cliciwch ar y tab dalen olaf i'w dewis nhw i gyd.

3). Gallwch dde-glicio ar unrhyw dablen, cliciwch ar Dewiswch Pob Taflen o'r ddewislen cyd-destun i ddewis yr holl daflenni gwaith yn y llyfr gwaith ar yr un pryd.

3. Ar ôl dewis y taflenni gwaith sydd eu hangen, cliciwch y tab ar y dde, ac yna cliciwch Symud neu Gopïo o'r ddewislen cyd-destun. Gweler y sgrin:

4. Yna y Symud neu Gopïo deialog yn ymddangos, yn y I archebu cwympo, dewiswch y prif lyfr gwaith y byddwch yn ei symud neu'n copïo taflenni gwaith ynddo. Dewiswch symud i ddod i ben yn y Cyn taflen blwch, gwiriwch y Creu copi blwch, ac yn olaf cliciwch y OK botwm.

Yna gallwch weld taflenni gwaith mewn dau lyfr gwaith wedi'u cyfuno'n un. Ailadroddwch y camau uchod i symud taflenni gwaith o lyfrau gwaith eraill i'r prif lyfr gwaith.

Tab Swyddfa - ychwanegyn arbed amser real!

Dangoswch yr holl ddogfennau sydd wedi'u hagor mewn un ffenestr i helpu i ddod o hyd i ddogfen sydd ei hangen yn gyflym.

Nodwedd llawn treial am ddim 45-day. Yn cyd-fynd â phob fersiwn o Excel, Word a PowerPoint.

GWYBOD MWY AM YCHWANEGIAD>

Cyfuno llyfrau gwaith lluosog neu daflenni gwaith penodol â meistrlyfr gwaith gyda VBA

Os oes angen cyfuno llyfrau gwaith lluosog, gallwch gymhwyso'r codau VBA canlynol i'w gyflawni'n gyflym. Gwnewch fel a ganlyn.

1. Rhowch yr holl lyfrau gwaith rydych chi am eu cyfuno yn un o dan yr un cyfeiriadur.

2. Lansio ffeil Excel (y llyfr gwaith hwn fydd y prif lyfr gwaith).

3. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer ceisiadau ffenestr. Yn y Microsoft Visual Basic ar gyfer ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copi isod y cod VBA i mewn i ffenestr y Modiwl.

Cod VBA 1: Cyfuno llyfrau gwaith Excel lluosog yn un

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Nodiadau:

1. Bydd y cod VBA uchod yn cadw enwau taflenni'r llyfrau gwaith gwreiddiol ar ôl uno.

2. Os ydych chi am wahaniaethu pa daflenni gwaith yn y prif lyfr gwaith a ddaeth o ble ar ôl uno, defnyddiwch y cod VBA isod 2.

3. Os ydych chi am gyfuno taflenni gwaith penodedig y llyfrau gwaith yn brif lyfr gwaith, gall y cod VBA isod 3 eich helpu.

Yn y codau VBA, “C: Defnyddwyr DT168 Bwrdd Gwaith KTE"Yw'r llwybr ffolder. Yn y cod VBA 3, "Sheet1, Sheet3"yw'r taflenni gwaith penodedig y byddwch yn eu cyfuno â phrif lyfr gwaith. Gallwch eu newid yn seiliedig ar eich anghenion.

Cod VBA 2: Cyfuno Llyfrau Gwaith yn un (bydd pob taflen waith yn cael ei enwi gyda rhagddodiad ei enw ffeil gwreiddiol):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Cod VBA 3: Cyfuno taflenni gwaith penodedig o lyfrau gwaith yn feistrlyfr gwaith:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Gwasgwch y F5 allwedd i redeg y cod. Yna caiff yr holl daflenni gwaith neu daflenni gwaith penodedig y llyfrau gwaith yn y ffolder benodol eu cyfuno i brif lyfr gwaith ar unwaith.

Yn hawdd cyfuno llyfrau gwaith lluosog neu daflenni penodol o lyfrau gwaith i un llyfr gwaith

Kutools ar gyfer Excel

Mae'n hychwaneg Excel ychwanegu i mewn sy'n casglu mwy na 300 nodweddion uwch i symleiddio eich gwaith mewn gweithrediadau Excel. Gyda hi, gallwch yn hawdd:

  • Cyfuno llyfrau aml-waith;
  • Cyfrif / crynhoi celloedd yn ôl lliw;
  • Celloedd hollt;
  • Symud swp o leoedd;
  • Mwy o nodweddion ...

AM DDIM YN DDEFNYDDIWCH NAWR!

Yn ffodus, mae'r Cyfunwch cyfleustodau llyfr gwaith o Kutools ar gyfer Excel mae'n ei gwneud yn llawer haws cyfuno llyfrau gwaith lluosog yn un. Gadewch i ni weld sut i gael y swyddogaeth hon i gyfuno llyfrau gwaith lluosog.

1. Creu llyfr gwaith newydd a chlicio Kutools Mwy > Cyfunwch. Yna, mae deialog yn eich atgoffa y dylid cadw'r holl lyfrau gwaith cyfunol ac ni ellir defnyddio'r nodwedd i lyfrau gwaith diogelu, cliciwch ar y OK botwm.

2. Yn y Cyfuno Taflenni Gwaith dewin, dewiswch Cyfuno taflenni gwaith lluosog o lyfrau gwaith i mewn i un llyfr gwaith opsiwn, ac yna cliciwch ar nesaf botwm. Gweler y sgrin:

3. Yn y Cyfuno Taflenni Gwaith - Cam 2 o 3 blwch deialog, cliciwch ar Ychwanegu > ffeil or Ffolder i ychwanegu'r ffeiliau Excel byddwch yn uno yn un. Ar ôl ychwanegu'r ffeiliau Excel, cliciwch y Gorffen botwm a dewis ffolder i achub y prif lyfr gwaith. Gweler y llun:

Nawr mae'r holl lyfrau gwaith yn cael eu cyfuno'n un.

O'i gymharu â'r ddau ddull uchod, Kutools ar gyfer Excel Mae ganddo'r manteision canlynol:

  • 1) Rhestrir pob llyfr gwaith a thaflen waith yn y blwch deialog;
  • 2) Ar gyfer y taflenni gwaith yr ydych am eu heithrio rhag uno, dad-dorrwch ef;
  • 3) Mae taflenni gwaith gwag yn cael eu gwahardd yn awtomatig;
  • 4) Ychwanegir enw gwreiddiol y ffeil fel rhagddodiad i enw'r daflen ar ôl uno;
  • Am fwy o swyddogaethau'r nodwedd hon, ewch yma.

Ydy hyn yn Cyfuno llyfrau gwaith cymorth cyfleustodau? Gadewch i ni lawrlwytho a rhoi cynnig ar y nodwedd llawn treial rhad ac am ddim 60-day!

Offer Cynhyrchiant a Argymhellir ar gyfer Microsoft Office

Tab Tab - Pori, Golygu, a Rheoli Tabbed mewn Excel / Word / PowerPoint:

Tab Swyddfa yn dod â'r rhyngwyneb tabbed fel y gwelir mewn porwyr gwe fel Google Chrome, fersiynau newydd Internet Explorer a Firefox i Microsoft Excel / Word / PowerPoint. Bydd yn offeryn arbed amser ac yn unigryw yn eich gwaith. Gweler isod demo:

ot1

Kutools for Excel - Yn Cyfuno Mwy na 300 Swyddogaethau Uwch ac Offer ar gyfer Microsoft Excel:

Kutools ar gyfer Excel yn Excel hylaw ychwanegu i mewn gyda mwy na nodweddion uwch 300 i symleiddio gwahanol fathau o dasgau cymhleth i mewn i rai cliciau yn Excel. Er enghraifft:

  • Cyfunwch daflen waith neu lyfrau gwaith lluosog i mewn i un llyfr gwaith
  • Cyfrifwch a chyfyngu celloedd yn seiliedig ar liw cefndir / ffont
  • Rhannwch gynnwys celloedd mewn rhesi / colofnau lluosog gan ofod / coma / delimiter
  • Swp Dileu lleoedd blaenllaw mewn celloedd
kte

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dr. Paul B. · 4 years ago
    That code was great! Thanks so much.
  • To post as a guest, your comment is unpublished.
    Aren · 4 years ago
    I use an app rather than code and recode. Data Amalgamation by pasync
  • To post as a guest, your comment is unpublished.
    khar booza · 4 years ago
    This is very hard, is it possible you can do it for me?
  • To post as a guest, your comment is unpublished.
    Niki Foster · 4 years ago
    None of these worked for me

    I finally got this one to work. FYI I am using 2010

    'Description: Combines all files in a folder to a master file.
    Sub MergeFiles()
    Dim path As String, ThisWB As String, lngFilecounter As Long
    Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
    Dim Filename As String, Wkb As Workbook
    Dim CopyRng As Range, Dest As Range
    Dim RowofCopySheet As Integer

    RowofCopySheet = 2 ' Row to start on in the sheets you are copying from

    ThisWB = ActiveWorkbook.Name

    path = "mypath....." ' Dont't forget to change this

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Set shtDest = ActiveWorkbook.Sheets(1)
    Filename = Dir(path & "\*.xls", vbNormal)
    If Len(Filename) = 0 Then Exit Sub
    Do Until Filename = vbNullString
    If Not Filename = ThisWB Then
    Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
    Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
    Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
    CopyRng.Copy Dest
    Wkb.Close False
    End If

    Filename = Dir()
    Loop

    Range("A1").Select

    Application.EnableEvents = True
    Application.ScreenUpdating = True

    MsgBox "Done!"
    End Sub
    • To post as a guest, your comment is unpublished.
      Mohideen · 2 years ago
      HI , I have multiple Excel File (single sheet) different folder with password protection. i want end of the day combine all data to one Master file. Every time I have to Enter password and open the file and copy paste to master file.. Kindly help me with VBA code for this please.
    • To post as a guest, your comment is unpublished.
      michelle · 4 years ago
      How do I edit this so that the data pulled in always starts on the top row? If I run this code twice, it adds the data to the end of my previous data (from the first run of the macro).
      • To post as a guest, your comment is unpublished.
        orivera · 4 years ago
        Change this line:

        RowofCopySheet = 2

        to

        RowofCopySheet = 1
  • To post as a guest, your comment is unpublished.
    Ginger41 · 4 years ago
    Try this out...I got this from another site but unfortunately I can't remember the lady's name so my apologies for not giving her a mention, my bad"

    Combine multiple WB's in Excel:
    REMEMBER TO CHANGE MyPath = !

    Sub Merge2MultiSheets()
    Dim wbDst As Workbook
    Dim wbSrc As Workbook
    Dim wsSrc As Worksheet
    Dim MyPath As String
    Dim strFilename As String

    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    MyPath = "\\MyPath\etc\etc..."
    Set wbDst = Workbooks.Add(xlWBATWorksheet)
    strFilename = Dir(MyPath & "\*.xls", vbNormal)

    If Len(strFilename) = 0 Then Exit Sub

    Do Until strFilename = ""

    Set wbSrc = Workbooks.Open(Filename:=MyPath & "\" & strFilename)

    Set wsSrc = wbSrc.Worksheets(1)

    wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count)

    wbSrc.Close False

    strFilename = Dir()

    Loop
    wbDst.Worksheets(1).Delete

    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True

    End Sub
    • To post as a guest, your comment is unpublished.
      Ghulam · 1 years ago
      Hi
      I added the code into a module. Named the Excel book Masterfile.

      Where in the code do I add. thank you