Note: The other languages of the website are Google-translated. Back to English

Sut i greu taflenni newydd ar gyfer pob rhes yn Excel?

Gan dybio bod gennych dabl sgôr gydag enw pob myfyriwr yng ngholofn A. Nawr rydych chi am greu dalennau newydd yn seiliedig ar yr enwau hyn yng ngholofn A, ac mae gwneud fesul dalen yn cynnwys data myfyriwr unigryw. Neu dim ond creu dalen newydd ar gyfer pob rhes yn y tabl yn unig heb ystyried yr enwau yng ngholofn A. Yn y vedio hwn, fe gewch chi ddulliau i'w gyflawni.

Creu taflenni newydd ar gyfer pob rhes gyda chod VBA
Creu taflenni newydd ar gyfer pob rhes gyda chyfleustodau Hollti Data Kutools ar gyfer Excel


Creu taflenni newydd ar gyfer pob rhes gyda chod VBA

Gyda'r codau canlynol, gallwch greu taflen newydd yn seiliedig ar werthoedd colofnau, neu ddim ond creu taflenni newydd ar gyfer pob rhes yn Excel.

1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Ac yna gludwch y cod canlynol i'r Modiwlau ffenestr.

Cod VBA: creu taflen newydd ar gyfer pob rhes yn seiliedig ar golofn

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Nodyn: A1: C1 yw ystod teitl eich tabl. Gallwch ei newid yn seiliedig ar eich anghenion.

3. Gwasgwch F5 allwedd i redeg y cod, yna crëir taflenni gwaith newydd ar ôl holl daflenni gwaith y llyfr gwaith cyfredol fel y nodir isod:

Os ydych chi am greu taflenni newydd yn uniongyrchol ar gyfer pob rhes heb ystyried gwerth y golofn, gallwch ddefnyddio'r cod canlynol.

Cod VBA: Creu taflen newydd yn uniongyrchol ar gyfer pob rhes

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Ar ôl rhedeg y cod, bydd pob rhes mewn taflen waith weithredol yn cael ei rhoi mewn taflen waith newydd.

Nodyn: Bydd y rhes bennawd hefyd yn cael ei rhoi mewn dalen newydd gyda'r cod VBA hwn.


Creu taflenni newydd ar gyfer pob rhes gyda chyfleustodau Hollti Data Kutools ar gyfer Excel

Mewn gwirionedd, mae'r dull uchod yn gymhleth ac yn anodd ei ddeall. Yn yr adran hon, rydym yn cyflwyno'r Data Hollti cyfleustodau Kutools ar gyfer Excel.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

1. Dewiswch y tabl y mae angen i chi ei ddefnyddio i greu taflenni newydd, ac yna cliciwch Kutools Byd Gwaith> Data Tafod. Gweler y screenshot:

2. Yn y Rhannwch Ddata yn Daflenni Gwaith Lluosog blwch deialog, gwnewch fel a ganlyn.

A. Ar gyfer creu taflenni newydd yn seiliedig ar werth colofn:

1). Dewiswch y Colofn benodol opsiwn, a nodwch golofn yr ydych am rannu data yn seiliedig arni yn y gwymplen;
2). Os ydych chi am enwi'r taflenni gwaith gyda gwerthoedd colofn, dewiswch Gwerthoedd y Golofn yn y Rheolau rhestr ostwng;
3). Cliciwch y OK botwm. Gweler y screenshot:

B. Ar gyfer creu dalennau newydd yn uniongyrchol ar gyfer pob rhes:

1). Dewiswch Rhesi sefydlog opsiwn, nodwch rif 1 i mewn i'r blwch;
2). Dewiswch Rhifau Row oddi wrth y Rheolau rhestr ostwng;
3). Cliciwch y OK botwm. Gweler y screenshot:

mae llyfr gwaith newydd yn cael ei greu gyda'r holl ddalenni newydd y tu mewn. Gweler y sgrinluniau isod.

Creu taflenni newydd ar gyfer pob rhes yn seiliedig ar werth colofn:

Creu taflen newydd ar gyfer pob rhes heb ystyried gwerth colofn:

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.

Creu taflenni newydd ar gyfer pob rhes gyda chyfleustodau Hollti Data Kutools ar gyfer Excel


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 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 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 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 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (30)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am greu taflenni gwaith yn seiliedig ar fy ffeil templed Myformat a'u henwi yn unol â data'r golofn gyntaf. Addasais y cod VBA fel a ganlyn, ond mae'n cynhyrchu gormod o ddalennau gwag. A fyddech cystal â fy helpu i roi'r gorau i gynhyrchu dalennau gwag. Diolch. Kumar Sub AddSheets() Dim cell Fel Excel.Range Dim wsWithSheetNames Fel Excel.Worksheet Dim wbToAddSheetsTo Fel Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Ar Gyfer Pob cell Yn wsWithSheetNames.Range("A2:A165") Gyda wsWithSheetNames.Range("A1004:A0"). Ychwanegu After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Ar Gwall Ail-ddechrau Nesaf ActiveSheet.Name = cell.Value If Err.Number = XNUMX Yna Debug.Print cell.Value & " eisoes wedi'i ddefnyddio fel enw dalen" Diwedd Os Ar Gwall Ewch i XNUMX Diwedd Gyda gell Nesaf Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rwyf bob amser yn cael 2 ddalen fesul cofnod unigryw ar A row. Unrhyw syniad pam? Hefyd, pa mor anodd fyddai rhagamcanu cyfanswm y rhesi y mae'r ddalen a gynhyrchir yn eu creu i enw'r ddalen. Diolch yn fawr iawn! Rhowch wybod i mi os ydych chi'n cymryd rhoddion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am ddefnyddio fy nhempled ffeil exel MyFormat i gynhyrchu taflenni gwaith ac enwi'r taflenni gwaith yn ôl y data ar y golofn gyntaf. Mae'r cod VBA canlynol yn gweithio'n iawn i gynhyrchu'r taflenni gwaith yn unol â MyFormat. Ond mae'n cynhyrchu cannoedd o ddalennau gwag ar excel templete arferol hefyd. A allai rhywfaint o gorff fy helpu i roi'r gorau i gynhyrchu taflenni gwag gormodol. Diolch Kumar Is AddSheets() Dim cell Fel Excel.Range Dim wsWithSheetNames Fel Excel.Worksheet Dim wbToAddSheetsTo Fel Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Ar gyfer Pob cell Yn wsWithSheetNames.Range("A2:A165") .Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Ar Gwall Ail-ddechrau Nesaf ActiveSheet.Name = cell.Value If Err.Number = 1004 Yna Debug.Print cell.Value & " eisoes wedi'i ddefnyddio fel enw dalen" Diwedd Os Ar Gwall Ewch i 0 Diwedd Gyda gell Nesaf Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Taflenni Gwaith Rhaid i enwau fod yn llai na neu'n hafal i dri deg nod.
Ddim yn wybodaeth gyffredin iawn, ond fel arall bydd y cod yn allbynnu taflen waith wag "Taflen #" ddiofyn.

Creu taflen waith newydd y bydd eich cod dosrannu yn rhedeg drwyddi a chyfeirio at y golofn gyntaf fel a ganlyn:
=IF(NEU('Wreiddiol Cyfeirnod'! B1<>"", LEN('Cyfeiriadol Gwreiddiol'!B1)>30), LEFT('Cyfeiriedig Gwreiddiol'! B1,30), 'Cyfeiriedig Gwreiddiol'!B1)


Naill ai copïwch neu cyfeiriwch at weddill y ddalen fel y gallwch. Gwnewch yn siŵr bod y golofn yn rhydd o gyfyngiadau dilysu data os cewch unrhyw broblemau wrth gyfeirio at y daflen waith arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am bostio hwn!!!! Wedi gweithio fel swyn. Allwch chi egluro sut mae'r set gyntaf o god yn gweithio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Iaw,

Sut ydych chi'n golygu "esboniwch sut mae'r cod yn gweithio"? Mae'n ddrwg gennyf allu cael eich pwynt.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi am hyn!



Yn y cod VBA a oes yna beth bynnag i enwi'r dalennau canlyniadol o ddata rhes y golofn gyntaf a'r ail golofn wedi'u cyfuno?



felly ar gyfer eich enghraifft byddai taflen 2 yn cael ei henwi'n awtomatig yn "linda 100"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Joyce,
Diolch i chi am eich sylw! Gobeithio y gall y sgript VBA isod eich helpu chi.

Is-ddosbarthu_data()
Dim xRCCyfrif Cyhyd
Dim xSht Fel Taflen Waith
Dim xNSht Fel Taflen Waith
Dim I Cyn Hir
Dim xTRrow Fel Cyfanrif
Dim xCol Fel Casgliad Newydd
Dim xTitle Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xSht = ActiveSheet
xRCount = xSht.UsedRange.End(xlDown).Row
xTitle = "A1:B1"
xTRrow = xSht.Range(xTitle).Row
Canys I = 2 I xRCCount
Ffoniwch xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1)))
Digwyddiadau
Debug.Print xCol.Count
Am I = 1 I xCol.Count
Ffoniwch xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I))))
Gosod xNSht = Dim byd
Gosod xNSht = Taflenni Gwaith(CStr(xCol.Item(I))))
Os yw xNSht Yn Dim Yna
Gosod xNSht = Taflenni Gwaith.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I) & xSht.Cells(I + 1, 2))
arall
xNSht.Move , Taflenni(Taflenni.Cyfrif)
Gorffennwch Os
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Digwyddiadau
xSht.AutoFilterMode = Gau
xSht.Actifadu
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn, dim ond yr hyn yr oeddwn yn edrych amdano. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn yn ddefnyddiol iawn, a bron yr hyn yr oeddwn yn edrych amdano.
Ond a ellir ei addasu fel bod dwy ddalen -
Taflen 1 yw'r Data - tabl o ddata gyda Colofn A yn enw
Templed yw dalen 2, ac mae angen llenwi nifer o feysydd
Yr hyn yr oeddwn yn ei obeithio oedd rhedeg macro, a fydd
1 Copïwch-gludwch y templed, yn yr un ffeil, enwch y ddalen fel yr enw yng Nghell A1
2 Copïwch gell B1 ac yna heibio i faes dethol yn y templed newydd
Ailadroddwch 3 ar hyd rhes 1 nes yn wag
4 yna ailadroddwch ar gyfer rhes 2 a phob rhes tan y diwedd.
Canlyniad yw ffeil gyda x no. dalennau i gyd yr un fath â'r templed, gyda'r holl feysydd wedi'u llenwi.
Etifeddais ffeil sy'n gweithio'r ffordd arall, gan dynnu data o dempledi i dabl, ond ni all ei wrthdroi .....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Sam,
Byddai'n braf pe gallech atodi'ch llyfr gwaith yma.
Gallwch uwchlwytho'ch ffeil gyda'r botwm Llwytho Ffeiliau isod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ceisiais ddefnyddio'ch cod ond rwy'n cael gwall
Gwall amser rhedeg '1004':
Gwall wedi'i ddiffinio gan gymhwysiad neu wall wedi'i ddiffinio gan wrthrych
Nid oes gennyf unrhyw wybodaeth am VBA (neu unrhyw dechnoleg o ran hynny) ond os dadfyg i'r wasg mae'n amlygu llinell 11 xRCount=xSht.Cells(xSht.Rows.Count,1). Diwedd(xIUp). Rhes
Rwy'n gweithio gyda ffeil fawr sydd â 127 o golofnau a 337 o resi (ni fydd rhesi'n amrywio o golofnau) ac mae'n rhestr gyda niferoedd Id a'u manylion.
Fe wnes i newid yr ystod fel y nodwyd gennych ond nid yw'n gweithio o hyd Rwy'n defnyddio Excel 2010 a fyddech cystal â dweud wrthyf sut i wneud iddo weithio os yn bosibl
Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Beatriz,
Mae'r cod yn cael ei ddiweddaru gyda'r datrys problemau. Rhowch gynnig arall arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n credu bod rhywbeth defnyddiol yma ar gyfer fy sefyllfa, ond gallaf wneud VBA neu sgript, gobeithio y gallwch chi helpu.
Mae gen i dempled w / llawer o gelloedd i'w llenwi â data, a bydd allwedd chwilio (nad yw'n unigryw) yr hoffwn ei nodi yn y templed. Yn seiliedig ar yr allwedd chwilio, mae'r data'n cael ei chwilio a data cyfatebol ar yr allwedd cyfatebol yn cael ei nôl a'i lenwi i'r templed. Mae'r templed wedi'i lenwi yn cael ei gadw mewn taflen waith newydd. Efallai bod mwy nag 1 ymgais i gyd-fynd. Mae angen y sgript arnaf i barhau i chwilio i lawr y rhestr, nes bod yr holl gemau'n cael eu dewis, a'r nifer penodol o daflenni gwaith newydd yn cael eu creu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i gadw'r rhes pennawd ar bob taflen waith newydd? (mewn cylch coch ar fy atodiad)

Mae'r cod yn cymryd yr holl resi o'm prif daflen waith ac yn eu trosglwyddo i daflenni gwaith newydd, sy'n wych. Ond rwyf am gadw fy ngwerth pennawd "meistr" (wedi'i gylchu mewn coch) ar frig pob taflen waith newydd. Diolch!



Rwy'n cyfeirio at y cod hwn oddi uchod:

Is RowToSheet()
Dim xRow Cyhyd
Dim I Cyn Hir
Gyda ActiveSheet
xRow = .Range("A" & Rows.Count).Diwedd(xlUp).Rhes
Am I = 1 I xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Rhes" &I
. Rhesi(I).Copi Taflenni ("Rhes" ac I). Ystod ("A1")
Nesaf i
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod gwych, ond a allwn i gael rhywfaint o help os ydw i fy nata ar golofn G yn lle colofn A? beth sydd angen i mi ei newid i gael data Colofn G mewn tabiau gwahanol?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn god gwych. Diolch yn fawr i brain-boxes yn OfficeExtend!! A oes yna beth bynnag y gellid addasu ychydig ar y cod hwn i greu dalennau ar wahân ar gyfer pob *colofn* yn lle rhes? Rwyf wedi atodi llun o'r hyn rwy'n ceisio ei gyflawni. Ydy hyn yn bosib? Cofion cynnes.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Ni welais eich llun yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut i addasu'r cod, os yw maes fy enw yng ngholofn C
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Abdul Basit,
Gall y cod VBA isod eich helpu. Rhowch gynnig arni.
Yn y llinell: xCName = "3", mae 3 yn nodi rhif y golofn (dyma'r golofn C) yn Excel. Gallwch ei newid i unrhyw rif colofn yn ôl yr angen.

Is-ddosbarthu_data()
'Diweddariad gan Extendoffice 2018/3/2
Dim xRCCyfrif Cyhyd
Dim xSht Fel Taflen Waith
Dim xNSht Fel Taflen Waith
Dim I Cyn Hir
Dim xTRrow Fel Cyfanrif
Dim xCol Fel Casgliad Newydd
Dim xTitle Fel Llinyn
Dim xSUpdate Fel Boole
Dim xCName Fel Cyfanrif
Dim xTA, xRA, xSRg1 Fel Llinynnol
Gosod xSht = ActiveSheet
Ar Ail-ddechrau Gwall Nesaf
xRCount = xSht.Cells(xSht.Rows.Count, 1).Diwedd(xlUp).Rhes
xTitle = "A1:C1"
xCName = " 3 "'Newid y rhif hwn i rif y golofn y byddwch yn creu dalennau newydd yn seiliedig arnynt
xTRrow = xSht.Range(xTitle).Cells(1).Row
Canys I = 2 I xRCCount
Ffoniwch xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text)
Digwyddiadau
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Anghywir
xSRg = xSht.Cells(1, xCName).Cyfeiriad(RowAbsolute:=Gau, ColofnAbsolute:=Anghywir)
Am I = 1 I xCol.Count
Ffoniwch xSht.Range(xTitle).AutoFilter(xCName, CStr(xCol.Item(I))))
Gosod xNSht = Dim byd
Gosod xNSht = Taflenni Gwaith(CStr(xCol.Item(I))))
Os yw xNSht Yn Dim Yna
Gosod xNSht = Taflenni Gwaith.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
arall
xNSht.Move , Taflenni(Taflenni.Cyfrif)
Gorffennwch Os
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Digwyddiadau
xSht.AutoFilterMode = Gau
xSht.Actifadu
Application.ScreenUpdating = xSUpdate
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod Cool VBA i wneud y tric.

Sut y gallaf ei addasu i beidio â chopïo'r golofn gyntaf? Ac i gael gwared ar enw'r golofn?

Regards
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os gwelwch yn dda a allaf gael cymorth ar sut i enwi'r dalennau'n awtomatig gan ddefnyddio colofn benodol. Mae hyn ar gyfer y rhes i ddalen VBA. Gweler isod

Is RowToSheet()

Dim xRow Cyhyd

Dim I Cyn Hir

Gyda ActiveSheet

xRow = .Range("A" & Rows.Count).Diwedd(xlUp).Rhes

Am I = 1 I xRow

Worksheets.Add(, Sheets(Sheets.Count)).Name = "Rhes" &I

. Rhesi(I).Copi Taflenni ("Rhes" ac I). Ystod ("A1")

Nesaf i

Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd yn fannau cudd cudd. Defnyddiais y nodwedd TRIM a'i lanhau. Byddai cael cyfrif rhes (cyfrif llinell mewn gwirionedd felly rhesi -1 wedi'u rhagosod i'r ddalen yn anhygoel)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i gyfeirio at y defnydd o'r cod uchod (credyd) ? A yw'n bosibl addasu'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae hwn yn blatfform cyfathrebu agored. Caniateir cyfeirio ac addasu'r cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nana
86
2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Defnyddiais y cod hwn ac fe weithiodd! Yn ogystal â chreu dalen newydd ar gyfer pob cofnod, rwyf am ei thrawsosod i golofnau ac ni allaf ei chyfrifo. Felly ar gyfer yr enghraifft uchod, byddai'r allbwn ar gyfer Nana yn edrych fel hyn - Enw NanaSgôr 86Rhif 2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, wedi defnyddio'r cod hwn ac wedi gweithio, ond Os ydw i eisiau dewiswch y rhesi mwy yna un yn y pennawd, beth fydd yn newid yn y cod? Y mae genyf linellau lluosog yn y ddalen a ddymunaf ym mhob dalen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes cod fyddai'n ychwanegu dim ond 1 ddalen newydd bob tro mae'r macro yn cael ei redeg, ee tro 1af byddai'r ddalen newydd yn cael ei henwi ar gynnwys cell A1, 2il tro i'r macro gael ei redeg byddai'r ddalen newydd yn cael ei henwi ar y cynnwys A2 ac ati diolch yn barod
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