در اکسل، الحاق فرآیند اتصال دو رشته به یکدیگر برای تشکیل یک رشته است. به بیان ساده، اگر جدولی با نام‌های کوچک در یک ستون و نام‌های خانوادگی در ستون دیگر داشته باشیم، می‌توانیم از روش الحاق برای به هم پیوستن و ترکیب آنها در یک سلول واحد در یک ثانیه استفاده کنیم. در اکسل تابعی به نام CONCATENATE () داریم که به ما امکان می دهد این الحاق را انجام دهیم. با این حال، در VBA ، این نوع عملکرد مجاز نیست. ما نمی توانیم از CONCATENATE () در کد VBA استفاده کنیم زیرا کار نمی کند. زیرا VBA فاقد توابع داخلی است و ما نمی توانیم از توابع صفحه گسترده استفاده کنیم. بنابراین، این درس به شما نشان می‌دهد که چگونه از VBA الحاق برای ترکیب چندین سلول، ستون و ردیف در اکسل استفاده کنید.

دانلود کتاب تمرین تمرین

دانلود این کتاب تمرینی برای ورزش در حین خواندن این مقاله.

مقدمه ای بر عملکرد VBA Concatenate

همانطور که ما داریم اشاره کرد که اکسل هیچ تابع داخلی برای VBA Concatenate ندارد، اما می‌توانیم با ترکیب رشته‌های مختلف با عملگرها، آن را به عنوان یک تابع کار کنیم. در اینجا ما از علامت (&) به عنوان عملگر خود استفاده می کنیم.

⟴ نحو

String1 = " First Text"

String2 = " Second Text"

⟴ Return Value

Return_value = String1 & String2

4 کاربرد مختلف VBA Concatenateتابع در اکسل

در اینجا، ما از 4 رویکرد مختلف برای انجام فرآیند الحاق استفاده خواهیم کرد. ما عملگرهای مختلف را در ترکیب با کد VBA برای رسیدن به این هدف اعمال خواهیم کرد.

1. از عملگر Ampersand (&) برای پیوستن به سلول ها در VBA Concatenate استفاده کنید

همانطور که در نشان داده شده است در تصویر زیر، ما یک مجموعه داده دو ستونی داریم که نام‌ها در یک ستون و نام خانوادگی در ستون دیگر قرار دارد. با ادغام دو ستون، اکنون می توانیم نام کامل را بدست آوریم. از آنجایی که VBA هیچ روش داخلی برای الحاق ندارد، از عملگر (&) همانطور که در دستورالعمل‌های زیر توضیح داده شده است استفاده می‌کنیم.

مرحله 1:

• اول از همه، Alt + F11 را فشار دهید تا باز شود کاربرگ فعال شده ماکرو.
• سپس، روی
• انتخاب ماژول کلیک کنید.

مرحله 2:

• برای ترکیب دو سلول در یک سلول، VBA

8812

را کپی و جایگذاری کنید در اینجا،

• String1 = Cells(5, 2). Value اولین مکان سلول B5 ، ردیف 5، و است. ستون 2 .
• String2 = سلولها(5، 3). مقدار دومین مکان سلول C5 ، ردیف 5 است، و ستون 3 .
• Cells(5, 5).Value = String1 & String2 محل سلول نتیجه E5 ، ردیف 5 و ستون 5 است.
• String1 & String2 دو رشته ای هستند که توسط آمپرسند به هم وصل شده اند (&)

Step3:

• ذخیره کنید و F5 را فشار دهید تا برنامه اجرا شود.

بنابراین، نتیجه را در دریافت خواهید کرد. E5 سلول کاربرگ فعلی شما.

مرحله 4:

• مراحل را دنبال کرده و تکرار کنید سلول ها را استراحت دهید و نتایج را همانطور که در تصویر زیر نشان داده شده است دریافت کنید.

بیشتر بخوانید: نحوه استفاده از VBA StrComp در اکسل ( 5 مثال رایج)

2. از Operator Plus (+) برای پیوستن به سلول ها در VBA Concatenate استفاده کنید

همانطور که در بخش قبل توضیح داده شد، ما از علامت علامت (& استفاده کرده ایم. ;) عملگر برای پیوستن به رشته های سلول. شما می توانید با اعمال علامت مثبت (+) به جای علامت علامت (&) به همان نتیجه برسید. برای انجام آن این مراحل را دنبال کنید.

مرحله 1:

• برای باز کردن Macro در Excel، Alt + F11 را فشار دهید.
• کلیک کنید Insert و انتخاب کنید
• پس از باز کردن صفحه برنامه، پیست کنید زیر VBA

6056

در اینجا،

• Cells(5, 5). Value = String1 + String2 این خط است ما از علامت مثبت (+) به جای علامت (&) استفاده می کنیم

مرحله 2 :

• پس از چسباندن، ذخیره کنید و F5 را فشار دهید تا برنامه اجرا شود. در نتیجه، شما تغییر در سلول را مشاهده خواهید کرد E5 .

• برای به دست آوردن نتایج نهایی، با انجام مجدد مراحل قبل، سلول های مورد نیاز را پر کنید.

بیشتر بخوانید: نحوه استفاده از تابع VBA StrConv (5 مثال)

مشابه مطالب خوانده شده:

• نحوه فراخوانی یک Sub در VBA در اکسل (4 مثال)
• برگرداندن یک مقدار در تابع VBA (هر دو مقادیر آرایه و غیرآرایه)
• نحوه استفاده از تابع VBA DIR در اکسل (7 مثال)
• استفاده از تابع VBA UCASE در اکسل ( 4 مثال)
• نحوه استفاده از تابع InStr در VBA (3 مثال)

3. اضافه کردن چندین ستون با استفاده از VBA Concatenate

در دو رویکرد قبلی، نحوه ترکیب دو سلول را مورد بحث قرار دادیم. اما اگر بخواهیم آن را در کل ستون اعمال کنیم، اضافه کردن یک به یک زمان زیادی می برد. ما به شما آموزش خواهیم داد که چگونه چندین ستون را به طور کامل با کد VBA برای این کار اضافه کنید.

مرحله 1:

• ابتدا، برای باز کردن Macro Alt + F11
• را انتخاب کنید Module از درج برگه
• سپس، VBA

3610

در اینجا،

• با جای‌گذاری کنید کاربرگ ("Sheet3") نام کاربرگ فعلی شماست.
• LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row است نام ستون اول.
• با .Range("E5:E" & LastRow) محدوده سلول برگردانده نتیجه است.
• .Formula = "= فرمول B5&C5" برای پیوستن به آن استاولین سلول محدوده.

مرحله 2:

• سپس، در نهایت، ذخیره و فشار دادن F5 برای اجرای برنامه.

در نتیجه، نتایج را به طور کامل در یک ستون به دست خواهید آورد.

بیشتر بخوانید: نحوه استفاده از VBA Rnd در اکسل (4 روش)

4. با استفاده از VBA Concatenate به چند ردیف بپیوندید

علاوه بر اضافه کردن چندین ستون، می توانیم اعمال کنیم کد VBA برای الحاق چند ردیف به یک. همانطور که در تصویر زیر نشان داده شده است، می‌خواهیم سه ردیف را به یک ردیف متصل کنیم. برای به هم پیوستن ردیف‌ها، مراحل ساده زیر را دنبال کنید.

مرحله 1:

• برای فعال کردن Macro در اکسل، Alt + F11 را فشار دهید.
• سپس، Module را از Insert
• برای الحاق انتخاب کنید ردیف‌ها، VBA

4022

در اینجا،

• Set SourceRange = Range("B5:D5") قرار دهید محدوده سلول منبع است.
• Range("B8").Value = Trim(i) شماره سلول بازگشتی است.

مرحله 2:

• در نهایت، برنامه را ذخیره کرده و F5 را فشار دهید تا اجرا شود.

بنابراین ، نتیجه نهایی که سه ردیف را به هم متصل می کند در سلول B8 نشان داده می شود.

بیشتر بخوانید: چگونه نمایش ردیف های برتر در اکسل (7 روش)

نتیجه گیری

به طور خلاصه، امیدوارم که این پست دستورالعمل های روشنی در مورد نحوه استفاده از VBA پیوند در اکسل به روش های مختلف. همه ازاین تکنیک ها باید یاد بگیرند و روی داده های شما استفاده شوند. کتاب تمرین را بررسی کنید و از دانش جدید خود استفاده کنید. به دلیل حمایت مهربانانه شما، ما انگیزه داریم که به ایجاد کارگاه هایی مانند این ادامه دهیم.

لطفاً در صورت داشتن هرگونه سوال با ما تماس بگیرید. لطفاً نظرات خود را در قسمت نظرات زیر به ما اطلاع دهید.

تیم Exceldemy به طور مداوم به سوالات شما پاسخ می دهد.