Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս 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 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (6)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, սա շատ օգտակար էր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Շատ շնորհակալություն! Ես օգտագործում եմ ձեր հետևյալ գործառույթը և այն շատ լավ է աշխատում: Ես կցանկանայի ներառել «եթե» գործառույթը transposerage-ում: Ի՞նչ պետք է ավելացնեմ VBA-ում ֆունկցիային: Հիմնականում այն ​​կաշխատի որպես countif: Այսպիսով, մենք կկարդանք բանաձևը =transposerangeif (միջակայք, չափանիշ):

Thanks in advance!

Function transposeRange (Rg As Range)
«թարմացնելով Extendoffice 20151207
Dim xCell-ը որպես տիրույթ
Dim xStr Որպես տող
Յուրաքանչյուր xCell-ի համար Rg-ում
If Not IsEmpty(xCell.Value) Ապա
xStr = xStr & xCell.Value & ","
Վերջ: Եթե
հաջորդ
transposeRange = Left(xStr, Len(xStr) - 1)
End գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սոֆի,
Կարո՞ղ եք օրինակ բերել ձեր կարիքի համար, կարող եք տեղադրել սքրինշոթ այստեղ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա մի քանի անգամ ծիծաղելիորեն օգտակար է եղել ինձ համար: Շատ շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞, թե ինչպես կարելի է պայմանական կանոն ավելացնել այս ֆունկցիային: Հիմնականում ես էլփոստի գրացուցակ ունեմ բազմաթիվ բիզնեսների համար: Կա մի սյունակ, որտեղ ես նշում եմ այո կամ ոչ՝ ի պատասխան այն բանի, թե արդյո՞ք էլփոստը բիզնեսի հիմնական կոնտակտն է: Ես հուսով եմ, որ կոդը կկարգավորվի այնպես, որ միայն հիմնական կոնտակտները քաշվեն և նշվեն մեկ բջիջում: Հետևաբար, պայմանը կլինի այն, որ Գլխավոր կոնտակտային սյունակում նշված լինի Այո: Ես փորձել եմ օգտագործել if հայտարարությունները, բայց ես բավականին նոր եմ այս ամենում: Ցանկացած օգնություն շատ գնահատելի կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բարեկամ,
Ուրախ եմ օգնել: Խնդրում ենք կարդալ այս հոդվածը. https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. Ես հավատում եմ, որ դա կարող է լուծել ձեր խնդիրը: Հաճելի օր.

Sincerely,
Mandy
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից