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

Ինչպե՞ս տեղափոխել յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից մի քանի սյունակների:

doc տեղափոխել յուրաքանչյուր 5 տող 1

Ենթադրելով, որ դուք ունեք երկար տվյալներ A սյունակում, և այժմ դուք ցանկանում եք յուրաքանչյուր 5 տողը տեղափոխել A սյունակից մի քանի սյունակ, ինչպիսիք են A1: A5- ից C6: G6, A6: A10- ից C7: G7 և այլն, և այլն, ցույց է տրված հետևյալ նկարը Ինչպե՞ս կարող էիք գործ ունենալ այս խնդրի հետ ՝ առանց Excel- ում բազմիցս պատճենելու և տեղադրելու:

Տեղափոխեք յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից բանաձևով մի քանի սյունակների

Տեղափոխեք յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից VBA կոդով մի քանի սյունակների

Տեղափոխեք յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից մի քանի սյունակների հետ Kutools- ի համար Excel- ի


Excel- ում կարող եք կիրառել հետևյալ բանաձևը `յուրաքանչյուր սյունակ մեկ սյունակից մի քանի սյունակ տեղափոխելու համար, արեք հետևյալը.

1, Մուտքագրեք հետևյալ բանաձևը դատարկ վանդակում, որտեղ ցանկանում եք տեղադրել արդյունքը, C1, օրինակ, = ԻՆԴԵՔՍ ($ A: $ A, ROW (A1) * 5-5 + Սյունակ (A1)), տես նկարի նկարը.

doc տեղափոխել յուրաքանչյուր 5 տող 2

ՆշումՎերոհիշյալ բանաձևում Ա. Ա սյունակի հղումն է, որը ցանկանում եք փոխադրել, և A1 օգտագործված սյունակի առաջին բջիջն է, համարը 5 նշում է սյունակների քանակը, որոնք կտեղադրեն ձեր տվյալները, դրանք կարող եք փոխել ըստ ձեր կարիքի: Եվ ցուցակի առաջին բջիջը պետք է տեղակայվի աշխատաթերթի առաջին շարքում:

2, Դրանից հետո քաշեք լրացման բռնակը դեպի հինգ բջիջ և շարունակեք լրացնելով բռնիչը ներքև ՝ բջիջների տիրույթում մինչև 0-ի ցուցադրումը: Տեսեք,

doc տեղափոխել յուրաքանչյուր 5 տող 3


Փոխակերպեք յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից մի քանի սյունակների.

Յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից բազմակի սյուն վերափոխելու համար, Excel- ի համար նախատեսված գործիքներ's Փոխակերպել շարքը օգտակարությունը կարող է օգնել ձեզ լուծել այս գործը որքան հնարավոր է արագ: Այն նաև կարող է օգնել ձեզ տվյալների մի շարք տեղափոխել մեկ տող կամ սյուն: Կտտացրեք Excel- ի համար Kutools ներբեռնելու համար:

doc տեղափոխել յուրաքանչյուր 5 տող 10

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


Եթե ​​դուք չեք կարող ճիշտ կիրառել բանաձևը, ձեզ կարող է օգնել նաև հետևյալ VBA կոդը:

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

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

VBA կոդ. Յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից տեղափոխեք մի քանի սյունակների.

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

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

doc տեղափոխել յուրաքանչյուր 5 տող 4

4. Այնուհետեւ կտտացրեք OK, և ընտրեք մեկ բջիջ, որտեղ ուզում եք արդյունքը դնել մեկ այլ դուրս հանված տուփի մեջ, տեսեք,

doc տեղափոխել յուրաքանչյուր 5 տող 5

5, եւ սեղմեք OK, սյունակի տվյալները վերափոխվել են ձեզ անհրաժեշտ հինգ սյունակների, տե՛ս նկարը.

doc տեղափոխել յուրաքանչյուր 5 տող 6

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել համարը 5 անհրաժեշտ այլ համարին:


Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Փոխակերպել շարքը օգտակար, դուք կարող եք արագ տեղափոխել մեկ սյունակ կամ տող բազմաթիվ սյունների և տողերի:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

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

1, Ընտրեք տվյալները սյունակում, ապա կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, տես նկարի նկարը.

2, Մեջ Փոխակերպել շարքը երկխոսության տուփ, ընտրեք Մեկ սյունակ ՝ ընդգրկույթի համար տարբերակով Փոխակերպման տեսակը, ապա ստուգեք Հաստատուն արժեք տակ Տողեր ըստ ռեկորդի, ապա նշեք սյունակների քանակը, որը ցանկանում եք տեղափոխել այն Հաստատուն արժեք տուփ, տես նկարի նկարը.

doc տեղափոխել յուրաքանչյուր 5 տող 8

3. Եվ այնուհետեւ կտտացրեք Ok կոճակը, դուրս եկած արկղում, խնդրում ենք ընտրել բջիջ արդյունքը դուրս բերելու համար, տես նկարի նկարը.

doc տեղափոխել յուրաքանչյուր 5 տող 9

4. Այնուհետեւ կտտացրեք OK կոճակը, և ձեր սյունակի տվյալները տեղափոխվում են յուրաքանչյուր 5 շարքում, ինչպես ցույց է տրված հետևյալ նկարը.

doc տեղափոխել յուրաքանչյուր 5 տող 6

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Կարո՞ղ եմ ձեզ հարցնել, թե ինչպես ավելացնել դատարկ բջիջների սահմանազատման գրառումները 5-ի փոխարեն, քանի որ իմ կողմից մշակվող տվյալները տողերի ֆիքսված քանակ չունեն: Կարծում եմ, որ այն մասը, որը ես պետք է փոխեմ, կարող է լինել կոդի այս մասի շուրջ. For i = 1 To xLRow Քայլ 5 xRg.Cells(i).Չափափոխել(5).Copy xOutRg.Offset(xNRow, 0).PasteSpecial Paste: =xlPasteAll, Transpose:=True xNRow = xNRow + 1 Best
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք պատասխան ստացե՞լ եք նույնի համար, քանի որ ես նույն խնդիրն ունեմ, սյունակները թվերով չեն ամրագրված, ինչ պետք է անեմ, կարո՞ղ եմ օգտագործել որոշակի նիշ որպես սահմանազատող, որը խախտում է հանգույցը և հաշվել հաջորդ տողը և նոր տվյալների հավաքածուն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ նույն խնդիրը, որտեղ սյունակները ֆիքսված չեն, և կան դատարկ տողեր, բայց ես ունեմ յուրաքանչյուր տվյալների հավաքածուի նույն նիշը և վերջը, այսինքն՝ «=" կարո՞ղ եմ սա օգտագործել որպես սահմանազատող, որը խախտում է հանգույցը և հաջորդ տողը համարվում է որպես նոր տվյալների հավաքածու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ բանաձև պետք է տեղափոխել յուրաքանչյուր 5 տող մեկ սյունակում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Դա իսկապես օգտակար էր: :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոյակապ էր! Շնորհակալություն! Դուք ինձ խնայեցիք ձեռքի աշխատանքի ժամեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
= ԻՆԴԵՔՍ ($ A: $ A, ROW (A1) * 5-5 + Սյունակ (A1))
Դա շատ պարզ էր և իսկապես օգտակար: Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ապշեցուցիչ է !!! Շատ շնորհակալություն. Ձեր օրինակը հենց այն էր, ինչ ինձ պետք էր, և այն հիանալի աշխատեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի միայն բանաձևի տարբերակը և այն հիանալի աշխատեց: Մինչ այժմ մենք օգտագործում էինք (Transpose բանաձևը ctrl+shift+enter-ով), բայց թերությունն այնտեղ է, որ մենք ջնջել ենք բազմաթիվ լրացուցիչ տողեր: երբ տողերը, որոնք պետք է փոխադրվեն մեծ համար լաքերի կարգով, ապա excel-ում դրանք ջնջելը կամ անհնար է, կամ շատ ժամանակ է պահանջում:
այս մոտեցումը հեշտացրեց կյանքը՝ միայն պատճենելով պահանջվող տողերը... Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն _/\_ Հրաշալի աշխատանք =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
կատարելապես աշխատել է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Ինչպես դա անել Colms-ի համար տողերի համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես վերագրել եմ հրամանը այս մեկին.
=INDEX($A:$A,ROW(A1)+((COLUMN(A1)-2)*5))
Սա կատարում է այն շրջված:
Այսպիսով,
1
2
3
4
5
6
7
8
9
...
դառնում
1, 6
2, 7
3, 8
4, 9
5,...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ դա անել այնպես, ինչպես գրված է, և այն ամենը, ինչ ես ստանում եմ, Error:508 է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դու հանճար ես: Շնորհակալություն
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

J'ai, dans mon եզակի colonne de données, des cellules placées aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signifierait de la caractères, qui signifierait la. ..

Բրեֆ, Հելլլփ...

Merci d'avance
Stéphane
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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