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

Ինչպե՞ս Excel- ում սյունակի հիման վրա տվյալները բաժանել բազմաթիվ աշխատանքային թերթերի:

Ենթադրելով, որ դուք ունեք հսկայական տվյալների շարքերով աշխատաթերթ, և այժմ դուք պետք է բաժանեք տվյալները բազմաթիվ աշխատանքային թերթերի ՝ հիմնվելով անուն, ազգանուն սյունակ (տե՛ս հետևյալ նկարը), և անունները մուտքագրվում են պատահականորեն: Գուցե նախ կարող եք դրանք դասավորել, այնուհետև դրանք մեկ առ մեկ պատճենել և տեղադրել դրանք այլ նոր աշխատանքային թերթերում: Բայց դրա համար հարկավոր է ձեր համբերությունը ՝ բազմիցս պատճենելու և տեղադրելու համար: Այսօր ես կխոսեմ այս խնդիրը լուծելու մի քանի արագ հնարքների մասին:

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 1-ի

Տվյալները բաժանեք բազմաթիվ աշխատանքային թերթերի ՝ հիմնված VBA կոդով սյունակի վրա

Excel- ի համար Kutools- ի հետ սյունակի հիման վրա տվյալների բաժանեք բազմակի աշխատաթերթերի


Տվյալները բաժանեք բազմաթիվ աշխատանքային թերթերի ՝ հիմնված VBA կոդով սյունակի վրա

Եթե ​​ցանկանում եք արագ և ինքնաբերաբար բաժանել սյունակի արժեքի վրա հիմնված տվյալները, հետևյալ VBA կոդը լավ ընտրություն է: Խնդրում եմ, արեք այսպես.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

Sub Splitdatabycol()
'updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
Dim xWS As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3, Հետո, սեղմեք F5 Կոդը գործարկելու համար ստեղնը, և հուշվում է արագ տուփ, որը հիշեցնում է ձեզ վերնագրի շարքը ընտրել, տե՛ս նկարը.

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 7-ի

4, Եվ հետո, կտտացրեք OK կոճակը, և երկրորդ հուշման վանդակում խնդրում ենք ընտրել սյունակի տվյալները, որոնց հիման վրա ցանկանում եք բաժանել, տես նկարի նկարը.

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 8-ի

5, Դրանից հետո կտտացրեք OK, և ակտիվ աշխատաթերթի բոլոր տվյալները սյունակի արժեքով բաժանվում են բազմաթիվ աշխատանքային թերթերի: Եվ պառակտված աշխատանքային թերթերն անվանում են պառակտված բջիջների անուններ: Տեսեք,

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 2-ի

Նշում. Պառակտված աշխատաթերթերը տեղադրվում են աշխատանքային գրքի վերջում, որտեղ գտնվում է հիմնական աշխատանքային թերթը:


Excel- ի համար Kutools- ի հետ սյունակի հիման վրա տվյալների բաժանեք բազմակի աշխատաթերթերի

Որպես Excel սկսնակ, այս երկար VBA կոդը մեզ համար որոշ չափով դժվար է, և մեզանից շատերը նույնիսկ չգիտեն, թե ինչպես փոփոխել կոդը ՝ ըստ մեր կարիքի: Այստեղ ես կներկայացնեմ ձեզ բազմաֆունկցիոնալ գործիքExcel- ի համար նախատեսված գործիքներ, նրա Տրոհված տվյալներ կոմունալը ոչ միայն կարող է օգնել ձեզ տրոհել տվյալները սյունակի վրա հիմնված բազմաթիվ աշխատանքային թերթերի, այլ նաև կարող է բաժանել տվյալները տողերի հաշվարկի միջոցով:

Նշում:Սա կիրառելու համար Տրոհված տվյալներ, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1, Ընտրեք տվյալների շրջանակը, որը ցանկանում եք բաժանել:

2: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Տրոհված տվյալներ, տես նկարի նկարը.

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 3-ի

3, Մեջ Տվյալները բաժանեք մի քանի աշխատանքային թերթերի երկխոսության տուփ, անհրաժեշտ է.

1) Ընտրեք Հատուկ սյունակ տարբերակը Պառակտում ՝ հիմնված բաժինը և ընտրեք սյունակի արժեքը, որի վրա ցանկանում եք բաժանել տվյալները `հիմնվելով բացվող ցուցակում: (Եթե ձեր տվյալներն ունեն վերնագրեր, և ցանկանում եք դրանք տեղադրել յուրաքանչյուր նոր բաժանված աշխատանքային թերթում, խնդրում ենք ստուգել Իմ տվյալներն ունեն վերնագրեր տարբերակ):

2) Դրանից հետո կարող եք բաժանել բաժանված աշխատաթերթի անունները ՝ Նոր աշխատաթերթերի անվանում բաժնում, նշեք աշխատանքային թերթի անվանումների կանոնները Կանոններ բացվող ցուցակ, կարող եք ավելացնել Նախածանց or վերջածանց սավանի անունների համար նույնպես:

3) Սեղմիր OK կոճակ Տեսեք,

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 4-ի

4, Այժմ տվյալները բաժանվում են բազմաթիվ աշխատանքային թերթերի նոր աշխատանքային գրքում:

փաստաթղթերի պառակտման տվյալները ըստ սյունակների 5-ի

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:


Excel- ի համար Kutools- ի հետ սյունակի հիման վրա տվյալների բաժանեք բազմակի աշխատաթերթերի

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Ներբեռնեք անվճար փորձն այժմ:


Առնչվող հոդված:

Ինչպե՞ս բաժանել տվյալները բազմակի աշխատանքային թերթերի ըստ տողերի հաշվարկի:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (303)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տվյալների բաժանումը մի քանի աշխատաթերթերի վրա հիմնված VBA կոդով սյունակի վրա ցույց է տալիս որոշ սխալ: խնդրում ենք փորձել ուղղել այն և թարմացնել նույնը: Եթե ​​դուք տրամադրեք excel ֆայլերի նմուշը, դա իսկապես օգտակար կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն կոդի համար, որն աշխատում է ինձ համար: Ես փորձում եմ գտնել կոդ, որը մեկ հիմնական թերթիկը բաժանում է մի քանի թերթի՝ ըստ ամսաթվի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա անհավանական էր։ Այս գործընթացն ինձանից ավելի քան մեկ ժամ կպահանջի, բայց դա արվեց 30 վայրկյանում: Այս մեկը ես կպահեմ իմ VBA գրադարանի համար: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ունեմ 30000 բջիջ իմ աշխատաթերթում և պետք է դրանք բաժանեմ ամիսների ընթացքում: կա՞ կոդ, որը կարող եմ օգտագործել դա ավելի արագ անելու համար: Ես ունեմ 8 սյունակ, և ամսաթիվը B սյունակ է: Խնդրում եմ, կարող եք օգնել ինձ այս հարցում: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ հետևյալ սխալը․ «6» գործարկման ժամանակի սխալ՝ վրիպազերծումից հետո ցույց տվեք գիծը For i = 2 To Ir Իմ excel տողերը 500,000-ից ավելի են։ Կա՞ որևէ լուծում: Շատ շնորհակալ եմ կոդի համար: Հարգանքներով Լոկ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շատ շնորհակալ եմ կոդի համար: Ես ստանում եմ հետևյալ սխալը. «6» գործարկման ժամանակի սխալը հորդում է տողում. For i = 2 To Ir Սրա ցանկացած լուծում: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սխալ եմ ստանում, երբ սեղմում եմ F5 - GoTo Box-ը հղում է խնդրում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA գործընթացը կատարյալ աշխատեց, շատ շնորհակալ եմ ձեր փորձը կիսելու և ինձ շատ ժամանակ խնայելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA կոդը հիանալի աշխատեց: Թվում է, թե այն չի թարմացնում թերթերը, քանի որ փոփոխություններ են կատարվել Sheet1-ում: Խնդրում եմ օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, շնորհակալություն կոդի համար, որն աշխատում է ինձ համար: Ես ընդամենը երկու հարց/նկատողություն ունեմ. 1 պատճենված տվյալները չեն ներառում բնօրինակ ֆայլի դասավորությունը: Հնարավո՞ր է արդյոք տվյալները պատճենել որպես աղյուսակ ավտոմատ զտիչով: 2 պատճենված տվյալները կարծես թե սահմանափակված չեն վերնագրի տիրույթով: Հնարավո՞ր է կարգավորել կոդը որոշակի տիրույթի կամ աղյուսակի անվան համար: Այս ճշգրտումները շատ օգտակար կլինեն: Հարգանքներով, Պիտեր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատում է հմայքի պես: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հմայքի պես է աշխատում... Շնորհակալություն պրեմիում կոդի համար... :lol:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ, սա հիանալի աշխատեց: Այնուամենայնիվ, ի՞նչ կլինի, եթե ես ուզում եմ, որ յուրաքանչյուր ներդիրի տվյալները նորից դասավորվեն (օգտագործելով մյուս սյունակը): Հիմնականում, այս VBA-ն այն բաժանում է ներդիրների, բայց ես կարող եմ ցանկանալ, որ այն ավելի ցրվի: Հնարավո՞ր է դա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Ջոնաթան, ես գիտեմ հին մեկնաբանություն, բայց ապագայում կարող է օգտակար լինել ուրիշների համար. ես պետք է դա անեի, բայց հեշտ ճանապարհ չկարողացա գտնել VBA-ի հետ: Այնուամենայնիվ, ես պարզեցի, որ եթե ձեր Աղյուսակում նոր սյունակ եք ստեղծում՝ որպես 2-ի միաձուլում, օրինակ՝ =A1&" "&A2 Սա ձեզ տալիս է 1 Բջջ՝ տեղեկատվության երկու հավաքածուներով: Այնուհետև կարող եք գործարկել վերը նշված մոդուլը և այն լավ է աշխատում: Խմբագրել – Սյունակներում տվյալները պետք է լինեն 30 Նիշից ավելի կարճ, հակառակ դեպքում տվյալները չեն պատճենվում (ցուցադրվում է որպես մոդուլի սխալ) և դուք ստանում եք դատարկ թերթ ձեր նոր Թերթերի մեջտեղում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի.. Սա ապշեցուցիչ էր: Ես այսքան ժամանակ պայքարում էի այս խնդրի դեմ, և այս կոդը մտավ որպես հանգստություն: Շնորհակալություն այն կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Զարմանալի. Շնորհակալություն հրապարակման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդն աշխատում էր հմայքի պես ավելի փոքր տվյալների համար (1200 տողից պակաս): Ես փորձեցի օգտագործել ավելի մեծ աշխատաթերթի վրա (17000 տող) և այն պարզապես խափանվեց 10-12 թերթերի բաժանվելուց հետո: Այսպիսով, մենք փորձեցինք սկզբնական տվյալները բաժանել 3 տարբեր աշխատանքային գրքույկի և դեռ փակել մեզ: Մենք ունենք Windows 7, և մեր համակարգիչները նույնպես այնքան էլ դանդաղ չեն: Դուք առաջարկում եք որևէ սահմանափակ տող տվյալների վրա՝ այս կոդը անվտանգ օգտագործելու համար: Ցանկացած առաջարկ կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդն աշխատում էր հմայքի պես ավելի փոքր տվյալների համար (1200 տողից պակաս): Ես փորձեցի օգտագործել ավելի մեծ աշխատաթերթի վրա (17000 տող) և այն պարզապես խափանվեց 10-12 թերթերի բաժանվելուց հետո: Այսպիսով, մենք փորձեցինք սկզբնական տվյալները բաժանել 3 տարբեր աշխատանքային գրքույկի և դեռ փակել մեզ: Մենք ունենք Windows 7, և մեր համակարգիչները նույնպես այնքան էլ դանդաղ չեն: Դուք առաջարկում եք որևէ սահմանափակ տող տվյալների վրա՝ այս կոդը անվտանգ օգտագործելու համար: Ցանկացած առաջարկ կգնահատվի: Այն, ինչ ես վստահ չեմ, սա է. Որքա՞ն է տողերի առավելագույն քանակը, որը կարող է աջակցել մակրոն: Ես կարող էի խաղալ դրա հետ... Դա ինչ-որ տեղ 20k-ի և 40k-ի միջև է:[/quote]
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույն խնդրի առաջ. Կոդն աշխատում է թերթերի համար, որտեղ տվյալները ավելի քիչ տողեր են, սակայն ավելի մեծ տվյալների դեպքում այն ​​ցույց է տալիս սխալ, քանի որ «Excel-ը չի կարող կատարել այս առաջադրանքը հասանելի ռեսուրսներով: Ընտրեք ավելի քիչ տվյալներ կամ փակեք այլ հավելվածներ» (միևնույն ժամանակ որևէ այլ ծրագիր չկա): աշխատել է հմայքի պես ավելի փոքր տվյալների համար (1200 տողից պակաս): Ես փորձեցի օգտագործել ավելի մեծ աշխատաթերթի վրա (17000 տող) և այն պարզապես խափանվեց 10-12 թերթերի բաժանվելուց հետո: Այսպիսով, մենք փորձեցինք սկզբնական տվյալները բաժանել 3 տարբեր աշխատանքային գրքույկի և դեռ փակել մեզ: Մենք ունենք Windows 7, և մեր համակարգիչները նույնպես այնքան էլ դանդաղ չեն: Դուք առաջարկում եք որևէ սահմանափակ տող տվյալների վրա՝ այս կոդը անվտանգ օգտագործելու համար: Ցանկացած առաջարկ կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դու իմ բոլոր ժամանակների հերոսն ես: Ես որսացել եմ դրա համար ամիսներ շարունակ առանց բախտի: Ես պետք է անեմ այս շաբաթական/ամսական ընդմիջման հաշվետվությունները 147+ աշխատանքային թերթիկների մեջ, և նրանք ինձ չեն ստանում գործիքներ: Այդ նշումով.. Ես իսկապես պետք է սովորեմ կոդավորում: :(Բայց շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ունեմ 65000 գրառում և 8 տարբեր պատյաններ ունեցող թերթ, ուստի այն հիմնականում պետք է ստեղծի 80 տարբեր թերթ: Ես փորձեցի գործարկել այս կոդը, բայց այն նետում է Runtime Error 6 Overflow: Կարո՞ղ է այս կոդը ճշգրտվել՝ իմ խնդիրը լուծելու համար: Խնդրում ենք, ձեր օգնությունը բարձր կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]ԲԱՐԵՎ, ես ունեմ թերթիկ, որն ունի 65000 գրառում և ունի 8 տարբեր պատյաններ, ուստի հիմնականում այն ​​պետք է ստեղծի 80 տարբեր թերթ: Ես փորձեցի գործարկել այս կոդը, բայց այն նետում է Runtime Error 6 Overflow: Կարո՞ղ է այս կոդը ճշգրտվել՝ իմ խնդիրը լուծելու համար: Խնդրում ենք, ձեր օգնությունը բարձր կգնահատվի:ACE-ի կողմից[/quote] Փորձեք փոխել Dim vcol, i As Integer-ի Dim vcol, i As Long
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես փորձեցի փոխել DIM vcol-ը LOng-ի և այն լավ էր աշխատում, բայց հանկարծ սխալի պատճառով բավարար հիշողություն չկա այս գործողությունն ավարտելու համար, փորձեք օգտագործել ավելի քիչ տվյալներ կամ փակել այլ ծրագրեր: Թեև բացված այլ հավելվածներ չունեմ։ Ես ունեմ 100 հազարից քիչ ավելի տող և մոտ. 16 mb ֆայլի չափ: ցանկացած օգնություն գնահատելի կլինի: Շնորհակալություն Մուստաֆա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի կոդ - աշխատում է կատարյալ (եթե փոխեք փոփոխականները ձեր աղյուսակի կարիք ունեցող փոփոխականներով)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ թերթիկ՝ տողերի փոփոխական քանակով: Սյունակներից մեկը 2010 թվականից սկսած ամսաթվերն են: Մյուս սյունակները ֆոնդերի անվանումներն են՝ յուրաքանչյուր ֆոնդի NAV-ի տվյալներով՝ ըստ ամսաթվի: Այսպիսով, ես չեմ ուզում սյունակները բաժանել տարբեր թերթերի, ես ուզում եմ յուրաքանչյուր ՖՈՆԴԻ ԱՆՈՒՆԸ բաժանել իր սեփական թերթիկի՝ NAV-ի տվյալների համաձայն ամսվա վերջի ամսաթվի, այլ ոչ թե օրական ամսաթվերի: Հնարավո՞ր է դա անել, թե՞ դա անհնար է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ աշխատանքային թերթ, որը ես օգտագործում եմ, և փորձում եմ գտնել vba կոդ, որը կվերակազմավորի հաշվի անունը և կկրկնօրինակի paticular տողը նոր աշխատանքային գրքում և նույն անունով թերթիկում, կարո՞ղ եք օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի VBA կոդը աշխատում է, շնորհակալություն: Ինձ պետք է, որ այս ելքային աշխատաթերթերը լինեն առանձին excel ֆայլերում՝ աշխատաթերթերի փոխարեն, և սխալ է լինում, երբ ես բաժանվում եմ բազմաթիվ աշխատաթերթերի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Starscor-ը և Tim-ը, եթե ցանկանում եք ֆայլի թերթիկները բաժանել մի քանի ֆայլերի՝ օգտագործելով տողերի անունները, ապա այս նույն վեբ էջում կա մի փոքրիկ մակրո կոդը, որը դա անում է, պարզապես որոնեք «բաժանեք աշխատանքային գրքույկը՝ Excel ֆայլերը առանձնացնելու համար»: կգտնի այն: Ավելացրե՛ք այդ օրինակի կոդը այս մեկի վերջում՝ ջնջելով կրկնվող վերջի ենթակետերը և ենթակետերը, իհարկե, և յուրաքանչյուրի համար կստանաք մեկ ֆայլ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարո՞ղ է որևէ մեկը օգնել ինձ, թե ինչպես դասավորել սյունակները տարբեր թերթերում նույն աշխատանքային գրքում միաժամանակ, ինչպես նաև հեռացնել կրկնօրինակները տարբեր թերթերում, քանի որ ես ունեմ մոտ 65 թերթ նույն աշխատանքային գրքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա այնքան հուզիչ է: Շնորհակալություն. Ես որոշ ժամանակ փնտրում էի սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց - շնորհակալություն սա կիսելու համար: Նույնիսկ տարածում է կարևոր կետերը/ձևաչափերը նոր աշխատաթերթերում:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից