Здравствуйте, как не копировать строки, которые начинаются с #ЗНАЧ! и одну строку с названием Понравившиеся
в новую таблицу с D1:E161 в B1:C35
пример:
Русские народные танцы и песни 9
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
Один в Один! Ираклий Пирцхалава 14
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
Понравившиеся 5000
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
ЭТО РОССИЯ, ДЕТКА! 209
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
#ЗНАЧ! 0
чтобы получились такие значения :
Русские народные танцы и песни 9
Один в Один! Ираклий Пирцхалава 14
ЭТО РОССИЯ, ДЕТКА! 209
сделать в книгу Private Sub
Записал макросом обработку фильтром и копирование, но что дальше делать ?
Код |
---|
Sub Фильтр()
Range("E1").Select
Selection.AutoFilter
ActiveSheet.Range("$E$1:$F$161").AutoFilter Field:=1, Criteria1:=Array( _
"Belly Dance & hot girl's", "Comedy ???", "Erotic video clip's", _
"Georgian film's (Kartuli filmebi)", "Happy New Year Clip's", "Margalur prikoleb" _
, "Sexy Girl's", "Turkish Clip's Music Video Top 100", "Абхазия", _
"Грузинские супер клипы Top 200", "Иностранные супер клипы Top 200", _
"Кавказские супер клипы Top 200", "Лучшее со всего мира", _
"Мультфильмы (Самые лучшие)", "Николаев", "Один в Один! Ираклий Пирцхалава", _
"РЖАКА :)", "Русские супер клипы Top 200", _
"Самурзакано (Гали, Окуми, Ткварчели, Очамчире)", "Украинские приколы", _
"Украинские супер клипы Top 200", "Художественные фильмы Top 200", _
"ЭТО РОССИЯ, ДЕТКА!", "????? ????", _
"??????? (Megruli, Margaluri, Lazuri, Мегрельская)", "??????????", _
"??????? ????????? (Kartuli prikolebi)", "??????? ????? Грузинские танцы"), _
Operator:=xlFilterValues
ActiveWindow.SmallScroll Down:=-12
Columns("E:F").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
Application.CutCopyMode = False
Selection.AutoFilter
End Sub
|