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

Ինչպե՞ս Excel- ում սյունից մեկ տվյալ բջիջ տեղափոխել տվյալները:

Երբ անհրաժեշտ է տվյալների ցուցակը մեկ թերթիկի մեջ տեղափոխել աշխատանքային թերթում, սովորաբար, կարող եք կիրառել այն Միասին գործառույթը `բջիջների ցուցակը մեկ բջիջում միաձուլելու համար, բայց դա բարդ կլինի, եթե հսկայական տվյալներ անհրաժեշտ լինի միավորել: Այս հոդվածում ես կխոսեմ Excel- ում այս խնդիրը լուծելու համար ձեզ մի քանի արագ հնարքների մասին:

Տեղափոխեք տվյալները սյունակից մեկ մեկ բջիջում, օգտագործողի կողմից սահմանված գործառույթով

Excel- ի համար Kutools- ի միջոցով տվյալների սյունակից տեղափոխեք մեկ մեկ բջիջ


Բջջային արժեքների ցուցակը միաձուլելու Բացառությամբ «Համակցված» գործառույթի, կարող եք կիրառել հետևյալ VBA կոդը ՝ արդյունքն առավելագույնս արագ ստանալու համար:

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

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

VBA կոդ. Տվյալները սյունակից տեղափոխեք մեկ մեկ բջիջ

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3, Ապա պահեք և փակեք այս կոդը, հետ գնացեք աշխատաթերթը և մուտքագրեք այս բանաձևը. = փոխադրումը (A1: A10) արդյունքը դնելու համար դատարկ վանդակի մեջ և սեղմել Մտնել բանալին, դուք կստանաք սյունակի բոլոր բջիջների արժեքները, որոնք տեղակայված են մեկ խցում, տես նկարի նկարը.

doc բջիջները տեղափոխում են մեկ բջիջ 1

ՆշումՎերոհիշյալ ծածկագրում A1: A10 ցուցակի տիրույթն է, որը ցանկանում եք փոխադրել մեկ մեկ բջիջի մեջ, և նաև, կարող եք առանձնացնել միավորված բովանդակությունը այլ սահմանազատիչների հետ, ինչպիսիք են ստորակետը, գծիկը, տարածքը և այլն, պարզապես փոխելով ստորագրությունը սցենարի մեջ xStr = xStr & xCell.Value & ",".


Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներիր հզոր գործիքով.Միավորել, Դուք կարող եք միավորել տվյալները սյունակում, շարքում կամ միջակայքում մինչև մեկ բջիջ:

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

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալ կերպ .( Անվճար ներբեռնեք Kutools Excel- ի համար հիմա: )

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

2: Սեղմեք Կուտոլս > Միաձուլում և պառակտումՄիավորել տողերը, սյունակները կամ բջիջները ՝ առանց տվյալների կորստի, տես նկարի նկարը.

3, Բացված երկխոսության դաշտում ընտրեք Միավորել մեկ բջիջի մեջ տակ Ընտրված բջիջները համատեղելու համար `համաձայն հետևյալ ընտրանքների, ապա նշեք տարանջատիչ `միաձուլված բովանդակությունն առանձնացնելու համար, տես նկարի նկարը.

doc բջիջները տեղափոխում են մեկ բջիջ 3

4. Այնուհետեւ կտտացրեք Ok or Դիմել կոճակը, և կստանաք հետևյալ արդյունքը ՝ ըստ ձեզ անհրաժեշտի.

doc բջիջները տեղափոխում են մեկ բջիջ 4 2 doc բջիջները տեղափոխում են մեկ բջիջ 5

Ներբեռնեք և անվճար փորձեք Kutools- ը 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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations