با سلام
در فایل پیوست ابتدا بر مبنای تاریخ سورت کنید سپس با اجرای ماکرو ردیف اول و آخر محدوده هر تاریخ شناسایی شده و سورت شماره فیش فقط برای آن محدوده صورت میگیرد
بررسی و مشکلات را اعلام بفرمایید
کد PHP:
Sub test()
y = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = 2 To y
j = i + 1
If Range("b" & i).Value <> Range("b" & j).Value Then
k = i - t
Rows(k & ":" & i).Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A" & i), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range(k & ":" & i)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End If
t = t + 1
If Range("b" & i).Value <> Range("b" & j).Value Then
t = 0
End If
Next i
End Sub
علاقه مندی ها (Bookmarks)