Ako vykonať zhrnutie zošita na dáta z rôznych zošitov základe

Ak spravujete viac zošitov programu Excel s podobnými údajmi , môžete ich všetky spojiť do jedného súhrnného zošita . To ponecháva pôvodné zošity neporušený a dáva vám jeden zošit použiť ako prehľad . Excel je proces , ľahko prostredníctvom svojho jazyka add - on . Kód môže vyzerať dlhý a zastrašujúce , ale je to celkom jednoduché copy - and - paste práce , ktorá nie je v skutočnosti vyžadujú kódovanie vedomosti alebo skúsenosti . Pokyny dovolená 1

Dajte všetky zošity , ktoré chcete zlúčiť do jednej zložky na vašom počítači .
2

Otvorte nový zošit v programe Excel .
sims 3

Stlačte Alt + F11 . Tým sa otvorí Editor jazyka Visual Basic .
4

zvoľte " modul " z menu " Vložiť " .
5

Skopírujte a vložte nasledujúci VB kód do textového okna :

Sub MergeAllWorkbooks ( )

Dim MyPath As String , FilesInPath As String Dim

MyFiles ( ) As String Dim

SourceRcount tak dlho , FNum As dlhé

Dim MyBook ako zošit , BaseWks ako zošit

Dim sourceRange As Range , destrange ako Rozsah

Dim rnum As Long , CalcMode ako dlho

MyPath = " PATHHERE "

Ak Right ( MyPath , 1 ) < > " \\ " Tak

MyPath = MyPath & " \\ "

End If

FilesInPath = Dir ( MyPath & " * . xl * " )

Ak FilesInPath = " " Tak

MsgBox " Neboli nájdené žiadne súbory "

Exit Sub

End If

FNum = 0

Do Kým FilesInPath < > " "

FNum = FNum + 1

ReDim zachovať myfiles ( 1 Ak chcete FNum )

MyFiles ( FNum ) = FilesInPath

FilesInPath = Dir ( )

Loop

s aplikáciou

CalcMode = . Výpočet

. Výpočet = xlCalculationManual

. ScreenUpdating = False

. EnableEvents = False

End With

Set BaseWks = zošity . Pridať ( xlWBATWorksheet ) . listy ( 1 )

rnum = 1

Ak FNum > 0 Then

FNum = LBound ( MyFiles ) K UBound ( MyFiles )

Nastaviť MyBook = Nothing

On Error Resume Next

Set MyBook = Workbooks.Open ( MyPath & MyFiles ( FNum ) )

On Error GoTo 0

Ak nie MyBook Je Nic Potom

On Error Resume Next

S mybook.Worksheets ( 1 )

Set sourceRange = Range ( " A1 : . C1 " )

End With

Ak err.number > 0 Then

err.Clear

Set sourceRange = Nothing Else

Ak sourceRange.Columns.Count > = BaseWks.Columns.Count Potom

Set sourceRange = Nothing

End If

End If

On Error GoTo 0

Ak nie je sourceRange Je Nic Potom

SourceRcount = sourceRange.Rows.Count

Ak rnum + SourceRcount > = BaseWks.Rows.Count potom

MsgBox " nie je dostatok riadkov v cieľovom listu . "

BaseWks.Columns.AutoFit

mybook.Close SaveChanges : = False

GoTo ExitTheSub

Else

sourceRange

BaseWks.Cells ( rnum , " " ) . _

Resize ( . Rows.Count ) . Value = MyFiles ( FNum )

End With

Set destrange = BaseWks.Range ( " B " a rnum )

S sourceRange

Set destrange = destrange . _

Resize ( . Rows.Count , . Columns.Count )

End With

destrange.Value = sourceRange.Value

rnum = rnum + SourceRcount

End If

End If

mybook.Close SaveChanges : = False

End If

Ďalšie FNum

BaseWks.Columns.AutoFit

End If

ExitTheSub : ..

S aplikáciou

ScreenUpdating = TRUE

EnableEvents = pravda

. Výpočet = CalcMode

End With

End Sub
6

Nahradiť " PATHHERE " na linke 8 s cestou k adresáru so všetkými zošita súborov . Použite formulár . " C : \\ My Documents \\ folder1 \\ Složka2 ... "
7

Stlačte Alt + Q na vytvorenie súhrnnej zošit

• Predchádzajúca strana: Ako Fix BomFileError 5 
• Ďalšia strana: Ako odstrániť viac znakov Ovládacie súboru