Разное - Как скопировать определенное количество строк?

Разное - Как скопировать определенное количество строк?

sepembra

Старожил

Сообщения: 234
Благодарности: 4

Здравствуйте. Есть формат txt, и exel. Вообще впринципе могу в любой формат конвертировать документ.
Смысл: в документе база емейлов 42000 одним столбцом.
Задача: скопировать определенное количество строк/столбцов, например с 1 по 1500, далее 1501 по 3000, и т.д. То есть партиями по 1500 штук. Как это сделать?

Отправлено: 11:53, 19-09-2017

a_axe

Динохромный

Сообщения: 700
Благодарности: 320

Профиль | Отправить PM | Цитировать

sepembra, например - воспользоваться кодом VBA наподобие приведенного ниже.

Предполагается использование Excel, данные должны располагаться в столбец.
Код проверяет, сколько ячеек столбца выделено, если это число не равно 1500 - выделяет 1500 ячеек, считая от активной ячейки (ячейка белого цвета в выделенном диапазоне) вниз.
Если уже выделено 1500 ячеек - смещает выделение на 1500 ниже.
После чего копирует выделенные ячейки - вставлять данные нужно самому, так как нет понимания, что вы делаете с данными дальше.

Код

Код:

Public Sub rows_copy()
    If Selection.Rows.Count <> 1500 Then
        ActiveCell.Resize(1500, 1).Select
    Else
        Selection.Offset(1500, 0).Select
    End If
    Selection.Copy
End Sub

Полагаю, скрины с фактическими адресами реальных людей не должны выкладываться в неограниченный доступ исходя из законодательства о защите персональных данных. Лучше уберите.

Отправлено: 13:23, 19-09-2017 | #2