Здравствуйте, в файле овер мильярд строк в столбце А, но нужные строки всего 2 через 10. То есть, в ячейке А1, А2 нужные данные, а в А3-12 не нужные, затем опять, А13, А14 нужные, А15-24 не нужные. Можно ли как-то по-быстрому сделать копипаст нужных ячеек? Благодарю за помощь.
Здравствуйте, в файле овер мильярд строк в столбце А, но нужные строки всего 2 через 10. То есть, в ячейке А1, А2 нужные данные, а в А3-12 не нужные, затем опять, А13, А14 нужные, А15-24 не нужные. Можно ли как-то по-быстрому сделать копипаст нужных ячеек? Благодарю за помощь.AdwordsDirect
Именно, спасибо! Если не сложно, не могли бы такую же формулу написать, если нужна ячейка 1 через 11. То есть А1 - нужна, А2-12 - не нужны, А13 - нужна, А14-24 - не нужны.
Именно, спасибо! Если не сложно, не могли бы такую же формулу написать, если нужна ячейка 1 через 11. То есть А1 - нужна, А2-12 - не нужны, А13 - нужна, А14-24 - не нужны.AdwordsDirect
Макрос копирует данные из активного листа (это лист, который Вы видите на мониторе) на новый лист (макрос создает новый лист). Если в группе 11 строк, то измените Step 12 на Step 11.
[vba]
Код
Sub Скопировать()
Dim arrSrc(), arrRes(), shRes As Worksheet Dim lr As Long, r As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row arrSrc() = Range("A1:A" & lr).Value ReDim arrRes(1 To UBound(arrSrc), 1 To 1) For i = 1 To UBound(arrSrc) Step 12 r = r + 1 arrRes(r, 1) = arrSrc(i, 1) r = r + 1 arrRes(r, 1) = arrSrc(i + 1, 1) Next i Set shRes = Worksheets.Add(After:=ActiveSheet) shRes.Range("A1").Resize(UBound(arrRes)).Value = arrRes()
End Sub
[/vba]
Макрос копирует данные из активного листа (это лист, который Вы видите на мониторе) на новый лист (макрос создает новый лист). Если в группе 11 строк, то измените Step 12 на Step 11.
[vba]
Код
Sub Скопировать()
Dim arrSrc(), arrRes(), shRes As Worksheet Dim lr As Long, r As Long, i As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row arrSrc() = Range("A1:A" & lr).Value ReDim arrRes(1 To UBound(arrSrc), 1 To 1) For i = 1 To UBound(arrSrc) Step 12 r = r + 1 arrRes(r, 1) = arrSrc(i, 1) r = r + 1 arrRes(r, 1) = arrSrc(i + 1, 1) Next i Set shRes = Worksheets.Add(After:=ActiveSheet) shRes.Range("A1").Resize(UBound(arrRes)).Value = arrRes()
AdwordsDirect, макрос нужен? в этой задаче он, имхо, удобнее формул. Встал на пустой лист, кнопку нажал и там уже и нужный столбец, и Селешен выполнен, только копируй
AdwordsDirect, макрос нужен? в этой задаче он, имхо, удобнее формул. Встал на пустой лист, кнопку нажал и там уже и нужный столбец, и Селешен выполнен, только копируйabtextime
ну вы и шустрые - пока сочинял макрос понакидали уже ответов. Раз уж сделал - то и мой вариант выделения по параметрам. Ввел для начальных параметров константы - но удобнее их поменять на закомментированный текст.: [vba]
i = Start Set UnionRange = Rows(i & ":" & i + StepSelect - 1) Do While i < finish Set UnionRange = Union(UnionRange, Rows(i & ":" & i + StepSelect - 1)) i = i + StepSelect + StepSkip Loop
UnionRange.Select End Sub
[/vba]
ну вы и шустрые - пока сочинял макрос понакидали уже ответов. Раз уж сделал - то и мой вариант выделения по параметрам. Ввел для начальных параметров константы - но удобнее их поменять на закомментированный текст.: [vba]
i = Start Set UnionRange = Rows(i & ":" & i + StepSelect - 1) Do While i < finish Set UnionRange = Union(UnionRange, Rows(i & ":" & i + StepSelect - 1)) i = i + StepSelect + StepSkip Loop
Спасибо, уже не надо, интуитивно получилось формулу поменять под другое количество строк. Тем для меня формулы и хороши, они понятнее лично мне. Благодарю всех неравнодушных за помощь :))
Спасибо, уже не надо, интуитивно получилось формулу поменять под другое количество строк. Тем для меня формулы и хороши, они понятнее лично мне. Благодарю всех неравнодушных за помощь :))AdwordsDirect
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
