Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս համատեղել բազմաթիվ սյունակներ Excel- ի մեկ ցուցակում:

Բազմաթիվ սյունակները մեկ երկար ցուցակում միավորելու կամ միաձուլելու համար, սովորաբար, կարող եք սյունակների տվյալները մեկ առ մեկ պատճենել և տեղադրել դրանք նշված սյունակում: Բայց այստեղ կարող եմ ձեզ ներկայացնել մի քանի արագ հնարքներ Excel- ում այս խնդիրը լուծելու համար:

Միացրեք մի քանի սյունակներ մեկ ցուցակում VBA կոդի հետ

Միացրեք մի քանի սյունակներ մեկ ցուցակում Kutools- ի համար Excel- ի

Առանց կրկնելու սյունակների տվյալները պատճենելու և տեղադրելու, հետևյալ VBA կոդը կարող է օգնել ձեզ արագ և հեշտությամբ զբաղվել այս գործով:

1. Անջատեք Alt + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA կոդ. Միավորել կամ միավորել բազմաթիվ սյունակներ մեկ ցուցակում

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք միավորել միայն մեկ սյունակում, տե՛ս նկարը.

doc սյունակները միավորել մեկի մեջ 1

4. Եվ այնուհետեւ կտտացրեք OK կոճակը, և ընտրված սյունակները միավորվել են միայն մեկ սյունակում, ինչպես ցույց են տրված հետևյալ նկարները.

doc սյունակները միավորել մեկի մեջ 2 2 doc սյունակները միավորել մեկի մեջ 3

TipsԱյս VBA- ն գործարկելուց հետո միջակայքի բնօրինակ տվյալները կջնջվեն, ավելի լավ է նախ պատճենեք և պահեք դրանք այլ վայրում:

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

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

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

1, Ընտրեք սյունակների տվյալները, որոնք ցանկանում եք միավորել մեկ ցուցակում:

2. Այնուհետեւ կտտացրեք Կուտոլս > Շարք > Փոխակերպել շարքը, տես նկարի նկարը.

3, Մեջ Փոխակերպել շարքը երկխոսության տուփ, ընտրեք Շարքը մինչև մեկ սյունակ տարբերակը և սեղմեք Ok կոճակը, տես նկարի նկարը.

doc սյունակները միավորել մեկի մեջ 5

4, Հետևյալում դուրս եկավ Փոխակերպել շարքը տուփը, կտտացրեք այն բջիջին, որտեղ ցանկանում եք արդյունքը դուրս բերել, տես նկարի նկարը.

doc սյունակները միավորել մեկի մեջ 6

5. Այնուհետեւ կտտացրեք OK կոճակը, ձեր ընտրած սյունակները միավորվել են մեկ սյունակի մեջ ՝ ձեր ցանկալի վայրում: Տեսեք,

doc սյունակները միավորել մեկի մեջ 7

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

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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
Kevin
Kevin
This comment was minimized by the moderator on the site
This works great if you need to combine all of one column, then move to the next column, etc. What if you need to combine them in the row order? Such as...
A1
B1
A2
B2
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To combine the data from rows into one single column based on the row order, please apply the following code:
Sub ConvertRangeToColumn()
'Updateby Extendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
Денис
Денис
This comment was minimized by the moderator on the site
Доброго вечера, благодарю Вас за помощь, Вы сэкономили часы времени. Спасибо, желаю Вам счастья!
Reply
0
0
skyyang
skyyang     Денис
This comment was minimized by the moderator on the site
Hello,
Glad it can help you! 😀
Reply
Report
0
0
Мария
Мария
This comment was minimized by the moderator on the site
Спасибо большое, все сработало!!!
Reply
0
0
Aster
Aster
This comment was minimized by the moderator on the site
This has been very helpful. It saved me hours of copying and pasting columns from A to ANY.
Reply
Report
0
0
Mike
Mike
This comment was minimized by the moderator on the site
This worked perfect and was very helpful! Thanks!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations