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

3 پاسخ به “حذف داده های تکراری در یک ستون اکسل”

1. سلام و عرض ادب خدمت شما…
   خدا قوت
   ممنون از آموزش های ناب، تاپ و عالی شما…
   نظیر اینا در هیچ سایتی دیده نمیشه…
   میخواستم بدونم که چطور میشه این ماکرو رو در کنار فایل اکسل ذخیره کنیم…؟
   من save میزنم اما وقتی دوباره باز میکنم ماکرو کار نمیکنه..
   در یوزر فورم هم همین مشکل رو داشتم، فورم و …رو درست کردم اما ذخیره نمیشن

   برای پاسخ دادن وارد شوید

   1. سلام و وقت بخیر علی جان
      شما باید اکسل را با فرمت xlsm ذخیره کنید.

      این فرمت می شود ( قسمت ذخیره )
      Macro-Enabled Workbook (.xlsm)

      تشکر از نظر خوب و پرانرژی شما

      برای پاسخ دادن وارد شوید

2. دوستان عزیزم کدهای ماکروی فوق:

   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

   برای پاسخ دادن وارد شوید