Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս տեղափոխել յուրաքանչյուր 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-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pradeep · 1 years ago
    Hi, How to do this for Colms to rows. Thank you
    • To post as a guest, your comment is unpublished.
      Jan steihn · 11 months ago
      I've rewritten the command to this one:
      =INDEX($A:$A,ROW(A1)+((COLUMN(A1)-2)*5))
      This executes it inverted.
      So:
      1
      2
      3
      4
      5
      6
      7
      8
      9
      ...
      becomes
      1, 6
      2, 7
      3, 8
      4, 9
      5, ...
  • To post as a guest, your comment is unpublished.
    Maha · 1 years ago
    Thanks alot _/\_ Awesome job with =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
    worked perfectly
  • To post as a guest, your comment is unpublished.
    Arun Balaji VN · 1 years ago
    I tried only the the formula option and it worked great. Till now have been using (Transpose formula with ctrl+shift+enter) but there the disadvantage for we have delete many extra rows. when the rows to be transposed for large in the order of lakhs, then deleting them in excel is either impossible or takes a lot of time.
    this approach made the life easier by only copying the required rows... Thanks
  • To post as a guest, your comment is unpublished.
    Sian · 2 years ago
    This is fricking AWESOME!!! Thank you SO much. Your example was exactly what I needed and it worked beautifully.
  • To post as a guest, your comment is unpublished.
    hamidreza · 3 years ago
    =INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
    It was very simple and really useful. Thank you so much
  • To post as a guest, your comment is unpublished.
    Thank · 3 years ago
    It was great! Thank you! You saved me hours of manual work!
  • To post as a guest, your comment is unpublished.
    xplode · 3 years ago
    Thank you so much!
    It was really helpful. :)
  • To post as a guest, your comment is unpublished.
    MTVN · 4 years ago
    What formula to transpose every 5 rows to a single column?
  • To post as a guest, your comment is unpublished.
    hgimongu · 4 years ago
    Hi!

    May I ask you how to add Blank cell delimits records, instead of 5 as the data I am handling hasn't got fix number of rows. I believe the part which I should change may be around this part of the code:

    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

    Best
    • To post as a guest, your comment is unpublished.
      Mark.lewis2020 · 11 months ago
      I have the same issue , where the columns are not fixed, and there are empty lines, but I have a same character and end of each data set , that is "=" can I use this as delimiter , that breaks the loop, and next line is considered as new data set ?
    • To post as a guest, your comment is unpublished.
      Mark · 11 months ago
      did you get an answer for the same as i have the same issue , columns are not fixed in numbers, what should I do , can I use a particular character as a delimiter that breaks the loop and count next line and new data set ?