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

در این آموزش، با استفاده از کدهای VBA، فرمول را تا آخرین ردیف در اکسل تکمیل می‌کنید. این آموزش با مثال های مناسب و تصاویر مناسب به صورت روی نقطه خواهد بود. بنابراین، با ما همراه باشید.

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

فرمول تکمیل خودکار تا آخرین ردیف.xlsm

تکمیل خودکار در چیست برتری داشتن؟

اکنون، تکمیل خودکار یک ویژگی داخلی مایکروسافت اکسل است که به کاربران اجازه می‌دهد تا بقیه سطرها یا ستون‌ها را به‌طور خودکار با مقادیر، قالب‌ها یا فرمول‌ها پر کنند. وقتی مکان نما را به گوشه پایین سمت راست هر سلولی ببرید، می توانید آن را شناسایی کنید. ما آن را کنترل کننده تکمیل خودکار اکسل می نامیم.

به اسکرین شات زیر نگاهی بیندازید:

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

ابتدا محدوده سلول های B5:B6 را انتخاب کنید. پس از آن، دستگیره تکمیل خودکار را در گوشه پایین سمت راست خواهید دید.

اکنون، این دستگیره تکمیل خودکار را به پایین بکشید.

همانطور که می بینید، اکسل به طور خودکار آن را پر کردبقیه سلول ها این استفاده اساسی از تکمیل خودکار در اکسل است.

نحوه استفاده از تکمیل خودکار با Excel VBA

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

اینجا،

محدوده ("B5"): سلولی که دارای الگوی اصلی برای پر کردن بقیه سری است.

مقصد: محدوده سلول هایی که می خواهید با سری الگو پر کنید.

به عنوان xlAutoFillType تایپ کنید: نوع پر کردن سری. انواع مختلفی از تکمیل خودکار وجود دارد که می توانید انتخاب کنید.

بیشتر بخوانید: نحوه استفاده از تکمیل خودکار VBA در اکسل

4 نوع تکمیل خودکار در اکسل VBA

در این بخش، برخی از انواع تکمیل خودکار را مورد بحث قرار می دهم. قبلاً دیدیم که می‌توانیم هر نوع تکمیل خودکار را با استفاده از xlAutoFillType انتخاب کنیم. در اینجا، من چند نمونه از آن را به شما نشان می دهم.

1. xlFillDefault

ما قبلاً این نوع تکمیل خودکار را در مثال قبلی دیده بودیم.

به تصویر صفحه نگاهی بیندازید:

کد VBA زیر را برای تکمیل خودکار بقیه سلول ها تایپ کنید:

4577

اکنون، ماکرو VBA را اجرا کنید و پس از آن، مشاهده خواهید کردزیر:

به طور خودکار بقیه سلول ها را با استفاده از ماکرو VBA پر می کند.

2. xlFillCopy

برای کپی کردن همان مقادیر، می‌توانید از نوع xlFillCopy در نوع تکمیل خودکار استفاده کنید.

به تصویر صفحه نگاه کنید:

کد VBA زیر را برای تکمیل خودکار بقیه سلول ها تایپ کنید:

9361

اکنون، ماکرو VBA را اجرا کنید و پس از آن، موارد زیر را مشاهده خواهید کرد:

Excel بقیه سلول ها را با همان الگوی مقادیر پر می کند.

3. xlFillMonths

همچنین می‌توانید ماه‌ها را با استفاده از نوع تکمیل خودکار xlFillMonths پر کنید.

به تصویر صفحه نگاه کنید:

در اینجا، ما دو ماه ژانویه و فوریه را وارد کرده ایم.

کد VBA زیر را برای تکمیل خودکار بقیه سلول ها تایپ کنید:

1593

اکنون، ماکرو VBA را اجرا کنید و بعد از آن که، موارد زیر را مشاهده خواهید کرد:

اکسل به طور خودکار الگوها را درک می کند و آنها را با آنها پر می کند.

4. xlFillFormats

همچنین می‌توانید با استفاده از تکمیل خودکار VBA، قالب‌ها را به سلول‌های دیگر کپی کنید. برای این کار، باید از نوع تکمیل خودکار xlFillFormats استفاده کنید.

نگاهی به اسکرین شات بیندازید:

در اینجا، ما داریم دو خانه را با چند رنگ پر کرد.

اکنون، کد VBA زیر را تایپ کنید تا بقیه سلول ها به صورت خودکار پر شوند:

6221

اکنون، ماکرو VBA را اجرا کنید و پس از آن، مشاهده خواهید کرد زیر:

همانطور که می بینید، ماکرو VBA ما از تکمیل خودکار برایسطرهای ستون B را به طور موثر پر کنید.

بیشتر بخوانید: نحوه تکمیل خودکار ماه ها در اکسل

5 مثال با فرمول تکمیل خودکار تا آخرین ردیف در Excel VBA

1. VBA برای تکمیل خودکار فرمول تا آخرین ردیف استفاده شده

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

به مجموعه داده زیر نگاهی بیندازید:

در اینجا، ما مجموعه داده فروش برخی از فروشندگان را داریم. . هدف ما این است که فروش ژانویه و فوریه را به ستون Total اضافه کنیم. پس از آن، از روش تکمیل خودکار با استفاده از VBA تا آخرین ردیف استفاده شده در اکسل استفاده می کنیم.

برای اجرای این کار، کد زیر را تایپ کنید:

7036

last_row = Cells(Rows.Count, 2).End(xlUp).Row: آخرین ردیف استفاده شده را از ستون B برمی گرداند. می توانید هر ستونی را از مجموعه داده خود انتخاب کنید.

محدوده ("E5"). فرمول = "=SUM(C5:D5)": ما فروش C5C5 و D5 را اضافه می کنیم.

Range("E5").AutoFill Destination:=Range("E5:E" & last_row): پس از دریافت نتیجه، از تکمیل خودکار استفاده می کنیم. شروع به پر کردن خودکار از Cell E5 تا آخرین ردیف استفاده شده که قبلا داشتیم می شود.

اکنون، ماکرو VBA را اجرا کنید. پس از آن، خروجی زیر را مشاهده خواهید کرد:

Asمی‌توانید ببینید، کد VBA ما اولین نتیجه را اضافه می‌کند و فرمول را به صورت خودکار به آخرین ردیف در اکسل پر می‌کند.

بیشتر بخوانید: نحوه پر کردن تا آخرین ردیف با داده در Excel

2. تکمیل خودکار VBA از ActiveCell به آخرین ردیف

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

مشابه مثال قبلی است. ما از مجموعه داده قبلی استفاده می کنیم:

اکنون، فروش ژانویه و فوریه را اضافه می کنیم و با استفاده از Excel VBA فرمول را به سطر آخر تکمیل می کنیم.

اکنون کد زیر را تایپ کنید:

6929

last_row = Cells(Rows.Count, 2).End(xlUp).Row: آخرین مورد استفاده را برمی گرداند. ردیفی از ستون B. می توانید هر ستونی را از مجموعه داده خود انتخاب کنید.

ActiveCell.Formula = "=SUM(C5:D5)": ما فروش Cell را اضافه می کنیم C5 و D5 در سلول انتخابی شما.

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":E" & last_row): پس از دریافت نتیجه، از تکمیل خودکار استفاده می کنیم. شروع به پر کردن خودکار از سلول فعال تا آخرین ردیف استفاده شده که قبلاً داشتیم می‌شود.

اکنون، Cell E5 را انتخاب کنید.

پس از آن، ماکرو VBA را اجرا کنید تا فرمول و تکمیل خودکار به آخرین ردیف اضافه شود.

همانطور که می بینید، مابا موفقیت از ماکرو VBA برای تکمیل خودکار فرمول تا آخرین سطر استفاده کرد.

خوانش های مشابه

• چگونه ردیف ها را تعداد دفعات مشخصی تکرار کنیم اکسل (4 روش)
• تعداد سطرها به صورت خودکار در اکسل (8 روش)
• نحوه پر کردن ستون در اکسل با همان مقدار (9 ترفند) )
• اعمال میانبر تکمیل خودکار در اکسل (7 روش)

3. تکمیل خودکار تا آخرین سطر با استفاده از محدوده پویا با Excel VBA

قبلاً چند ماکرو VBA برای تکمیل خودکار تا آخرین ردیف در اکسل به شما نشان دادیم. اکنون، در آن مثال‌ها، ما قبلاً از محدوده‌های پویا استفاده کرده‌ایم.

برای درک محدوده‌های استاتیک، به کد زیر نگاه کنید:

3955

ما اساساً به اکسل گفتیم که فرمولی را در وارد کند. سلول E5 و آن را به صورت خودکار از Cell E5 به Cell E11 پر کنید. در اینجا محدوده را مشخص کردیم. اگر ردیف های بیشتری اضافه کنید چه؟ در این صورت، VBA ما آن ردیف‌های اضافی را به‌طور خودکار پر نمی‌کند، زیرا قبلاً به آن گفته بودیم که یک محدوده خاص را به‌طور خودکار پر کند.

برای حل این مشکل، راه‌حلی ارائه کردم که می‌تواند محدوده دینامیکی داشته باشد:

2584

همانطور که می بینید، ابتدا آخرین ردیف را با این خط کد پیدا می کنیم:

6422

بعد از آن، با استفاده از محدوده دینامیکی تا آخرین سطر به صورت خودکار پر می کنیم:

5363

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

محدوده پویا اساساً به این معنی است که شما مجبور نیستید محدوده را وارد کنیدبه صورت دستی اکسل هر از گاهی آن را به روز می کند.

بیشتر بخوانید: Excel VBA: روش تکمیل خودکار کلاس محدوده ناموفق بود

4. تکمیل خودکار تا آخرین ستون در اکسل با استفاده از VBA

اگر بخش های قبلی را برای تکمیل خودکار تا آخرین سطر خوانده اید، می توانید به راحتی تا آخرین ستون را تکمیل کنید. شما فقط باید آخرین شماره ستون را پیدا کنید و آن را به طور خودکار با Excel VBA پر کنید.

به مجموعه داده زیر نگاهی بیندازید:

در اینجا، ما یک مجموعه داده ای که نشان دهنده بودجه 3 ماهه یک فرد است. اکنون هزینه‌های تمام ماه‌ها را اضافه می‌کنیم و با استفاده از Excel VBA فرمول را به‌طور خودکار به آخرین ستون پر می‌کنیم.

اکنون کد زیر را تایپ کنید:

2291

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: آخرین ستون استفاده شده را از ردیف 6 برمی گرداند. می توانید هر ردیفی را برای شروع از مجموعه داده خود انتخاب کنید.

محدوده ("D9"). فرمول = "=SUM(D6:D8)": ما هزینه های سه ماه (ژانویه، فوریه مارس) را اضافه می کنیم.

Range("D9").AutoFill Destination:=Range("D9", Cells(9, last_column)): پس از دریافت نتیجه، از تکمیل خودکار استفاده می کنیم. در اینجا، ردیف اصلی ما ردیف شماره 9 است. تمام داده های ما در این ردیف خواهد بود. شروع به پر کردن خودکار از ستون D تا آخرین ستون استفاده شده که قبلاً توسط last_column دریافت کردیم، می شود.

پس از اجرای ماکرو، خروجی زیر را مشاهده خواهید کرد. :

همانطور که می بینید، ما با موفقیت از VBA برای تکمیل خودکار استفاده کردیمفرمول تا آخرین ستون در اکسل.

بیشتر بخوانید: نحوه تکمیل خودکار یک ستون در اکسل

5. تکمیل خودکار اعداد ترتیبی تا آخرین ردیف در اکسل با استفاده از VBA

همچنین می توانید اعداد ترتیبی را با استفاده از تکمیل خودکار در VBA تکمیل کنید. در اینجا، باید از xlFillSeries در نوع تکمیل خودکار استفاده کنید. اکسل الگو را درک می کند و آنها را با آن پر می کند.

به اسکرین شات زیر نگاهی بیندازید:

در اینجا، چند نام داریم. و می خواهیم به صورت متوالی به آنها شناسه بدهیم. برای انجام این کار از تکمیل خودکار VBA استفاده می کنیم.

Autofill Autofill Sequential Numbers with Static Range:

8924

پس از اجرای کد، خروجی را مشاهده خواهید کرد:

اگر می خواهید از محدوده دینامیکی استفاده کنید، از کد زیر استفاده کنید:

5167

last_row = Cells(Rows. Count, 2).End(xlUp).Row: آخرین سطر استفاده شده را از ستون B برمی گرداند.

Range("C5").AutoFill Destination:=Range("C5" :C" & last_row)، Type:=xlFillSeries: شناسه C5C5 را می گیرد و با استفاده از <6 به آخرین ردیف استفاده شده در ستون C تکمیل می کند>xlFillSeries ،

در هر دو مورد، خروجی یکسانی خواهید داشت:

همانطور که می بینید، ما با موفقیت از کد VBA برای تکمیل خودکار اعداد ترتیبی در اکسل.

بیشتر بخوانید: فرمول های اکسل برای پر کردن اعداد دنباله ای پرش از ردیف های پنهان

💬 مواردی که باید به خاطر بسپارید

✎ می توانید تکمیل خودکار را متوقف کنید اگر نمی‌خواهید راه‌های مختلفی دارد .

✎ شما نمی‌توانید چندین ردیف و ستون را به طور همزمان پر کنید. این کار را یکی یکی انجام دهید.

نتیجه

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

فراموش نکنید که وب سایت ما را بررسی کنید Exceldemy.com برای مشکلات و راه حل های مختلف مرتبط با Excel.

به یادگیری روش های جدید ادامه دهید و به رشد خود ادامه دهید!