Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како комбиновати више радних књига са једном радном свеском у Екцелу?

Да ли сте се икада заглавили када морате комбиновати више радних књига у једну радну свеску у Екцелу? Најстрашније је да радна књижица коју желите комбинирати садржи више радних листова. Може ли неко предложити добар начин решавања овог проблема?

Комбинирајте више радних књига у једну радну свеску са ВБА

Комбинирајте више радних књига у једну радну свеску са командом Мове ор Цопи

Једноставно комбинујте више радне свеске у једну радну свеску са Кутоолс за Екцел


Једноставно комбинирајте више радних листова / радне свеске у један радни лист / радну свеску:

Комбинујте више радних листова или радне свеске у један радни лист или радну свеску могу бити велики задатак у свакодневном раду. Али, ако имате Кутоолс за Екцел, његову моћну корисност - Комбиновати може вам помоћи да брзо комбинујете више радних листова, радне свеске у један радни лист или радну свеску. Преузмите пуну функцију КСНУМКС-дан бесплатан траг Кутоолс за Екцел сада!

Кутоолс за Екцел: са више КСНУМКС практичних додатака за Екцел, слободно покушати без ограничења у КСНУМКС данима. Преузмите и пробајте сада!


Комбинирајте више радних књига у једну радну свеску са ВБА

За квалификоване и професионалне програмерере, можете користити ВБА скрипте за комбиновање више радних група у једну главну радну свеску. Овим се можете бавити следећим корацима:

1. Ставите све радне свеске које желите комбинирати у исти директоријум. Погледајте снимак екрана:

2. Покрените Екцел датотеку у коју желите да комбинујете друге радне свеске.

3. Клик Развијач > Висуал Басиц, Нови Мицрософт Висуал Басиц за апликације прозор ће се приказати, кликните Убацити > Модули, и унесите следећи код у модул:

Sub GetSheets()
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

Напојница: У горенаведеном коду, можете променити путању до оне коју користите.

КСНУМКС. Затим кликните доц-мерге-мултипле-воркбоокс-дугме дугме за покретање кода, а сви радни листови (укључујући и празне радне листове) у оквиру радне свеске су спојени у мастер радну свеску.

белешке: Овај ВБА код може спојити читаву радну свеску у мастер радну свеску, ако желите да комбинујете одређене радне листове радне свеске, овај код неће радити.


Комбинирајте више радних књига у једну радну свеску са командом Мове ор Цопи

Ако сте новајлија Мицрософт Екцел-а, немате избора, већ морате само копирати податке сваког листа и ставити их у нову радну свеску један по један и примјеном наредбе Мове ор Цопи. Помоћу Помери или копирај наредба ће вам помоћи да извозите или копирате један или више радних листова у нову радну свеску брзо.

1. Отворите све радне свеске које желите спојити у једну радну свеску.

2. Изаберите сва имена радног листа радне свеске у табулатору. Можете да изаберете вишеструки број са задржавањем Цтрл кључ или смена кључ. Десни клик на име радног листа и кликните на дугме Помери или копирај из контекстног менија.

3. у Помери или копирај дијалог бок, изаберите главну радну свеску на коју желите да спојите друге радне свеске са падајуће листе Померите одабране листове за резервацију. Затим наведите локацију спојених радних листа. Погледајте слике са екрана:

4. Затим кликните OK. Изабрани радни листови су премештени у мастер радну свеску.

5. Поновите кораке од КСНУМКС-а до КСНУМКС-а да бисте премештали друге радне свеске у главну радну свеску. Затим комбинује све радне листове отворених радне свеске у једну радну свеску. Погледајте слике са екрана:


Једноставно комбинујте више радне свеске у једну радну свеску са Кутоолс за Екцел

Срећом, за новајлија и нове руке Мицрософт Екцел-а, постоје неколико доступних алата који ће вам помоћи да брзо комбинујете стотине радне свеске у једну. Функција Комбиновати in Кутоолс за Екцел олакшава комбиновање више Екцел датотека. Апликација се користи за отпуштање поновљених и редундантних операција у Екцелу. Она заправо игра важну улогу уколико се у вашем свакодневном раду бавите великом количином Екцел датотеке. Сада, да видимо како да ова функција ради у комбинацији више радних књига.

Кутоолс за Екцел : са више од КСНУМКС приручних Екцелових додатака, слободно покушати без ограничења у КСНУМКС данима.

КСНУМКС. Омогући Екцел и кликните Кутоолс Плус > Комбиновати. Затим се појављује дијалог који вас подсећа да би требало да сачувате све комбиноване радне свеске и да се ова функција не може применити на заштићене радне свеске, кликните на OK дугме.

2. у Комбинирајте радне листове чаробњак, изаберите Комбинирајте више радних листова из радне свеске у једну радну свеску, а затим кликните на дугме Следећи дугме. Погледајте снимак екрана:

2. Затим можете видети све отворене радне свеске и радне листе су наведене у листи Комбинирајте радне листове - Корак КСНУМКС од КСНУМКС-а Дијалог. Кликните додати > Фајл / фасцикла да додате друге Екцел датотеке или фолдере који садрже Екцел датотеке које ћете комбиновати. Након избора датотека, кликните на дугме Следећи дугме за наставак. Погледајте снимак екрана:

доц спојити више радне свеске арровКСНУМКС

3. у Комбинирајте радне листове - Корак КСНУМКС од КСНУМКС-а дијалог, урадите следећа подешавања:

  • КСНУМКС Можете да искључите све празне радне листе од спајања тако што ћете изабрати Прескочити од Када се сусрећете са празним радним листом падајуће листе.
  • КСНУМКС Проверите Први ред сваког радног листа (Коментар) могућност уноса података о радном листу сваког комбинованог радног листа.
  • КСНУМКС Можете да преименујете нове комбиноване радне листе убацивањем имена радне свеске пре или после оригиналних имена радног листа, или само задржите оригиналне називе радног листа тако што ћете уклонити ознаку Убацивањем имена радне свеске опција.
  • КСНУМКС Кликните на завршити дугме.

4. Затим изаберите фасциклу да бисте сачували комбиновану радну свеску и отворите је директно колико вам је потребно. Сада су сви наведени радни уџбеници спојени у један.

Напомене:

КСНУМКС. Биће вам упитано да ли желите да сачувате овај сценарио. Кликните да да бисте сачували по потреби, а затим унесите име сценарија, (погледајте следеће слике са екрана). Након чувања сценарија, морате кликнути само сценарио да изаберете име сценарија на чаробњаку степКСНУМКС да га директно употребите.

2. Радни листови у изабраним радним уџбеницима спојени су у нову радну свеску, а радни листови се именују са именом радне свеске пре или после првобитног имена радног листа ако сте проверили Убацивањем имена радне свеске опција. У међувремену, нови радни лист именован Кутоолс за Екцел се генерише пре свих радних листа, у којима су наведени радни уџбеници са детаљним информацијама о сваком радном листу. Погледајте снимак екрана:

3. Ако је назив радног листа предугачак, можда су знакови имена већи од КСНУМКС знакова, комбиновано име неће бити приказано, а само ће се појавити оригинално име листа.

Савет.Ако желите да имате бесплатну пробну верзију овог корисничког програма, молимо идите на преузмите софтвер слободно прво, а затим идите да примените операцију према горе наведеним корацима.


Оффице Таб - прегледање, уређивање и управљање табелама у Екцел-у:

Оффице Таб доноси интерфејс са картицама као што се види у веб прегледачима као што су Гоогле Цхроме, Интернет Екплорер нове верзије и Фирефок у Мицрософт Екцел. То ће бити алат који штеди време и неупотребљив у вашем раду. Погледајте испод демо:

Кликните на бесплатну пробну верзију Оффице Таб!

Оффице картица за Екцел

Демо: Једноставно комбинирајте више радне свеске у једну радну свеску са Кутоолс за Екцел




Повезани чланци:



Препоручени алати за продуктивност

Оффице Таб

златна звездаКСНУМКС Дајте практичне картице у Екцел и други Оффице програм, баш као и Цхроме, Фирефок и нови Интернет Екплорер.

Кутоолс за Екцел

златна звездаКСНУМКС Невероватно! Повећајте продуктивност у КСНУМКС минуту. Не требају никакве посебне вјештине, осим два сата сваког дана!

златна звездаКСНУМКС КСНУМКС Нове функције за Екцел, учините Екцел пуно једноставно и моћно:

  • Споји ћелије / редове / колоне без губитка података.
  • Комбинујте и консолидујте више листова и радне свеске.
  • Упоредите опсеге, копирајте више опсега, претворите текст на датум, јединицу и конверзију валута.
  • Цоунт би Цолорс, Пагинг Субтоталс, Адванцед Сорт и Супер Филтер,
  • Више Изабери / Уметни / Обриши / Текст / Формат / Линк / Коментар / Радна свеска / Радни листови Алати ...

Сцреен схот оф Кутоолс за Екцел

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.
    Dezignext Technologies · 3 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 1 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      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
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 1 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      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
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.