Ինչպե՞ս Excel- ում ձախից աջ սյուններ դասավորել մեկ սյունակի մեջ:
Ենթադրելով, որ կան բազմաթիվ սյուններ, խնդիրն է սյունները ձախից աջ դասավորել մեկ սյունակում, ինչպես ցույց է տրված նկարում: Բացառությամբ սյունակները ձեռքով մեկ առ մեկ տեղափոխելը, Excel- ում դա լուծելու հնարքներ կա՞:
Կուտակեք սյունակները ձախից աջ դեպի մեկ սյունակ VBA- ով
Excel- ի համար Kutools- ով ձախից աջ սյուններ շարել
Կուտակեք սյունակները ձախից աջ դեպի մեկ սյունակ VBA- ով
Excel- ում չկա ներկառուցված գործառույթ, որը կարող է կարգավորել այս աշխատանքը, բայց VBA կոդը կարող է օգնել ձեզ:
1. Մամուլ Alt + F11 ստեղները, ապա ՝ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ ստեղծել նոր դատարկ մոդուլ:
2. Պատճենեք և կպցրեք կոդը ներքևում Մոդուլներ.
VBA. Դիր շարասյունները մեկի մեջ
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Մամուլ F5 Կոդը գործարկելու համար ստեղնաշար է դուրս գալիս ձեզ համար երկխոսություն ՝ սյուններն ընտրելու համար:
4: սեղմեք OK, ընտրեք բջիջ արդյունքը տեղադրելու համար:
5: սեղմեք OK ավարտել. Այժմ ընտրված սյունները դասավորված են մեկ սյունակի մեջ:
Excel- ի համար Kutools- ով ձախից աջ սյուններ շարել
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներ տեղադրված է Excel- ում, կարող եք օգտագործել Transform Range կոմունալ այս աշխատանքը կարգավորելու համար:
| Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝（Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Ընտրեք այն սյունակները, որոնք ցանկանում եք կուտակել, կտտացրեք Կուտոլս > Շարք > Transform Range.
2. Մեջ Transform Range երկխոսություն, ստուգում Range to single row վանդակը, կտտացրեք Ok.
3. Բացվող պատուհանում ընտրեք բջիջ արդյունքը տեղադրելու համար, կտտացրեք OK.
Այժմ սյունները վերափոխվել են մեկ տողի:
4. Ընտրեք մեկ շարքը, սեղմեք Ctrl + C այն պատճենելու և ընտրելու մեկ այլ բջիջ, որը կտեղադրի բուրգի սյունը, աջ կտտացրեք ընտրելու համար Transpose(T) համատեքստի մենյուում:
Այժմ մեկ շարքը տեղափոխվել է բուրգի սյուն:
Տեղափոխել տիրույթը
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
