Пожалуйста, кто сможет помочь!
Имеется таблица с тремя столбцами данных.....
таблица отражает размеры заготовки, задаваемой в производство.....
Необходимо отсортировать таблицу таким образом, чтобы подсчитывались строки с совпадением по всем трем столбцам (параметрам : ширине, толщине и длине)...и велся подсчет (частота) встречающихся параметров.....
предположим, в списке есть 687 строк с совпадением по всем трем параметрам (толщина заготовки 25 мм, ширина 1550 мм и длина 12000)......нужно оставить одну строку с этими параметрамит и указать частоту 687.....
Вот такая вот задача........бьюсь уже третий день.....нужно срочно обработать эти данные..... ;-(
Прошу вас о помощи

Option Explicit


Public Sub Sortiorovka()

Dim intNumStr As Integer
Dim intKolStr As Integer

Cells(1, 1).Select
intKolStr = ActiveCell.CurrentRegion.Rows.Count
Range("A1:C" & intKolStr).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("D1:D" & CStr(intKolStr)).Value = 1
For intNumStr = intKolStr To 2 Step -1
If Cells(intNumStr, 1).Value = Cells(intNumStr - 1, 1).Value And Cells(intNumStr, 2).Value = Cells(intNumStr - 1, 2).Value _
And Cells(intNumStr, 3).Value = Cells(intNumStr - 1, 3).Value Then
Cells(intNumStr - 1, 4).Value = Cells(intNumStr - 1, 4).Value + Cells(intNumStr, 4).Value
Rows(intNumStr).EntireRow.Delete
End If
Next intNumStr

End Sub

А стондартные фильтр и сортинг неустраимвают