Выделение диапазона ячеек до значения определенного вида.

[swordpig]

Да, я уже так попробовал, посмотрев на логику внимательно.
Но теперь он утыкается в то, что если на следующей строке
Sheets(ActiveSheet.Index + 1).Name = "nulls" - он говорит subscript out of range

Ну даже ладно, если закомментим то, что новому листу за предыдущим дадут имя nulls, пусть это не важно.
Скрипт потом, на текущем листе ковыряясь сообщает не найденно ни одной ячейки, удовлетворяющей условиям.
Вот тут
Set rg = rg.SpecialCells(xlCellTypeConstants , xlTextValues)
Т.е. у нас в этом диапазоне текстового типа и нету. У нее формат числовой стоит, я сейчас посмотрел. т.е. Z7.37 какая имеет формат числовой

[IgorGO]

однако, погорячился (несколько раз)

сделайте так:

    Worksheets.Add after:=ActiveSheet
    ActiveSheet.Name = "nulls"
    Worksheets(ActiveSheet.Index - 1).Activate
    Dim rg As Range, i As Long, r As Long, c As Long
    Set rg = Range(Cells(7, 11), Cells(Rows.Count, 11).End(xlUp))
    Set rg = rg.SpecialCells(xlCellTypeConstants, xlTextValues)
    r = 1
    For i = 1 To rg.Areas.Count
      c = rg.Areas(i).Rows.Count
      rg.Areas(i).Offset(0, -2).Resize(c, 9).Copy Worksheets(rg.Parent.Index + 1).Cells(r, 1)
      r = r + c
    Next

[swordpig]

Ага, спасибо!
Оказывается надо было указать ему вернуться обратно на один лист!
Теперь я подгоню по данным, проверю, если вдруг еще вопросы возникнут, я задам тут еще, ладно?
Ну и отпишусь, как оно в итоге.

[swordpig]

Отлично, все работает. Единственное, последний вопрос - как вставить, чтобы второй диапазон значений с Z не прилипал к первому снизу (как я разобрался, до конца листа перебираются все и кладуться именно текстовые строки по указанному интервалу. Значения не содержащие текста в диапазон не попадают), а ложился рядом массивом, например через 5 ячеек вправо от первого массива.
Т.е.
Z11 Z12 первый массив с Z до цифровых значений
Z21 Z22
... ...
Z51 Z52 второй массив с Z после цифровых значений
Z61 Z62

Становились
Z11 Z12 ____ Z51 Z52
Z21 Z22 ____ Z61 Z62


Как в цикл вставить проверку, что первый массив закончился, а теперь начался новый и его надо писать рядом с первым через 5 столбцов, допустим?
Мне просто надо делать действия с массивом до чисел и действия после значения чисел отдельно.

[IgorGO]

опишите, как должны быть сложены данные и каккие данные нужны в отчете?

[swordpig]

Сообщение от IgorGO

опишите, как должны быть сложены данные и каккие данные нужны в отчете?

Ну все как Вы сделали, только данные в файле для примера, который я Вам выкладывал, они начинаются с i:7 по q:91 (первый массив значений с Z)- ложатся на лист nulls с ячейки a1 по i85, а данные с i:3019 по q:3140 (второй массив значений с Z после нескольких тысяч числовых значений) - на тот же лист, только с O:1 по W:121.
И не плохо бы, чтобы ситуация, когда массив например 1 или 3 (т.е. не два, между которыми числовые значения) - выпадала в ошибку.


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

[IgorGO]

так?

    Worksheets.Add after:=ActiveSheet
    ActiveSheet.Name = "nulls"
    Worksheets(ActiveSheet.Index - 1).Activate
    Dim rg As Range, i As Long
    Set rg = Range(Cells(7, 11), Cells(Rows.Count, 11).End(xlUp))
    Set rg = rg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For i = 1 To rg.Areas.Count
      rg.Areas(i).Offset(0, -2).Resize(rg.Areas(i).Rows.Count, 9).Copy Worksheets(rg.Parent.Index + 1).Cells(1, i*10-9)
    Next

[swordpig]

Именно! Спасибо!
Долго пялился на конструкцию, оказалось все гениальное просто! Относительно, конечно.
Теперь наконец завершу скриптяку, которую ковырял не один месяц!

[swordpig]

Еще небольшой вопрос - как протянуть формулу из ячейки M11 ниже по каждой ячейке в столбце М до строки, номер которой хранится в ячейке A1?

[IgorGO]

вопрос не понятен((