Excel-ում կապակցումը երկու տողերի միացման գործընթացն է՝ մեկ տող ստեղծելու համար: Պարզ ասած, եթե մենք ունենք աղյուսակ, որտեղ անունները մի սյունակում են, իսկ ազգանունները մեկ այլ սյունակում, մենք կարող ենք օգտագործել կապակցման ընթացակարգը՝ դրանք միացնելու և մեկ վանդակում միավորելու համար մեկ վայրկյանում: Excel-ում մենք ունենք գործառույթ, որը կոչվում է CONCATENATE () , որը թույլ է տալիս մեզ կատարել այս կապակցումը: Այնուամենայնիվ, VBA -ում այս տեսակի գործառույթն անթույլատրելի է: Մենք չենք կարող օգտագործել CONCATENATE () -ը VBA կոդում, քանի որ այն չի աշխատի: Քանի որ VBA չունի ներկառուցված գործառույթներ, և մենք չենք կարող օգտագործել աղյուսակների գործառույթները: Այսպիսով, այս դասը ձեզ ցույց կտա, թե ինչպես օգտագործել VBA concatenate-ը Excel-ում մի քանի բջիջներ, սյունակներ և տողեր միավորելու համար:

Ներբեռնեք Practice Workbook

Ներբեռնեք այս գործնական աշխատանքային գիրքը մարզվել այս հոդվածը կարդալու ընթացքում:

Ներածություն VBA Concatenate ֆունկցիայի

Ինչպես մենք ունենք նշեց, որ Excel-ը չունի որևէ ներկառուցված ֆունկցիա VBA Concatenate-ի համար, բայց մենք կարող ենք այնպես անել, որ այն աշխատի որպես ֆունկցիա՝ օպերատորների հետ համատեղելով տարբեր տողեր։ Այստեղ մենք օգտագործում ենք ամպերսանդը (&) որպես մեր օպերատոր:

⟴ Շարահյուսություն

String1 = “ Առաջին տեքստ”

String2 = « Երկրորդ տեքստ»

⟴ Վերադարձի արժեք

Վերադարձի_արժեք = Տող1 & String2

VBA Concatenate-ի 4 տարբեր կիրառումներԳործառույթ Excel-ում

Այստեղ մենք կօգտագործենք 4 տարբեր մոտեցումներ միացման գործընթացն իրականացնելու համար: Դրան հասնելու համար մենք կկիրառենք տարբեր օպերատորներ VBA կոդի հետ համատեղ:

1. Օգտագործեք Ampersand (&) օպերատոր՝ VBA Concatenate-ում բջիջներին միացնելու համար

Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, մենք ունենք տվյալների երկսյունակ հավաքագրում՝ մի սյունակում անուններով, իսկ մյուսում՝ ազգանուններով: Միավորելով երկու սյունակները, այժմ մենք կարող ենք ստանալ ամբողջական անունները: Քանի որ VBA չունի միացման ներկառուցված մեթոդներ, մենք կօգտագործենք (&) օպերատորը, ինչպես նկարագրված է ստորև ներկայացված հրահանգներում:

Քայլ 1.

• Նախ, սեղմեք Alt + F11 բացելու համար Մակրո-միացված աշխատանքային թերթիկ:
• Այնուհետև սեղմեք
• Ընտրեք Մոդուլ :

Քայլ 2.

• Երկու բջիջ մեկի մեջ միավորելու համար պատճենեք և տեղադրեք հետևյալ VBA

8974

Այստեղ,

• String1 = Cells(5, 2): Արժեքը առաջին բջիջի գտնվելու վայրն է B5 , տող 5, և սյունակ 2 ։
• String2 = Բջիջներ(5, 3): Արժեքը երկրորդ բջիջի տեղադրությունն է C5 , տող 5, և սյունակ 3 ։
• Բջիջներ(5, 5).Արժեք = String1 & String2 արդյունքի բջիջի տեղադրությունն է E5 , տող 5 և սյունակ 5 ։
• String1 & String2 երկու տողերն են, որոնք միացված են նշանով (&)

Քայլ3:

• Պահպանեք և սեղմեք F5 ծրագիրը գործարկելու համար:

Հետևաբար, արդյունքը կստանաք E5 ձեր ընթացիկ աշխատաթերթի բջիջը:

Քայլ 4.

• Հետևեք և կրկնեք քայլերը հանգստացրեք բջիջները և ստացեք արդյունքները, ինչպես ցույց է տրված ստորև նկարում:

Կարդալ ավելին. Ինչպես օգտագործել VBA StrComp-ը Excel-ում ( 5 Ընդհանուր օրինակներ)

2. Օգտագործեք Plus (+) օպերատոր՝ VBA Concatenate-ում բջիջներին միացնելու համար

Ինչպես նկարագրված է նախորդ բաժնում, մենք օգտագործել ենք ամպերսանդը (& ;) Օպերատոր` բջիջների տողերը միացնելու համար: Նույն արդյունքը կարող եք ստանալ՝ կիրառելով պլյուս (+) նշանը (&) օպերատորի փոխարեն: Դա անելու համար հետևեք այս քայլերին:

Քայլ 1.

• Բացել Մակրո Excel-ում սեղմեք Alt + F11 :
• Սեղմեք Տեղադրեք եւ ընտրեք
• Ծրագրի էջը բացելուց հետո տեղադրեք հետևյալ VBA

3063

Ահա,

• Բջիջներ(5, 5): Արժեքը = String1 + String2 այս տողն է մենք օգտագործում ենք գումարած (+) նշանը նշանի փոխարեն (&)

Քայլ 2 :

• Կպցնելուց հետո պահեք և սեղմեք F5 Ծրագիրը գործարկելու համար: Հետևաբար, դուք կտեսնեք բջիջի փոփոխությունը E5 ։

• Վերջնական արդյունքները ստանալու համար լրացրեք պահանջվող բջիջները՝ կրկին կատարելով նախորդ քայլերը։

Կարդալ ավելին. Ինչպես օգտագործել VBA StrConv ֆունկցիան (5 օրինակ)

Նման Ընթերցումներ.

• Ինչպես կանչել ենթահանձնաժողով VBA-ում Excel-ում (4 օրինակ)
• Վերադարձնել արժեք VBA ֆունկցիայի մեջ (երկուսն էլ Զանգված և ոչ զանգվածային արժեքներ)
• Ինչպես օգտագործել VBA DIR ֆունկցիան Excel-ում (7 օրինակ)
• Օգտագործել VBA UCASE ֆունկցիան Excel-ում ( 4 օրինակ)
• Ինչպես օգտագործել InStr ֆունկցիան VBA-ում (3 օրինակ)

3. Ավելացնել բազմաթիվ սյունակներ՝ օգտագործելով VBA Concatenate

Նախորդ երկու մոտեցումներում մենք քննարկեցինք, թե ինչպես կարելի է համատեղել երկու բջիջ: Այնուամենայնիվ, եթե մենք ցանկանում ենք այն կիրառել ամբողջ սյունակի վրա, մեկ առ մեկ ավելացնելը երկար ժամանակ կպահանջի։ Մենք կսովորեցնենք ձեզ, թե ինչպես կարելի է ամբողջությամբ ավելացնել բազմաթիվ սյունակներ VBA կոդով դրա համար:

Քայլ 1.

• Նախ, Macro բացելու համար սեղմեք Alt + F11
• Ընտրեք Module -ից Տեղադրեք ներդիրը
• Այնուհետև տեղադրեք հետևյալ VBA

7786

Այստեղ,

• հետևյալը Worksheets («Sheet3») -ը ձեր ընթացիկ աշխատաթերթի անունն է:
• LastRow = .Cells(.Rows.Count, «B»).End(xlUp):Տող -ն է: առաջին սյունակի անվանումը:
• With .Range(“E5:E” & LastRow) արդյունքի վերադարձի բջիջների տիրույթն է:
• .Formula = “= B5&C5" -ին միանալու բանաձեւն էընդգրկույթի առաջին բջիջը:

Քայլ 2.

• Այնուհետև, վերջապես, պահպանեք և սեղմեք F5 ծրագիրը գործարկելու համար:

Արդյունքում դուք կստանաք արդյունքներն ամբողջությամբ սյունակում:

Կարդալ ավելին. Ինչպես օգտագործել VBA Rnd-ը Excel-ում (4 մեթոդ)

4. Միացնել բազմաթիվ տողեր VBA Concatenate-ի միջոցով

Բացի բազմաթիվ սյունակներ ավելացնելուց, մենք կարող ենք նաև կիրառել VBA կոդ` մի քանի տող մեկում միացնելու համար: Ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում, մենք ցանկանում ենք միացնել երեք տողերը մեկի մեջ: Տողերը միացնելու համար հետևեք ստորև ներկայացված պարզ քայլերին:

Քայլ 1.

• Excel-ում Macro ակտիվացնելու համար, սեղմեք Alt + F11 :
• Այնուհետև ընտրեք Մոդուլ Տեղադրեք
• միավորվելու համար տողերը, տեղադրեք VBA

2878

Այստեղ,

• Սահմանեք SourceRange = Range(“B5:D5”) սկզբնաղբյուր բջիջների տիրույթն է:
• Range(«B8»).Value = Trim(i) -ը վերադարձվող բջիջի համարն է:

Քայլ 2.

• Վերջապես պահպանեք ծրագիրը և սեղմեք F5 գործարկման համար:

Այսպիսով, , երեք տողերը միացնող վերջնական արդյունքը կցուցադրվի B8 բջիջում:

Կարդալ ավելին. Ինչպես Ցույց տալ վերին տողերը Excel-ում (7 մեթոդ)

Եզրակացություն

Ամփոփելու համար, հուսով եմ, որ այս գրառումը հստակ հրահանգներ է տվել, թե ինչպես օգտագործել VBA միակցումը Excel-ը տարբեր ձևերով: Բոլորըայս տեխնիկան պետք է սովորել և օգտագործել ձեր տվյալների վրա: Քննեք պրակտիկայի գիրքը և օգտագործեք ձեր նոր գտած գիտելիքները: Ձեր բարի աջակցության շնորհիվ մենք մղված ենք շարունակելու նման սեմինարների ստեղծումը:

Խնդրում ենք մի հապաղեք կապվել մեզ հետ, եթե ունեք հարցեր: Խնդրում ենք տեղեկացնել մեզ, թե ինչ եք մտածում ստորև՝ մեկնաբանությունների դաշտում:

Exceldemy Թիմը մշտապես կպատասխանի ձեր հարցերին: