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

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

Ենթադրելով, որ հարակից շարքերում ունեք մի նույնական տվյալների աշխատանքային թերթ, և այժմ ցանկանում եք միաձուլել նույն բջիջները մեկ բջիջում, որպեսզի տվյալները կոկիկ և գեղեցիկ տեսք ունենան: Ինչպե՞ս եք արագ և հարմար կերպով միացնում հարակից տողերը նույն տվյալների հետ: Այսօր ես ձեզ կներկայացնեմ այս խնդրի լուծման մի քանի արագ եղանակ:


Միաձուլեք նույն տվյալների հարակից տողերը VBA կոդի հետ

Իհարկե, նույն տվյալները կարող եք միավորել դրանց հետ Միաձուլում և կենտրոն հրամանը, բայց եթե հարյուրավոր բջիջներ պետք է միաձուլվեն, այս մեթոդը ժամանակատար կլինի: Այսպիսով, հետևյալ VBA կոդը կարող է օգնել հեշտությամբ միաձուլել նույն տվյալները:

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

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

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 Այս կոդը գործարկելու համար ստեղնաշարի վրա, էկրանին ցուցադրվում է երկխոսություն `աշխատելու տիրույթ ընտրելու համար: Տեսեք,

doc միաձուլել նույն բջիջները 2

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

doc միաձուլել նույն բջիջները 1


Excel- ի համար միաձուլեք նույն տվյալների հարակից շարքերը Kutools- ի հետ

Հետ Միաձուլել նույն բջիջները օգտակարությունը Excel- ի համար նախատեսված գործիքներ, մեկ հպումով կարող եք արագ միավորել միևնույն արժեքները բազմաթիվ սյունակներում:

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

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

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

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

3, Եվ ապա ընտրված սյունակների նույն տվյալները միավորվել են մեկ խցում: Տեսեք,

doc միաձուլել նույն բջիջները 4

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:

Այս մասին ավելին իմանալու համար այցելեք այստեղ Միաձուլել նույն բջիջները առանձնահատկություն.


Դեմո. Միաձուլեք նույն բջիջները մեկ խցում կամ հանեք ՝ կրկնօրինակ արժեքները լրացնելու համար.

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (43)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ կրկնօրինակել VBA մակրոները՝ տողերի փոխարեն սյունակներում հարակից բջիջները միացնելու համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վիոլետա, ես կրկնօրինակում եմ շարքը (ներքևում): օրինակ՝ փորձիր, օրինակ, փորձիր, օրինակ՝ փորձիր և փոխիր ծածկագիրը հետևյալով. Next WorkRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)).Merge i = j-1 It վերևի տողը միավորեց «օրինակ» և «փորձել»
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բոլոր նրանց համար, ովքեր դեռ փորձում են հասնել դրան, ես կարծում եմ, որ դա ստացել եմ Կոդերի սկիզբ ******************************** ***** Sub MergeSameCell() 'Updateby20131127 Dim Rng որպես տիրույթ, xCell որպես տիրույթ Dim xRows Որպես ամբողջ թիվ xTitleId = "MergeSimilar" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("TRngA,ddress": , Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False 'xRows = WorkRng.Rows.Count xCols = WorkRng.Columns.Count 'For Every Rng WorkRng.Columns' For i = 1 To xRows - 1 ' For j = i + 1 Դեպի xRows ' If Rng.Cells(i, 1).Value Rng.Cells(j, 1).Value Այնուհետեւ ' Exit For ' End If ' Next ' WorkRng.Parent.Range(Rng.Cells(i , 1), Rng.Cells(j - 1, 1)).Միաձուլել ' ​​i = j - 1 ' Հաջորդ 'Հաջորդը յուրաքանչյուր Rng-ի համար WorkRng-ում.Տողեր i = 1 դեպի xCols - 1 For j = i + 1 դեպի xCols Եթե ​​Rng.Cells(1, i).Value Rng.Cells(1, j).Value,Այնուհետև ելք ավարտելու համար, եթե հաջորդ WorkRng.Parent.Range(Rng.Cells(1, i), Rng.Cells(1, j - 1)).Միավորել i = j - 1 Հաջորդ Հաջորդ Application.DisplayAlerts = True Appl ication.ScreenUpdating = True End Sub ************************************* Կոդի ավարտը IE Պարզապես փոփոխեք ցանկացած տողերի հղումները սյունակների հղումների հետ փոխելու կոդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն!!! օգնեց ինձ վճռական պահին
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ շատ անգամներ է օգտակար :) Շատ շնորհակալություն, դա ինձ շատ ժամանակ խնայեց աշխատանքի ժամանակ: Մի փոքրիկ խնդրանք ունեմ. Ես փորձում եմ գտնել նույն միաձուլումը անելու եղանակը, բայց երբ յուրաքանչյուր արժեքից ցածր դատարկ բջիջներ կան, յուրաքանչյուր բջիջը միաձուլելու բոլոր դատարկ բջիջների հետ: Ինչպե՞ս կարող եմ փոփոխել մակրոն: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձեք այս կոդը Sub MergeSameCell() Dim Rng որպես տիրույթ, xCell որպես տիրույթ Dim xRows Որպես ամբողջ թիվ xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng: 8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count For Every Rng In WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1): Արժեք Rng.Cells(j, 1).Value then Exit For End If Next If Not IsEmpty(Rng.Cells(i, 1).Value) Or Not IsEmpty(Rng.Cells(j - 1, 1):Value ) Հետո WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge End If i = j - 1 Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
փորձեք այս կոդը Sub MergeSameCell() Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng:A. 8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count For Every Rng In WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1): Արժեք Rng.Cells(j, 1).Value then Exit For End If Next If Not IsEmpty(Rng.Cells(i, 1).Value) Or Not IsEmpty(Rng.Cells(j - 1, 1):Value ) Հետո WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge End If i = j - 1 Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ես նույն անունն ունեմ, lie Raju 1000 Raju 2000 Monu 100 Monu 200 Ապա ինչպես կարող եմ անել marge name գումարի հետ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, երբ այս մակրո գործարկելիս ես ստանում եմ «Application-defined or object-defined error» WorkRng.Parent.Range(rng.Cells(i, 1), rng.Cells(j - 1, 1)) տողում. Միավորել ցանկացած: գաղափարներ, թե ինչպես դա շտկել: Հարգանքներով՝ Միխալ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ նույն սխալը. դու դա դեռ պարզե՞լ ես եթե անում ես, ինչպե՞ս ես արել: շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ նույն սխալը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես թողնում եմ այստեղ փոփոխված սկրիպտը, որպեսզի այն կմիավորի ներքևում գտնվող բջիջները նույն արժեքով կամ դատարկ բջիջով. Sub MergeSameCell() 'Updateby20131127 Dim Rng որպես միջակայք, xCell որպես Range Dim xRows Որպես ամբողջ թիվ xTitleId = "KutoolsforExcel" Set WorkSelection = Ap: Սահմանել WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count For Every Rng WorkRng.Columns For i =1 Դեպի xRows - 1 For j = i + 1 To xRows If Rng.Cells(j, 1).Value "" then If Rng.Cells(i, 1).Value Rng.Cells(j, 1).Value then Exit For End If End If Next WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge i = j - 1 Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True Վերջ Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև խնդրում եմ օգնեք: Ես խնդիր ունեմ կոդի հետ՝ այս տողի հետ: Ինչ որ բան այն չէ? Եթե ​​Rng.Cells(j, 1).Value "" Այնուհետեւ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն. Դուք պետք է ունենաք. եթե Rng.Cells(j, 1).Value = "" ապա...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Միաձուլումը հաճելի է: Բայց դա պահանջում է ծածկագրի գործարկման ընթացքում նշել տիրույթը: Ես ուզում եմ նշել միջակայքը, այսինքն B1:B50 vba կոդի մեջ: Եվ այն դարձնելով վերևի ձախ հավասարեցում, բայց ինչպես խնդրում եմ օգնեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերոնշյալ կոդը գործարկելիս ցույց է տալիս կոմպիլյացիայի սխալը՝ շարահյուսական սխալ: Այն տողում, որտեղ օգտագործվում է «»-ը և սրա ստորին տողը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս տողով ես նույնպես բախվում եմ այս խնդրին: Եթե ​​Rng.Cells(j, 1).Value "" Ապա կարո՞ղ է ինչ-որ մեկը օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, Ինչպես կարող եմ ավտոմատ կերպով տեղադրել միջակայքը առանց օգտվողի մուտքի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցավում եմ, բայց ես մեկ ուրիշին ունեի, ով զբաղվի ինձ փոխարեն, ես չունեմ գիտելիքներ, որոնք կօգնեն ձեզ փոփոխությունների հարցում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև պարոն,. Փորձում եմ vba կոդը, բայց չի աշխատում: Սխալի հաղորդագրություն for.408-ի համար: Մասնավորապես, որ մեկնաբանությունը WorkRng.Parent. Range(rng.Cells (i, 1), rng.Cells(j - 1, 1)).Միաձուլում: Խնդրում ենք ուղարկել լուծումը։ Ես շատ ժամանակ եմ ծախսում փաստաթղթերը միաձուլելու համար: Ես հիմնականում միաձուլված եմ C20059290 բջիջների այս ձևաչափով: Շնորհակալություն և հարգանքներով Purusothaman: Գ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի պարոն, . Ես օգտագործում եմ vba կոդը excel թերթի համար բջիջների միաձուլման համար: Այն չի աշխատում, եկել է 408 սխալի համար: Մասնավորապես այս կոդը WorkRng.Parent: Range(rng.Cells (i, 1), rng.Cells(j - 1, 1)).Միաձուլում: Տվեք լուծումը. Շնորհակալություն և հարգանքներով Purusothaman
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, կարո՞ղ է ինչ-որ մեկը հրահանգել հակադարձ ճարտարագիտությամբ՝ բոլորի համար նույն արժեքով բջիջների սահմանազատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Makro-ն աշխատում է, բայց հիմա, երբ ես ուզում եմ զտել A սյունակում, երևում են միայն B սյունակից առաջին տեղեկատվությունը, որը կիրառելի է A սյունակի վրա: Նայելով մակրոյում տրված օրինակին, եթե ես ուզում եմ զտել երկուշաբթի օրը միաձուլման ավարտից հետո, միայն Nicol-ը կցուցադրվի, և Լյուսիի և Լիլիի ոչ մի տեղեկություն չի ցուցադրվի: Կա՞ մի տող, որը կարող եմ ավելացնել՝ դրանից խուսափելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
եթե դուք իսկապես ցանկանում եք զտել, ապա բջիջների միաձուլումը ձեզ չի օգնի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
In EXCEL INPUT NAME PRO1 PRO2 PRO3 A B C output A PRO1 A PRO2 A PRO3 B PRO1 B PRO2 B PRO3 C PRO1 C PRO2 C PRO3
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իսկապես օգտակար էր և ավելի մեծ չափով խնայեց իմ ժամանակը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է արդյոք VBA ծածկագիրը փոփոխվել, որպեսզի հասնի նույնը սյունակների միջև միաձուլման համար (ի տարբերություն վերևում գտնվող տողերի), այնուհետև կրկնել բոլոր տողերի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործեք վերը նշված կոդը, այնուհետև փոխադրեք արդյունքը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար !! Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օ, ընկեր, դու խնայում ես իմ օրերից շատ: Շնորհակալություն!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերը նշված VBA ծածկագրի 19 տողում «i=j-1»
ինչպե՞ս է դա ամեն դեպքում ազդելու մեր տրամաբանության վրա։ Ես դա հեռացրի և դեռ կարողացա ստանալ նույն արդյունքը:
Որևէ կոնկրետ նպատակ, ինչու է այն առկա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա i արժեքը վերջին տողով սահմանափակելու համար է:
Խնդրում ենք անտեսել այս գրառումը:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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