Интересует вопрос - как разбить столбец на группы?
Имеется значит столбец с 138 244 строками. Таблица предназначена для Директа а Яндекс пропускает лишь по 980 с чем то(насколько помню) групп объявлений. В итоге получается что мне нужно создать 154 кампаний чтобы залить все это дело в Директ. Способ решения найден но вот надо как то все столбцы поделить на группы состоящие из 900 строк. Думал вообще так - вставлять новую, пустую строку через каждые 900 строк с данными но вот вручную тоже долго. В примере для наглядности залил одну группу цветов как(в файле два листа - что есть и что надо).
Хееелп. Помогите а...
Всем привет.
Интересует вопрос - как разбить столбец на группы?
Имеется значит столбец с 138 244 строками. Таблица предназначена для Директа а Яндекс пропускает лишь по 980 с чем то(насколько помню) групп объявлений. В итоге получается что мне нужно создать 154 кампаний чтобы залить все это дело в Директ. Способ решения найден но вот надо как то все столбцы поделить на группы состоящие из 900 строк. Думал вообще так - вставлять новую, пустую строку через каждые 900 строк с данными но вот вручную тоже долго. В примере для наглядности залил одну группу цветов как(в файле два листа - что есть и что надо).
Sub Макрос1() Dim lr As Long, i As Long lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row If lr <= 900 Then Exit Sub End If Application.ScreenUpdating = False If lr Mod 900 = 0 Then lr = lr - 899 Else lr = lr - (lr Mod 900) + 1 End If For i = lr To 2 Step -900 Rows(i).Insert Next Application.ScreenUpdating = True End Sub
[/vba]
макрос делает задание из поста 1
[vba]
Код
Sub Макрос1() Dim lr As Long, i As Long lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _ , SearchFormat:=False).Row If lr <= 900 Then Exit Sub End If Application.ScreenUpdating = False If lr Mod 900 = 0 Then lr = lr - 899 Else lr = lr - (lr Mod 900) + 1 End If For i = lr To 2 Step -900 Rows(i).Insert Next Application.ScreenUpdating = True End Sub