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

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

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

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

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

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

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

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

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

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

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

Եթե ​​դուք չեք կարող ճիշտ կիրառել բանաձևը, ձեզ կարող է օգնել նաև հետևյալ 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 այն գործարկելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրել այն սյունակը, որը ցանկանում եք տեղափոխել, տես նկարի նկարը.

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

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

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

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

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

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

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

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

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

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

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

Դեմո. Յուրաքանչյուր 5 կամ n տողերը մեկ սյունակից տեղափոխեք բազմաթիվ սյունակներ Excel- ի համար Kutools- ով

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...