Ինչպես Excel- ում յուրաքանչյուր մյուս շարքը տեղափոխել սյուն
Երբևէ փորձե՞լ եք Excel- ում սյունակ տեղափոխել յուրաքանչյուր տողի մյուս տվյալները, ինչպես յուրաքանչյուր տարօրինակ շարքը մեկ սյունակ տեղափոխելը, և յուրաքանչյուր զույգ շարքը մյուս սյունակը տեղափոխելը, որոնք ցուցադրվում են որպես նկարի ներքևում: Այստեղ ես գտնում եմ մի քանի հնարքներ, որոնք կարող են կարգավորել այս խնդիրը:
Բոլոր մյուս շարքերը տեղափոխեք բանաձևով սյուն
Տեղափոխեք յուրաքանչյուր մյուս շարքը VBA- ով սյունակ
Տեղափոխեք յուրաքանչյուր մյուս շարքը Excel- ի համար Kutools- ով սյունակ
Բոլոր մյուս շարքերը տեղափոխեք բանաձևով սյուն
Excel- ի օգտվողների մեծ մասի համար Excel- ում խնդիրը լուծելու բանաձև օգտագործելը ամենահեշտ ձևն է:
1. Ընտրեք բջիջ ձեր տվյալների կողքին և մուտքագրեք այս բանաձևը = ԵԹԵ (ISEVEN (ROW (B2)), B2, "") (B2- ը նշում է այն տվյալները, որոնք ցանկանում եք ստանալ) մեջը և սեղմել Մտնել ստեղն այնուհետև քաշեք ավտոմատ լրացնելը ՝ ցանկալի տիրույթը լրացնելու համար օգտագործեք այս բանաձևը: Այժմ այս սյունակում ստացվում է յուրաքանչյուր երկրորդ շարքի տվյալները:
2. Դրանից հետո վերը նշված սյունակի կողքին ընտրեք մյուս բջիջը և մուտքագրեք այս բանաձևը = ԵԹԵ (ISODD (ROW (B3)), B3, "") (B3- ը այն տվյալն է, որը ցանկանում եք ստանալ) դրանում և սեղմեք Մտնել ստեղն այնուհետև քաշեք ավտոմատ լրացնելը ՝ ցանկալի տիրույթը լրացնելու համար օգտագործեք այս բանաձևը: Այժմ այս սյունակում ստացվում է յուրաքանչյուր երրորդ շարքի տվյալները:
Տեղափոխեք յուրաքանչյուր մյուս շարքը VBA- ով սյունակ
Հետևյալ VBA- ն կարող է նաև յուրաքանչյուր մյուս շարքը սյուն տեղափոխել:
1. Մամուլ F11 + alt ստեղնաշարի վրա ստեղները միասին բացելու M- նicrosoft Visual Basic հավելվածների համար պատուհան.
2. Այնուհետեւ կտտացրեք Տեղադրել > Մոդուլներ նոր մոդուլի պատուհան տեղադրելու համար: Եվ ապա պատճենեք հետևյալ VBA կոդը պատուհանում:
VBA. Բոլոր մյուս շարքերը տեղափոխեք սյունակ:
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3: սեղմեք Վազում կոճակը կամ F5 ստեղնաշարի ստեղնը և երկխոսություն է դուրս գալիս, որպեսզի ընտրեք տեղաշարժելու տիրույթ: Տեսեք,
4. Այնուհետեւ կտտացրեք OK ցույց տալ մյուս երկխոսությունը `արդյունքը դուրս բերելու համար բջիջ ընտրելու համար: Տեսեք,
5: սեղմեք OK, և դուք կարող եք տեսնել արդյունքը, որը ցույց է տրված ստորև:
Տեղափոխեք յուրաքանչյուր մյուս շարքը Excel- ի համար Kutools- ով սյունակ
Բացի բանաձևերից և VBA- ից, եթե տեղադրել եք Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք օգտագործել այն Փոխակերպել շարքը հատկություն ՝ յուրաքանչյուր մյուս շարքը սյունակ արագ տեղափոխելու համար:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now
1. Ընտրեք այն տիրույթը, որը ցանկանում եք տեղափոխել յուրաքանչյուր մյուս շարքը և կտտացրեք Կուտոլս > Լեռնաշղթայի փոխարկիչ > Փոխակերպել շարքը, Տեսեք,
2. Մեջ Փոխակերպել շարքը երկխոսություն, ստուգում Մեկ սյունակ ՝ ընդգրկույթի համար in Փոխակերպման տեսակը բաժինը և ստուգել Հաստատուն արժեք ապա ընտրեք կամ մուտքագրեք 2 ցուցակում Տողեր ըստ ռեկորդի Բաժին. Տեսեք,
3: սեղմեք Ok երկխոսություն բացելու համար մեկ բջիջ ընտրելու համար արդյունքը դուրս բերելու համար, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OK, Արդյունքը կարող եք տեսնել, ինչպես ցույց է տրված ստորև:
Transform Range- ի մասին լրացուցիչ տեղեկությունների համար:
Հարաբերական հոդվածներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: