16.11.2007, 15:56
общий
это ответ
Здравствуйте, Рудяков Андрей Анатольевич!
1. команда создает копию скрытого листа
2. из вопроса я понял, Вам нужно на листе организовать подобие прайса, код в приложении.
Евгений.
Приложение:
1. Sheets("ИмяСкрытогоЛиста").Copy After:=Sheets("ИмяСкрытогоЛиста")2.Sub Price_list()Dim iCol%iCol = 5 ‘ колонка группировки, по ней выполните сортировку Application.ScreenUpdating = False iLastRow = ActiveSheet.Range("E65000").End(xlUp).Row For i = iLastRow To 2 Step -1 If Cells(i, iCol).Value <> Cells(i - 1, iCol).Value Then Rows(i).Insert Shift:=xlDown With Cells(i, 2) .Value = Cells(i + 1, iCol).Value .Font.ColorIndex = 0 .Font.Bold = True End With End If Next i Application.ScreenUpdating = TrueEnd Sub