جمع کدهای تکراری در اکسل

امتیاز 5.00 ( 1 رای )

جمع کدهای تکراری در اکسل

جمع کدهای تکراری در اکسل

به توکل نام اعظمت، بسم الله الرحمن الرحیم. سلام عرض میکنم خدمت یکایک دوستان و دنبال کنندگان محترم سایت آموزشی اکسل لرن. در این پست آموزشی قصد دارم کدهای آماده ماکرویی در خصوص جمع کدهای تکراری در اکسل را خدمتتون ارائه کنم.

کدهایی که در ادامه به توضیح آن خواهیم پرداخت مشابه با ابزار Consolidate به منظور یکپارچه سازی داده ها مورد استفاده قرار میگیرد. به منظور درک بهتر به داده های زیر دقت کنید:

جمع کدهای تکراری در اکسل

همانطور که در تصویر فوق مشاهده میکنید، مشتریانی وجود دارند که به دفعات اقدام به پرداخت وجه کردند لذا به منظور تهیه گزارش نیاز به یکپارچه سازی و جمع تمامی مبالغ هریک از مشتریان داریم. با اجرا ماکروی زیر:

Sub Edgham_O_Jam()
Dim WorkRng As Range
Dim Dic As Variant
Dim xTitleId As String
Dim i As Integer
Dim Cell As Variant
On Error Resume Next
xTitleId = “انتخاب سلول ها”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(“Range”, xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject(“Scripting.Dictionary”)
Cell = WorkRng.Value
For i = 1 To UBound(Cell, 1)
Dic(Cell(i, 1)) = Dic(Cell(i, 1)) + Cell(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range(“A1”).Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range(“B1”).Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

با پنجره “انتخاب سلول ها” همانند تصویر زیر روبرو خواهید شد:

جمع کدهای تکراری در اکسل

محدوده داده های خود را همانند تصویر فوق انتخاب کنید. البته دقت نمایید که کدهای یکتای جدول شما می بایست اولین ستون محدوده انتخابی را تشکیل دهد. با کلیک کردن برروی Ok خروجی شما به صورت زیر خواهد بود:

جمع کدهای تکراری در اکسل

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

درپایان فایل حاوی کدهای ماکرونویسی این بخش را جهت دانلود پیوست نمودیم و امیدواریم تا به این لحظه پست آموزشی جمع کدهای تکراری در اکسل مورد رضایت و استفاده شما عزیزان قرار گرفته باشد. لذا در صورت وجود هرگونه انتقاد و پیشنهاد می توانید آن را در قسمت نظرات برای ما ارسال نمایید.

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

مطالعه بیشتر