Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i rannu llyfr gwaith i wahanu ffeiliau Excel yn Excel?

Sut i rannu llyfr gwaith i wahanu ffeiliau Excel yn Excel?

Efallai y bydd angen i chi rannu llyfr gwaith mawr i wahanu ffeiliau Excel gan arbed pob taflen waith o'r llyfr gwaith fel ffeil Excel unigol. Er enghraifft, gallwch rannu llyfr gwaith yn sawl ffeil Excel unigol ac yna danfon pob ffeil i wahanol berson i'w drin. Trwy wneud hynny, gallwch gael rhai pobl i drin data penodol, a chadw'ch data yn ddiogel. Bydd yr erthygl hon yn cyflwyno ffyrdd i rannu llyfr gwaith mawr i wahanu ffeiliau Excel yn seiliedig ar bob taflen waith.

  1. Rhannwch lyfr gwaith i wahanu ffeiliau Excel gyda chopïo a phastio
  2. Rhannwch lyfr gwaith i wahanu Ffeiliau Excel gyda nodwedd Symud neu Gopïo
  3. Rhannwch lyfr gwaith i wahanu ffeiliau Excel â chod VBA
  4. Rhannwch lyfr gwaith i wahanu ffeiliau Excel / PDF / CSV / TXT gyda Kutools ar gyfer Excel yn hawdd

Rhannwch lyfr gwaith i wahanu ffeiliau Excel gyda chopïo a phastio

Yn arferol, gan ddefnyddio copi gorchymyn a Gludo gall gorchymyn arbed llyfr gwaith fel ffeil Excel ar wahân â llaw. Yn gyntaf, dewiswch y daflen waith gyfan rydych chi am ei chadw fel ffeil ar wahân, creu llyfr gwaith newydd, ac yna ei gludo yn y llyfr gwaith newydd, ar y diwedd mae'n ei arbed.

Mae hon yn ffordd hawdd ei defnyddio os oes angen i chi rannu dim ond ychydig o daflenni gwaith fel ffeiliau ar wahân. Fodd bynnag, rhaid iddo gymryd llawer o amser a diflas i rannu llawer o daflenni gwaith â chopïo a gludo â llaw.


Rhannwch lyfr gwaith i wahanu Ffeiliau Excel gyda nodwedd Symud neu Gopïo

Bydd y dull hwn yn cyflwyno'r nodwedd Symud neu Gopïo i symud neu gopïo'r taflenni a ddewiswyd i lyfr gwaith newydd ac arbed fel llyfr gwaith ar wahân. Gwnewch fel a ganlyn:

1. Dewiswch y dalennau yn y bar tab Dalen, cliciwch ar y dde, a dewiswch Symud neu Gopïo o'r ddewislen cyd-destun. Gweler y screenshot:

Nodyn: Dal Ctrl allwedd, gallwch ddewis nifer o daflenni nad ydynt yn gyfagos trwy eu clicio fesul un yn y bar tab Dalen; daliad Symud allwedd, gallwch ddewis sawl dalen gyfagos gyda chlicio ar yr un gyntaf a'r un olaf yn y bar tab Dalen.

2. Yn y dialog Symud neu Gopïo, dewiswch (llyfr newydd) oddi wrth y I archebu rhestr ostwng, gwiriwch y Creu copi opsiwn, a chliciwch ar y OK botwm. Gweler y screenshot:

3. Nawr mae'r holl daflenni a ddewiswyd yn cael eu copïo i lyfr gwaith newydd. Cliciwch ffeil > Save i achub y llyfr gwaith newydd.

Rhannwch lyfr gwaith yn gyflym i wahanu ffeiliau Excel / PDF / TXT / CSV yn Excel

Fel rheol gallwn rannu llyfr gwaith i ffeiliau Excel unigol gyda'r Symud neu Gopïo nodwedd yn Excel. Ond Kutools ar gyfer Excel's Llyfr Gwaith Hollti gall cyfleustodau eich helpu i rannu llyfr gwaith yn hawdd ac arbed pob taflen waith fel ffeil neu lyfr gwaith PDF / TEXT / CSV ar wahân yn Excel.


llyfr gwaith rhaniad ad yn rhagori

Kutools ar gyfer Excel — Yn cynwys mwy na

300
offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim
30
-diwrnod, dim angen cerdyn credyd! Get It Now

Rhannwch lyfr gwaith i wahanu ffeiliau Excel â chod VBA

Gall y cod VBA canlynol eich helpu i rannu nifer o daflenni gwaith o'r llyfr gwaith cyfredol yn gyflym i wahanu ffeiliau Excel, gwnewch fel a ganlyn:

1. Creu ffolder newydd ar gyfer y llyfr gwaith rydych chi am ei rannu, oherwydd bydd y ffeiliau Excel hollt yn cael eu aros yn yr un ffolder â'r prif lyfr gwaith hwn.

2. Daliwch i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

VBA: Rhannwch lyfr gwaith yn nifer o lyfrau gwaith ac arbedwch yn yr un ffolder

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Gwasgwch y F5 allwedd i redeg y cod hwn. Ac mae'r llyfr gwaith wedi'i rannu i wahanu ffeiliau Excel yn yr un ffolder â'r llyfr gwaith gwreiddiol. Gweler y screenshot:

Nodyn: Os oes gan un o'r taflenni yr un enw â'r llyfr gwaith, ni all y VBA hwn weithio.

Rhannwch lyfr gwaith i wahanu ffeiliau Excel / PDF / CSV / TXT gyda Kutools ar gyfer Excel yn hawdd

Os oes gennych Kutools ar gyfer Excel gosod, ei Llyfr Gwaith Hollti gall offeryn rannu taflenni gwaith lluosog fel ffeiliau Excel ar wahân yn gyfleus ac yn gyflym gyda dim ond ychydig o gliciau.

Kutools ar gyfer Excel — Yn cynwys mwy na

300
offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim
30
-diwrnod, dim angen cerdyn credyd! Get It Now

1. Ar ôl gosod Kutools ar gyfer Excel, Cliciwch Kutools Byd Gwaith > Llyfr Gwaith Hollti , gweler y screenshot:

2. Yn y Llyfr Gwaith Hollti blwch deialog, gwnewch y gweithrediadau canlynol:
(1) Mae holl enwau'r daflen waith yn cael eu gwirio yn ddiofyn. Os nad ydych chi eisiau rhannu rhai o'r taflenni gwaith, gallwch eu dad-dicio;
(2) Gwiriwch y Arbedwch fath opsiwn;
(3) O'r Cadw fel math gwympo, dewiswch un math o ffeil rydych chi am ei rhannu a'i chadw.
(4) Yna cliciwch Hollti botwm.

Nodyn: Os ydych chi am osgoi rhannu'r taflenni gwaith cudd neu wag, gallwch wirio'r Hepgor taflenni gwaith cudd or Hepgor taflenni gwaith gwag blwch.

3. Yn y dialog Pori Am Ffolder, nodwch ffolder cyrchfan i gadw'r ffeiliau ar wahân wedi'u rhannu, a chliciwch ar y OK botwm.

Nawr mae'r taflenni gwaith sydd wedi'u gwirio yn cael eu cadw fel llyfrau gwaith newydd sydd wedi'u gwahanu. Enwir pob llyfr gwaith newydd gydag enw'r daflen waith wreiddiol. Gweler y screenshot:

Kutools ar gyfer Excel's Llyfr Gwaith Hollti offeryn yn ei gwneud hi'n hawdd rhannu llyfr gwaith gweithredol yn ffeiliau Excel unigol (mae un ffeil yn cynnwys un daflen waith), ffeiliau CSV, ffeiliau TXT, neu ffeiliau PDF yn ôl yr angen. Gallwch chi osod i hepgor yr holl daflenni gwaith gwag a chudd. Cael Treial Am Ddim!


Demo: Rhannwch neu arbedwch bob taflen waith o un llyfr gwaith fel ffeiliau excel / txt / csv / pdf ar wahân


Kutools ar gyfer Excel yn cynnwys mwy na
300
offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad
30
diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (112)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ddata mewn 4 taflen wahanol. Enwir Sheet1 fel "A", enwir Sheet2 fel "B", enwir Sheet3 fel "C" ac enwir Sheet4 fel "D". Angen rhannu'r data yn wahanol lyfrau gwaith a dim ond 25 rhes sydd i bob taflen. Dylid enwi enw'r ffeil fel Sheet1 A.xls, Sheet2 A.xls os caiff y data ei gopïo o Daflen A. Unwaith y bydd y Daflen A yn dod yn wag, rhaid iddi gopïo'r data o Daflen B a rhaid parhau â rhif y Ddalen o'r diwedd e.e. Taflen3 B.xls.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn "Rhannu llyfr gwaith i wahanu ffeiliau Excel gyda chod VBA" mae'n gweithio breuddwyd ond nid yw'n cadw fformatio fel celloedd unedig ac aliniad celloedd yn y taenlenni newydd. A oes rhywbeth y gallaf ei ychwanegu fel bod y fformatio yn cael ei gadw yr un fath â'r rhai gwreiddiol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd y cod yn gweithio fel swyn! Do, ni chadwyd pob fformat. Dim problem, serch hynny. I mi, ni chyfunwyd yr holl gelloedd unedig mewn tabl. Peth syml oedd dewis y tabl gwreiddiol, y paentiwr fformat, tynnu sylw at y tabl wedi'i gopïo, a'r voila, cystal â newydd. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Colofn A Cyfeiriad IP Colofn B Enw IP Colofn C IP Cyfradd Pinging Gwir (Hynny yw Statws Pinging gorchymyn) Colofn D IP Cyfradd Pinging Gau (Hynny yw Statws Pinging gorchymyn) Mae'r rhestr enwau ip ac ip i ragori fformat a statws yr un fformat excel( statws gwir neu anghywir)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod anhygoel - achubodd y dydd i mi. Diolch am bostio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael problem yn ychwanegu cod i gadw'r ffeiliau hollt fel ReadOnly. Pam nad yw hyn yn gweithio neu sut mae gwneud hyn? Sub Splitbook() MyPath = ThisWorkbook.Path Ar Gyfer Pob Sht Yn ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats=A ActiveWorkbook_Save:=xlPasteFormats=A FileWorkbook_Save: & "\" &sht.Name & " .xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=Anghywir, ActiveWorkbook.Close savechanges:=Anghywir sht End End Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cyfleuster gwych iawn.., anhygoel...wow...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sgript anhygoel. Mae wedi gweithio fel unrhyw beth i mi. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sgript ddefnyddiol, ond rwy'n edrych am gamau pellach, i ddewis maen prawf o excel a'i ailboblogi'n awtomatig i sawl ffeil
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd dull diolch 1 yn hynod ddefnyddiol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Wedi arbed llawer o ymdrech llaw i mi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd cyfarwyddiadau VBA "yn y fan a'r lle"! ... hyd yn oed i ddechreuwyr! Wedi gweithio'n wych!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiol iawn! Diolch am Rhannu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Help gwych !!! hynod o hawdd a defnyddiol :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi defnyddio hwn ac fe weithiodd. Dim ond yr hyn yr oeddwn ei angen. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych, diolch. Rwyf wedi creu hwn fel ychwanegiad a'i osod. Sut ydw i nawr yn ei redeg pryd bynnag rydw i eisiau (heb orfod copïo a gludo bob tro)? Oes yna fotwm dwi'n ei wthio neu enw ffwythiant dwi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ei Gwall Dangos yn y llinell 8.... xws cpy is error
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd i mi ar ôl i mi gael gwared ar yr Opsiwn Explicit, felly roedd angen diffinio'r newidyn. Fodd bynnag, hoffwn wybod beth ddylai'r newidyn hwn gael ei ddiffinio fel, gan fy mod yn gwerthfawrogi'r opsiwn Option Explicit :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn a'r KUtools ill dau yn dangos gwall ar ôl trosi 222 o ffeiliau ac ar ôl i 222 o ffeiliau roi'r gorau i weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr, A allwch chi anfon manylion ataf sut codio i hollti s
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch ddilyn y codio isod. Codio VBA ar gyfer taflenni hollti Alt+f11 Insert-module-f5 Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = Cais Ffug.DisplayAlerts = Gau Am Bob xWs Yn ThisWorkbook.Sheets xWs. Application.ActiveWorkbook.SaveAs Filename:=xPath &"\" &xWs.Name &" .xls " Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = Gwir Application.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd taflenni gwaith yn gynnyrch adroddiad tabl colyn, mae ffeiliau newydd a grëwyd gan y cod yn dal i gadw cysylltiad â ffynhonnell data a gellir eu newid. a ellir gwneud cod i dorri cysylltiad tabl colyn, neu ychwanegu copi o bob dalen a gorffennol fel gwerthoedd i gael gwared ar y cysylltiad?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Mr Sanjay, ceisiais gyda'r codau mae'n gweithio dim ond ar gyfer ychydig o daflenni ond mae'r ffeil yr wyf yn ceisio ei hollti yn cael bron i 466 o daflenni. A gaf i wybod y codau ar ei gyfer? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf gadw sgript eich modiwl i'r Gweithlyfr Macro PERSONOL i'w ddefnyddio yn y dyfodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwch ddweud wrthyf os gwelwch yn dda sut y gallaf anfon e-byst torfol i gydag atodiad personol yn rhagolygon.. Regrads, Yasir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Yasir, Ni allwch anfon atodiad personol mewn post-uno ag outlook. Oes, ychydig o offer allanol sydd yno ond mae'r rhain yn gostus iawn ac nid ydynt yn ddibynadwy. Gallwch chi wneud hyn gyda Mozilla Thunderbird. Dim ond angen llwytho i lawr post merge add on a gallwch wneud hyn.
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

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL