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

Ինչպե՞ս միավորել բջիջները, եթե նույն արժեքը գոյություն ունի Excel- ի մեկ այլ սյունակում:

համատեղել, եթե նույնն է

Ինչպես ցույց է տրված ձախ սքրինշոթը, ենթադրելով, որ դուք պետք է միացնեք երկրորդ սյունակի բջիջները՝ հիմնվելով առաջին սյունակի նույն արժեքի բջիջների վրա: Ինչպե՞ս կարող եք դրան հասնել:

Այս հոդվածում մենք կներկայացնենք երեք մեթոդ՝ դրան հասնելու համար:

Միացրեք բջիջները, եթե նույն արժեքը բանաձևերի և ֆիլտրի հետ է

Միացրեք բջիջները, եթե նույն արժեքը VBA կոդի հետ
Excel- ի համար Kutools- ի հետ նույն արժեքը հեշտությամբ միացրեք բջիջներին


Միացրեք բջիջները, եթե նույն արժեքը բանաձևերի և ֆիլտրի հետ է

Ստորև բերված բանաձևերով կարող եք համապատասխանեցնել բջիջների համապատասխան պարունակությունը, եթե մեկ այլ սյունակ պարունակում է նույն արժեքը Excel- ում:

1. Երկրորդ սյունակից բացի ընտրեք դատարկ բջիջ (այստեղ մենք ընտրում ենք C2 բջիջ), մուտքագրեք բանաձև = ԵԹԵ (A2 <> A1, B2, C1 & "," & B2) մեջ բանաձևի գոտի, ապա սեղմել Մտնել բանալի.

2. Դրանից հետո ընտրեք C2 բջիջը և լրացրեք բռնիչը ներքև քաշեք այն բջիջները, որոնք ձեզ հարկավոր է համակցելու համար:

3. Մուտքագրեք բանաձևը = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") մտեք D2 բջիջ և քաշեք Լրացրեք բռնակը ներքև ՝ մնացած բջիջները:

4. Ընտրեք D1 բջիջը և կտտացրեք Ամսաթիվ > ֆիլտր, Տեսեք,

5. Կտտացրեք բացվող սլաքը D1 բջիջում, հանել ընտրությունը (Բլանկներ) տուփը, ապա կտտացրեք OK կոճակը:

Դուք կարող եք տեսնել, որ բջիջները միավորված են, եթե սյունակի առաջին արժեքները նույնն են:

ՆշումՎերոնշյալ բանաձևերը հաջողությամբ օգտագործելու համար A սյունակում նույն արժեքները պետք է լինեն շարունակական:


Հեշտությամբ միավորեք սյունակի բջիջները, եթե նույն արժեքը կա մեկ այլ սյունակում.

հետ Excel- ի համար նախատեսված գործիքներ's Ընդլայնված կոմբինատ տողեր օգտակար, դուք կարող եք հեշտությամբ միավորել սյունակի բջիջները, եթե նույն արժեքը գերազանցի Excel- ի մեկ այլ սյունակում, ինչպես ցույց է տրված ստորև ցուցադրված ցուցադրումը: Ներբեռնեք Kutools-ը Excel-ի համար հիմա: (30- օր անվճար երթուղի)

աղտոտել նույնը


Միացրեք բջիջները, եթե նույն արժեքը VBA կոդի հետ

Բացի բանաձևից, այս բաժնում մենք ձեզ ցույց կտանք, թե ինչպես օգտագործել VBA կոդը բջիջները նույնացնելու համար, եթե նույն արժեքն է:

1. Մամուլ ալտ + F11 բացել ստեղները Microsoft Visual Basic ծրագրեր պատուհան.

2. Մեջ Microsoft Visual Basic ծրագրեր պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Ապա պատճենեք և կպցրեք կոդը ներքևում Մոդուլներ պատուհան.

VBA կոդ. Միաձուլված բջիջներ, եթե նույն արժեքները

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

Notes:

1. D1 համապատասխանում Սահմանել xRg = տիրույթ ("D1") նշանակում է, որ արդյունքը կտեղադրվի D1 բջիջում:

2. Ոչ և Համակցված գույն համապատասխանում xRes (1, 1) = "Ոչ" և xRes (1, 2) = "Համակցված գույն" համակցված սյունակների վերնագրերն են: Դուք կարող եք փոխել դրանք, ինչպես ձեզ հարկավոր է:

3. Սեղմեք F5 կոդը գործարկելու բանալին, ապա դուք կստանաք համակցված արդյունքներ նշված տիրույթում:


Հեշտությամբ միացրեք բջիջները, եթե նույն արժեքն է Excel- ի համար Kutools- ի հետ (մի քանի կտտացնում)

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

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

1. Ընտրեք բջիջների միջակայքը, որն անհրաժեշտ է միավորել, և այնուհետև կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, Տեսեք,

2. Մեջ Ընդլայնված կոմբինատ տողեր երկխոսության տուփ, դուք պետք է անեք հետևյալը.

  • 2.1) Ընտրեք նույն արժեքով սյունակը, որի վրա ցանկանում եք միավորել բջիջները, և այնուհետև կտտացրեք այն Առաջնային բանալին կոճակը:
  • 2.2) Ընտրեք այն սյունը, որը ցանկանում եք բջիջները միավորել, կտտացրեք Միավորել կոճակը, այնուհետև համատեքստի ընտրացանկից առանձնացնել բաժանումը (այստեղ ես նշում եմ Կոմբին).
  • 2.3) Կտտացրեք այն OK կոճակը:

Այժմ բջիջները համակցված են ըստ առաջնային բանալու սյունակի:

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար Kutools- ի հետ նույն արժեքը հեշտությամբ միացրեք բջիջներին


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (18)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծես թե բանաձևերի և զտիչների միջոցով չի կարող միանալ 2-ից ավելի բջիջների հետ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ միաձուլել նույն անուններով սյունակները, օրինակ՝ մեկ սյունակում կարդացվում է Քենիա ամբողջ տարածքում, իսկ 2-րդ սյունակում՝ արևմտյան, Նյանզան (հայտնվում է ավելի քան տասը անգամ) և 3-րդ սյունակում՝ երեք շրջանների անուններ: Ես ուզում եմ հասկանալ, թե որքան մանգի շրջաններ ունենք յուրաքանչյուր գավառում, բայց պահպանել սյունակները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջեֆրի,

Խնդրում ենք փորձեք Advanced Combine Rows օգտակար ծրագիրը, որը մենք նշեցինք վերը նշված երկրորդ մեթոդում: Եթե ​​ցանկանում եք պահպանել սյունակները, խնդրում ենք պատճենել բնօրինակ տիրույթը և ամեն ինչ արեք պատճենված տիրույթում:

Նշեք գավառի սյունակը որպես Հիմնական բանալի, դրեք սյունակ 1-ը որպես Պահպանեք 1-ին, այնուհետև սահմանեք շրջանի սյունակը որպես Հաշվել > Հաշվել:

Դրանից հետո դուք կստանաք, թե քանի շրջան ունեք յուրաքանչյուր գավառում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կապակցման գործառույթը չի աշխատում: Միավորում է բոլոր տողերը մեկ բջիջում՝ չնայած տարբեր ստեղներին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Մարիսա,
Կներեք, ես վստահ չեմ, որ ստացել եմ ձեր հարցը: Հոդվածում կա երեք մեթոդ, ո՞ր միացվող հատկանիշը նկատի ունեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես շատ շնորհակալ եմ ձեզ այս բանաձեւերի համար: Ֆանտաստիկ աշխատանք!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հենց այն է, ինչ ինձ պետք էր... շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործելով VBA մակրո և ստանալով հիանալի արդյունքներ՝ ես փորձել եմ մի փոքր շտկել այն իմ կարիքների համար, բայց չեմ կարող այն գործի դնել, ուստի հուսով եմ, որ դուք կարող եք օգնել:

Ո՞ր բիթը փոխեմ, որպեսզի այն միացվի որոշակի սյունակին, այլ ոչ թե xSrc = Range-ի աջ կողմում գտնվողը:

Շնորհակալություն ձեր մեծ աշխատանքի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կամ որպես ավելի լավ տարբերակ, եթե դուք ունեիք 3 սյունակ 2-ի փոխարեն և կրկնօրինակներ եք գտել A սյունակում (ինչպես ձեր օրինակը), կարո՞ղ եք B սյունակը միացնել բջիջի մեջ, իսկ C սյունակը առանձին բջիջի մեջ: Այսպիսով, եթե դուք ունեք «Թիվ», «Գույն», «Տարիք» սյունակներ, կարո՞ղ եք գույնը և տարիքը միացնել տարբեր սյունակների՝ «Թիվ»-ում կրկնօրինակներ գտնելուց հետո: Հուսով եմ, որ դա իմաստ ունի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ այս VBA-ն իմ բազմաթիվ աղյուսակների համար և դա հիանալի է: Բայց աղյուսակները դարձել են շատ մեծ 50k+ տողեր, և կարծես թե այլևս չի աշխատում: Եթե ​​ես օգտագործում եմ այն ​​1000 տողերի վրա, այն լավ է աշխատում, բայց տվյալների մեծ հավաքածուները, թվում է, չեն կարողանում հաղթահարել: Ոչ մի սխալ, պարզապես ոչ մի արդյունք: Ցանկացած օգնություն կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi James,
Ես փորձարկեցի կոդը, ինչպես դուք նշեցիք, բայց այն դեռ լավ է աշխատում իմ դեպքում, նույնիսկ ես տողերը դրեցի 1000+:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Կարծես թե ձեր բանաձևերից 2-ը սխալ են.

=IF(A2<>A3,CONCATENATE(A2,""","C2,""""),""): Դուք պետք է փոխեք «A2»-ը «D1»: Քանի որ դուք ցանկանում եք ավելացնել տողը նախորդ բջիջում:

նույնը վերաբերում է այս բանաձևին.

=IF(A2<>A1,B2,C1 & "," & B2): Փոխեք C1-ը D1-ի:


Հարգանքներով


Չարչարել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, նախ շնորհակալություն այս ռեսուրսը ստեղծելու համար: Ես մի քանի ժամ փորձում էի դա պարզել, և ես խրված եմ: Ես օգտագործում եմ ձեր «միավորվող բջիջները, եթե նույն արժեքը», բայց իմ սկրիպտը նայում է «D» սյունակին՝ «A»-ի փոխարեն։ Իմ դեպքերում ես ուզում եմ, որ նա նայի «D» սյունակին, որպեսզի տեսնի, արդյոք արժեքը նույնն է, և եթե այո, ապա այն կվերցնի տվյալները «H» սյունակից և «H» սյունակից այդ տվյալները կդնի բջիջի մեջ: «J» սյունակում: Ինչպե՞ս կարող եմ սա փոխել «H» սյունակը տվյալների համար: Thx


Sub ConcatenateCellsIfSameValues()
Dim xCol որպես նոր հավաքածու
Dim xSrc Որպես տարբերակ
Dim xRes() Որպես տարբերակ
Dim I As Long
Dim J As Long
Dim xRg որպես տիրույթ
xSrc = Շրջանակ («D1», Բջիջներ (Տողեր. Հաշվարկ, «D»). Վերջ (xlUp)). Չափափոխել (, 2)
Սահմանել xRg = միջակայք («J1»)
Ս.թ. սխալի Ռեզյումե Next
For I = 2 To UBound (xSrc)
xCol.Ավելացնել xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Հաջորդը ես
Սխալի դեպքում GoTo 0
ReDim xRes (1-ից դեպի xCol.Count + 1, 1-ից 2)
xRes (1, 1) = «Ոչ»
xRes(1, 2) = «Ապրանքներ»
I = 1-ի համար դեպի xCol.Count
xRes (I + 1, 1) = xCol (I)
J = 2-ի համար դեպի UBound (xSrc)
Եթե ​​xSrc(J, 1) = xRes(I + 1, 1) Ապա
xRes (I + 1, 2) = xRes (I + 1, 2) & vbCrLf & xSrc (J, 2)
Վերջ: Եթե
Հաջորդ Ջ
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Հաջորդը ես
Սահմանել xRg = xRg. Չափափոխել (UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = «@»
xRg = xRes
xRg.EntireColumn.AutoFit
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Ես չեմ կարող հասկանալ, թե ինչպես կարող եմ ստիպել, որ այն օգտագործի այլ սյունակ տվյալների համար, բացի կողքի սյունակից: Իմ դեպքերում ես ուզում եմ, որ այն նայեր «D» սյունակին՝ տեսնելու, թե արդյոք արժեքը նույնն է և արդյոք Այսպիսով, այն կվերցնի տվյալները «H» սյունակից և «H» սյունակից այդ տվյալները կդնի «J» սյունակի բջիջի մեջ»:

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

Ես ունեմ աղյուսակ, որտեղ անձի անունը եղել է A սյունակում, ամսաթվերը՝ B սյունակում և գործիքների անունները, որոնք նրանք օգտագործում են C:G սյունակների վերնագրերում: Յուրաքանչյուր սյունակում կա «Y», եթե նրանք օգտագործել են այդ գործիքը տվյալ ամսաթվին, և դատարկ, եթե չեն օգտագործել: (FYI. միևնույն անձը կարող է նշված լինել մեկից ավելի անգամ և կարող է օգտագործել նույն գործիքը մեկից ավելի անգամ) Առանձին (ամփոփիչ) էջում ես ուզում էի թվարկել բոլոր այն գործիքները, որոնք յուրաքանչյուր անձ օգտագործել է ամսաթվային ժամանակահատվածում՝ նշելով միայն յուրաքանչյուր գործիք, որը նա օգտագործել է: մեկ անգամ՝ նույն խցում։ Այս էջում անձի անունը նշված էր A սյունակում, Գործիքների տեսակները, որոնք օգտագործվում են սյունակ B-ում, իսկ օգնական սյունակները՝ G:K սյունակում: Ահա թե ինչ եմ ստացել.
Առաջին օգնական սյունակը (G2):
=IF(COUNTIFS(Table7[Person's Name],A2,Table7[Screw Driver],"Y",Table7[Date],">="&1/1/20,Table7[Date],"<="&3/31/20),"Screw Driver","")
Վերջին օգնական սյունակում (K2):
=IF(COUNTIFS(Table7[Person's Name],A2,Table7[Hammer],"Y",Table7[Date],">="&1/1/20,Table7[Date],"<="&3/31/20),IF(J2="","Hammer",J2&"/"&"Hammer"),J2)

B2-ում ես նոր մուտքագրեցի =K2

Կրկին շնորհակալություն և հուսով եմ, որ սա ինչ-որ մեկին կօգնի: EZPD
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ինչպե՞ս կկարգավորվի VBA կոդը, եթե ես ուզում եմ միավորել M սյունակի բջիջները՝ հիմնվելով A սյունակի կրկնօրինակների վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Քրիստին, M սյունակի բջիջները A սյունակի կրկնօրինակների հիման վրա միավորելու համար փորձեք ստորև նշված VBA-ն: Կոդի մեջ.  O1 առաջին բջիջն է, որը թողարկում է արդյունքները. M այն սյունակն է, որը դուք կմիավորեք A սյունակի կրկնօրինակների հիման վրա. A1 և A ներկայացնել առաջին բջիջը և սյունակը, որտեղ գտնվում են կրկնօրինակները. Ոչ և Միավորել գույնը միացումից հետո սյունակների վերնագիրն է: Դուք կարող եք փոխել այս փոփոխականները ըստ անհրաժեշտության: Sub ConcatenateCellsIfSameValues()
«Թարմացվել է Extendoffice 20211105
Dim xCol որպես նոր հավաքածու
Dim xSrc Որպես տարբերակ
Dim xSrcValue որպես տարբերակ
Dim xRes() Որպես տարբերակ
Dim I As Long
Dim J As Long
Dim xRg որպես տիրույթ
Dim xResultAddress As String
Dim xMergeAddress As String
Dim xUp-ը որպես ամբողջ թիվ

xResultAddress = «O1» «Արդյունքները թողարկող բջիջը
xMergeAddress = «M» «Սյունակը, որը դուք կմիավորեք A սյունակի կրկնօրինակների հիման վրա

xSrc = միջակայք ("A1«, Բջիջներ (Rows.Count, «A").End(xlUp)).Չափափոխել(, 1)
xUp = միջակայք ("A1«, Բջիջներ (Rows.Count, «A").End(xlUp)).Տողեր.Հաշիվ
xSrcValue = Շրջանակ (xMergeAddress & «1:» & xMergeAddress & xUp)

Սահմանել xRg = միջակայք (xResultAddress)
Ս.թ. սխալի Ռեզյումե Next
For I = 2 To UBound (xSrc)
xCol.Ավելացնել xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Հաջորդը ես

Սխալի դեպքում GoTo 0
ReDim xRes (1-ից դեպի xCol.Count + 1, 1-ից 2)
xRes(1, 1) = "Ոչ"
xRes(1, 2) = "Համակցված գույն"
I = 1-ի համար դեպի xCol.Count
xRes (I + 1, 1) = xCol (I)
J = 2-ի համար դեպի UBound (xSrc)
Եթե ​​xSrc(J, 1) = xRes(I + 1, 1) Ապա
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrcValue(J, 1)
Վերջ: Եթե
Հաջորդ Ջ
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Հաջորդը ես
Սահմանել xRg = xRg. Չափափոխել (UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = «@»
xRg = xRes
xRg.EntireColumn.AutoFit
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, վերը նշված մակրոները հիանալի են աշխատում: Շնորհակալություն. Հնարավո՞ր է արդյոք (ես փորձեցի, բայց չհաջողվեց) այն փոփոխել՝ միացնելով B սյունակը (նկարագրություն)՝ հիմնվելով A սյունակի կրկնօրինակների վրա (HS կոդ), բայց նաև վերցնելով C սյունակը (ծագումը) համակցության մեջ:
Այսպիսով, նկարագրության տեքստերը միանում են յուրաքանչյուր HS կոդի յուրաքանչյուր ծագման:
Նաև D (քանակ) և E սյունակը (արժեքը) պետք է ամփոփվեն ըստ HS կոդի և ծագման:

ABCDE
HS ԿՈԴ ՆԿԱՐԱԳՐՈՒԹՅՈՒՆ Ծագման Քանակ ԱՐԺԵՔ
5407420000 TWEED CN 10 € 150,00
5407420000 ԲԱՄԲԱԿ CN 15 € 250,00
5407420000 POLYESTER TW 5 € 130,00
5407420000 ՕՐԳԱՆԱԿԱՆ ԲԱՄԲԱԿ US 18 € 450,00
5407420000 ԲԱՄԲԱԿ US 23 € 780,00
5407420000 VELVET DELUXE CN 20 € 380,00
5407420000 ԲԱՄԲԱԿ CN 10 € 120,00
5806310000 TWEED JP 15 € 35,00
5806310000 ՊՈԼԻԵՍՏԵՐ AU 20 € 78,00
5806310000 TWEED AU 25 € 254,00
5806310000 POLYESTER SG 130 € 888,00
5806310000 ԲԱՄԲԱԿ ԵՄ 120 € 945,00
5806310000 Բամբակյա գործվածք EU 10 € 80,00


Արդյունքը պետք է լինի.

5407420000 TWEED, COTON, Velvet DULUXE, COTON, CN 55 € 900,00
5407420000 POLYESTER TW 5 € 130,00
5407420000 ՕՐԳԱՆԱԿԱՆ ԲԱՄԲԱԿ, ԲԱՄԲԱԿ US 41 € 1230,00
5806310000 TWEED JP 15 € 35,00
5806310000 ՊՈԼԻԵՍՏԵՐ, TWEED AU 45 € 332,00
5806310000 POLYESTER SG 130 € 888,00
5806310000 ԲԱՄԲԱԿ, ԲԱՄԲԱԿԱՆ ԿՏՈՐ ԵՄ 130 € 1025,00

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

Հետեւեք մեզ

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