حذف یک ردیف در یک سری از دیتاها

**iranweld** · 2022/02/12, 10:16

با سلام

در فایل پیوست تاریخ روز مورد نظر را وارد نمایید ماکزیمم و شماره ردیف مورد نظر نمایش داده میشود که باید بصورت دستی سطر مورد نظر را حذف کنید.

برای 10000 ردیف فرمول نویسی شده است.

فایل های پیوست شده

Excel-Delete- Part.xlsx (174.2 کیلو بایت, مشاهدات 20)

**kazamie** · 2022/02/12, 14:09

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

کد PHP:


Sub del_max_today()
Dim i, a, b, e, j As Long
Dim rng, rng1, rng2 As Range
i = Cells(Rows.Count, 1).End(xlUp).Row
For a = i To 1 Step -1
If Cells(i, 1).Value <> Cells(a, 1) Then
b = Cells(a, 1).Offset(1, 1).Row
Exit For
 End If
Next a

For c = b To i
If Cells(c, 2) = "02:30" Then
Set rng1 = Cells(c, 5)
Exit For
End If
Next c
For d = b To i
If Cells(d, 2) = "03:14" Then
Set rng2 = Cells(d, 5)
End If
Next d
e = WorksheetFunction.Max(Range(rng1, rng2))
For Each rng In Range(rng1, rng2)
If rng = e Then
rng.EntireRow.Select
Exit For
End If
Next rng
End Sub