Я работаю в отчете по резке стальной арматуры на листе Excel с именем Report (см. В приложении - Report_Before)
Мне нужно сгруппировать и подсчитать дублированные данные в одной строке или группе строк в счетчике. столбец (см. в приложении - Report_After)
Код
Public Sub GroupReport()
Dim ws As Worksheet
Dim rng As Range
Dim row As Range
Dim cell As Range
Dim lastRow As Long
Dim i As Integer
Set ws = Sheets("Report")
lastRow = ws.Cells(ws.Rows.count, 1).End(xlUp).row
Set rng = ws.Range("A" & lastRow)
For Each row In rng.Rows
For Each cell In row.Cells
For i = 1 To lastRow
'What I want to do :
' if Row data in cutNo 1 (From Column B:F) = Row Data in cutNo 2 (From Column B:F) Then
' Make a new Column Named Counter and it's value = the count of repeated rows and remove the
' duplicated row
' This process is repeated on the rows or group of rows until the end of the report
Next i
Next cell
Next row
End Sub
Отчет до:
Отчет после:
