Ինչպե՞ս միավորել բջիջները, եթե նույն արժեքը գոյություն ունի 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 սյունակում նույն արժեքները պետք է լինեն շարունակական:

Միացրեք բջիջները, եթե նույն արժեքը 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- ի համար նախատեսված գործիքներ.  Կարող եք հեշտությամբ միացնել բջիջները ստորակետով, ստորակետով և այլն, եթե նույն արժեքները գոյություն ունեն մեկ այլ սյունակում:

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

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

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

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

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-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...