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

[sepembra]

Здравствуйте. Есть формат txt, и exel. Вообще впринципе могу в любой формат конвертировать документ.

Смысл: в документе база емейлов 42000 одним столбцом.

Задача: скопировать определенное количество строк/столбцов, например с 1 по 1500, далее 1501 по 3000, и т.д. То есть партиями по 1500 штук. Как это сделать?

[a_axe]

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



Предполагается использование Excel, данные должны располагаться в столбец.

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

Если уже выделено 1500 ячеек - смещает выделение на 1500 ниже.

После чего копирует выделенные ячейки - вставлять данные нужно самому, так как нет понимания, что вы делаете с данными дальше.





Код

[spoiler]Код:

[/spoiler]

Код: Выделить всё

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

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