İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir çox iş kitabını Excel-də bir master çalışma kitabına necə birləşdirmək olar?

Bir çox iş kitabını Excel-də bir master iş kitabına birləşdirməlisiniz. Ən dəhşətli bir şey, birləşməmiz lazım olan iş kitablarının bir çox iş səhifəsi içərisidir. Yalnız bir neçə iş kitabının müəyyən iş kitablarını bir iş kitabçasına necə birləşdirmək olar? Bu təlimat, addımlar ilə problem addımlarını həll etməyə kömək etmək üçün bir neçə faydalı üsul nümayiş etdirir.


Asanlıqla birdən çox iş kitabını Excel-də birləşdirin:

The Birləşdirmək iş dəftərlərinin faydası Excel üçün Kutools asanlıqla birdən çox Excel faylını birinə birləşdirməyə kömək edə bilər. Bununla yanaşı, müəyyən Excel fayllarının göstərilən iş kitablarını asanlıqla bir master kitabçasına birləşdirməyə imkan verir. 60 gün tam xüsusiyyətini tam xüsusiyyətini indidən yükləyin!

Bir çox iş kitabını Move və ya Copy funksiyası ilə bir iş kitabına birləşdirin

Yalnız bir neçə iş kitabının birləşməsi lazımdırsa, köçürmək və ya köçürmək komutunu iş kitabçalarını orijinal kitabçadan master iş kitabına köçürmək və ya kopyalamaq üçün istifadə edə bilərsiniz.

1. Bir master çalışma kitabına daxil edəcəyiniz iş kitablarını açın.

2. Orijinal iş kitabında köçürüləcək və ya ana iş kitabçasına kopyalayacağınız iş səhifələri seçin.

Qeydlər:

1). Birdən çox bitişik olmayan iş kitabını tutaraq seçə bilərsiniz Ctrl düyməsini basın və hesabatı bir-birinə basıb saxlayın.

2). Bir çox bitişik iş səhifəsini seçmək üçün, ilk hesabat sekmesini basın və saxlayın ÜstKrkt düyməsini basın və sonra hamısını seçmək üçün son hesabatı sekmesini basın.

3). Hər hansı bir hesabatı seksiyasına sağ tıklaya bilərsiniz, üzərinə basın Bütün Çarşafları seçin kontekst menyusundan eyni zamanda iş kitabında bütün iş səhifələri seçmək üçün.

3. Lazımi işlər seçildikdən sonra, hesabat sekmesini sağa vurun və sonra basın Taşı və ya Kopyala kontekst menyusundan. Ekran görüntüsünə baxın:

4. Sonra da Taşı və ya Kopyala dialoq açılır Kitab üçün açılır menyudan hərəkət etməli və ya kopyalayacağınız master iş kitabını seçin. Sonuna keçmək üçün seçin Səthdən əvvəl qutusuna baxın Bir surət yaradın qutusu və nəhayət basın OK düyməsini basın.

Sonra iki səhifədən birinə birləşdirilmiş iş kitablarını görə bilərsiniz. Çalışma kitablarını digər iş kitablarından master iş kitabına keçmək üçün yuxarıda göstərilən addımları təkrarlayın.

Office Tab - real-time-saver add-in!

Bir sənəddə lazımlı sənədləri tez bir zamanda tapmaq üçün bütün açıq sənədləri bir pəncərədə göstərin.

Tam xüsusiyyət pulsuz sınaq 45-gün. Excel, Word və PowerPoint'in hər versiyasına uyğun gəlir.

ADD-IN haqqında daha ətraflı məlumat edin

VBA ilə bir çox iş kitabını və ya iş kitablarının müəyyən edilmiş səhifələrini bir usta iş kitabına birləşdirin

Bir çox iş kitabının birinə birləşməsi lazım olduqda, bunu tez bir zamanda əldə etmək üçün aşağıdakı VBA kodlarını tətbiq edə bilərsiniz. Xahiş edirik bunu edin.

1. Eyni kataloq altında birləşdirmək istədiyiniz bütün iş kitablarını qoyun.

2. Excel faylını başladın (bu iş kitabı master iş kitabı olacaq).

3. Basın Dayandırmaq + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules, sonra VBA kodu aşağıda Module pəncərəsinə kopyalayın.

VBA kodu 1: Birdən çox Excel iş kitabını birinə birləşdirin

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
	

Qeydlər:

1. Yuxarıda göstərilən VBA kodu birləşdikdən sonra orijinal iş kitabçalarının adını saxlayır.

2. Master çalışma kitabında hansı iş səhifələri birləşdirildikdən sonra gəldiklərini ayırmaq istəsəniz, 2-in aşağıda göstərilən VBA kodunu tətbiq edin.

3. Yalnız iş kitablarının müəyyən edilmiş bir iş kitabını bir master iş kitabına birləşdirmək istəyirsinizsə, aşağıdakı VBA kodu 3 kömək edə bilər.

VBA kodlarında "C: \ Users \ DT168 \ Desktop \ KTE \"Qovluq yoludur. 3 VBA kodunda "Sheet1, Sheet3"bir master çalışma kitabına birləşdirəcək iş kitablarının müəyyənləşdirilmiş iş yerləridir. Onları ehtiyaclarınıza əsasən dəyişə bilərsiniz.

VBA kodu 2: İş kitabını birinə birləşdirin (hər bir iş səhifəsi özünün faylının adı ilə öndələnəcək):

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

VBA kodu 3: İş kitablarının müəyyən iş kitablarını master iş kitabına birləşdirin:

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. Basın F5 kodu açmaq üçün düyməni basın. Sonra bütün iş kitabları və ya müəyyən qovluqdakı iş kitablarının müəyyən iş səhifələri bir dəfə bir usta iş kitabına birləşdirilir.

Asanlıqla bir çox iş kitabını və ya iş kitablarının müəyyən səhifələrini bir iş kitabına birləşdirin

Excel üçün Kutools

Excel əməliyyatlarında işinizi sadələşdirmək üçün 300-dən çox inkişaf etmiş xüsusiyyətləri toplayan faydalı bir Excel əlavə edir. Bununla asanlıqla edə bilərsiniz:

  • Çox iş dəftərlərini birləşdirin;
  • Rənglə say / yekun hüceyrələri;
  • Split hüceyrələr;
  • Batch boşluqları çıxarın;
  • Daha çox funksiya ...

NOW PULSUZ DOWNLOAD!

Xoşbəxtlikdən Birləşdirmək iş dəftəri proqramı Excel üçün Kutools birdən çox iş kitabını birinə birləşdirmək daha asan olur. Bir çox iş kitabını birləşdirmək üçün bu funksiyanı necə əldə edə biləcəyik.

1. Yeni bir iş kitabı yaradın və vurun Kutools Plus > Birləşdirmək. Daha sonra birləşdirilmiş bütün iş kitablarının saxlanılmasını və xüsusiyyət qorunan iş kitablarına tətbiq oluna bilməyəcəyini xatırlatmaq üçün bir dialoq açılır. OK düyməsini basın.

2. İçində İşləri birləşdirin sihirbazı seçin Bir çox iş kitabını iş kitabından bir iş kitabına birləşdirin seçimi seçin və sonra basın sonrakı düyməsini basın. Ekran görüntüsünə baxın:

3. İçində Worksheets birləşdirin - 2-dən 3 addım informasiya qutusuna basın əlavə etmək > fayl or Qovluq Excel fayllarını birinə birləşdirəcək əlavə etmək. Excel fayllarını əlavə etdikdən sonra, basın finiş düyməsini basın və master çalışma kitabını saxlamaq üçün bir qovluq seçin. Ekran görüntüsünə baxın:

İndi bütün iş kitabları birinə birləşdirilir.

Yuxarıda göstərilən iki üsulla müqayisədə, Excel üçün Kutools aşağıdakı üstünlüklərə malikdir:

  • 1) Bütün iş kitabları və iş dəftəri dialoq qutusuna daxil edilir;
  • 2) Birləşmədən istisna etmək istəmədiyiniz iş səhifələri üçün sadəcə silin.
  • 3) Blank iş yerləri avtomatik olaraq istisna edilir;
  • 4) Orijinal fayl adı birləşdirildikdən sonra hesabat adına ön əlavə olaraq əlavə olunacaq;
  • Bu funksiyanın daha çox funksiyası üçün, burada ziyarət edin.

Bunu edirmi? İş kitablarını birləşdirin kommunal yardım? 60-gün tam xüsusiyyətli sınaq versiyasını indirək və sınaqdan keçirək!

Microsoft Office üçün təqdim məhsuldarlıq vasitələri

Office Tab - Sekmeli tarama, redaktə etmə və Excel / Word / PowerPoint-də idarə:

Office Tab Google Chrome, İnternet Explorer yeni versiyaları və Firefox kimi Microsoft Excel / Word / PowerPoint kimi veb brauzerlərdə göründüyü sekmeli interfeysi gətirir. Bu zaman qənaət vasitəsidir və işinizdə əvəzsizdir. Aşağıdakı demoqoyra baxın:

ot1

Excel üçün Kutools - 300-dən daha çox birləşir Microsoft Excel üçün inkişaf etmiş funksiyaları və alətləri:

Excel üçün Kutools Excel-də bir neçə klikə daxil olan mürəkkəb vəzifələrin müxtəlif növlərini asanlaşdırmaq üçün 300-dən çox inkişaf etmiş xüsusiyyətlərə malik daha əlverişli bir Excel-lərdir. Misal üçün:

  • Bir çox iş səhifəsini və ya iş kitabını bir iş kitabçasına birləşdirin
  • Arka plan / yazı tipi rənglərinə əsaslanan say və cəmi hüceyrələr
  • Split hüceyrə məzmunu birdən çox satır / sütuna boşluq / virgül / ayırıcı ilə daxil edin
  • Batch Hücrelərdə aparıcı boşluqları çıxarın
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.
    Adam Grise · 1 years ago
    This code is great. One question.

    The team I'm building a workbook for gets data from several external sources, and many of the sheets appear similar and have the same name. This makes it hard to identify the sources of data just by looking at the sheets. However, each workbook will have a different file name.

    For example, if I pull in three files: Book1, Book2, Book3, and each of them has two sheets: SheetA, SheetB... After all is said and done, there isn't a clear way to distinguish which sheets came from where, since the sheet names will just be: SheetA, SheetB, SheetA (2), SheetB (2), SheetA (3), SheetB (3).

    Instead if they could be renamed to SheetABook1, SheetBBook1, SheetABook2, SheetBBook2, etc. they'd be more identifiable. Is there a way to have the VBA tack on the file name to the existing sheet names?
    • To post as a guest, your comment is unpublished.
      Adam Grise · 1 years ago
      Update: I have discovered that there is *just* enough variance in column headers such that I can identify which is which, and from there I can rename the sheets based on those properties. It appears that will work for now, but I'd be curious if it's still possible to do what I'd originally thought.
  • To post as a guest, your comment is unpublished.
    jay · 1 years ago
    Run-time error '1004':
    Copy method of worksheet class failed
  • To post as a guest, your comment is unpublished.
    kevin · 1 years ago
    I am using the code below to combined sheet 1 of multiple workbooks, but now I actually need to combine sheet 2 of multiple work books. Can any one please help me with what I need to change on the coding to combine sheet 2 instead of sheet 1.

    Sub MergeFilesWithoutSpaces()
    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 ThisWB = ActiveWorkbook.Name

    path = "c:\Test\"

    RowofCopySheet = 2

    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(Cells(Rows.Count, 1).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
    Set Dest = shtDest.Range("A" & shtDest.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    CopyRng.Copy
    Dest.PasteSpecial xlPasteFormats
    Dest.PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False 'Clear Clipboard'
    Wkb.Close False

    End If

    Filename = Dir()

    Loop

    End Sub
    • To post as a guest, your comment is unpublished.
      Emile Keyser · 1 years ago
      Hi, I run into an syntaxis error while I execute this code (I also need just to combine sheet 1 from around 250 seperate .xls files into one file). I am not a VBA specialist.


      This below pops up in yellow.
      Sub MergeFilesWithoutSpaces()

      Another question: do I need to replace the "c:\test\"path by my path where these 250 .xls are stored?
      Any other modifications to this code?


      Much appreciated!
  • To post as a guest, your comment is unpublished.
    Hitesh · 1 years ago
    i want to combine data from multiple work books (excel file) whc includes 8 sheets
  • To post as a guest, your comment is unpublished.
    Lawrance · 1 years ago
    Error Line: Workbooks.Open Filename:=