حذف داده های تکراری در یک ستون اکسل

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

حذف داده های تکراری در یک ستون توسط وی بی ای اکسل

حذف داده های تکراری در یک ستون اکسل

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

البته حذف داده های تکراری توسط ابزار Remove Duplicates نیز امکان پذیر است منتهی این ماکرو می تواند این عملیات را بصورت کاملا اتوماتیک انجام دهد. به منظور درک بهتر این ماکرو، با ما همراه باشید.

به شبه جدول زیر دقت کنید:

حذف داده های تکراری در یک ستون توسط وی بی ای اکسل

حال با ایجاد یک ماژول و اجرای ماکروی زیر:

Sub Excellearn()
With Application
.ScreenUpdating = False
Dim LastColumn As Integer
LastColumn = Cells.Find(What:=”*”, After:=Range(“A1”), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
With Range(“A1:A” & Cells(Rows.Count, 1).End(xlUp).Row)
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.SpecialCells(xlCellTypeVisible).Offset(0, LastColumn – 1).Value = 1
On Error Resume Next
ActiveSheet.ShowAllData
Columns(LastColumn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Err.Clear
End With
Columns(LastColumn).Clear
.ScreenUpdating = True
End With
End Sub

خروجی شما بصورت زیر خواهد بود:

حذف داده های تکراری در یک ستون توسط وی بی ای اکسل

همانطور که در تصویر فوق نیز مشاهده می کنید، داده های تکراری موجود در ستون A توسط ماکروی فوق حذف گردید.

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

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

منبع: سایت آموزشی اکسل لرن

مطالعه بیشتر