Ускорить обработку строки, с использованием InStr

[motorway]

Я попробовал макрос из поста №14, предварительно вставив число на лист. При отработке макроса оно все же затирается.
Насчет смены формата файла я думал, но пока до этого не дошли руки

[SAS888]

Я попробовал макрос из поста №14, предварительно вставив число на лист. При отработке макроса оно все же затирается.

Нет. Это не так. Макрос вставляет данные только в те ячейки, адреса которых присутствуют в текстовой строке. Если в этой строке есть адрес какой-нибудь ячейки и значение для этого адреса = "пусто", то, естественно, макрос поместит это значение на лист и "затрет" имеющиеся данные. По-моему, так и требовалось. Если нужно, чтобы пустые значения не вносились в ячейки (не смотря на то, что их адреса встречаются в текстовой строке), то в коде макроса из поста № 14 строку

arr(r, c) = data(z + 1)

замените на

If data(z + 1) <> "" Then arr(r, c) = data(z + 1)

[motorway]

SAS888, а не подскажете, что добавить к коду, чтобы не обновлялись значения из 1 строки (если они находятся в ячейках 1 строки)? Не сильно ли это затормозит код? В принципе, такую проверку я могу сделать на PHP на сервере, когда отсылаются данные в Эксел. Но, может быть, здесь быстрее будет.
И еще обнаружилась неприятная вещь - в случае присутствия на листе т.н. объединенных ячеек не работает очистка диапазона методом Range.ClearContents, которую я выполняю перед вставкой данных. Что с этим можно сделать, чтобы быстро очищалось, если есть такие ячейки на листе?

[SAS888]

чтобы не обновлялись значения из 1 строки

Если я правильно понял, то данные 1-й строки обновлять не нужно, даже если их содержит текстовая строка. Так? Тогда строку кода, о которой я говорил в посте № 32, замените на

If data(z + 1) <> "" And r <> 1 Then arr(r, c) = data(z + 1)

в случае присутствия на листе т.н. объединенных ячеек не работает очистка диапазона методом Range.ClearContents, которую я выполняю перед вставкой данных

Не совсем понятно. Во-первых, если Вы перед вставкой данных очищаете диапазон, то зачем нужно сохранять имеющиеся на листе данные? Во-вторых, например, код

Cells.ClearContents

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

 Cells.UnMerge

Естественно, что лист и диапазон можно выбирать произвольно.
Опишите эту проблему более подробно (лучше с примером). Может быть проблема возникает не при очистке диапазона, а при вставке данных в диапазон, содержащий объединенные ячейки?

[motorway]

Да, насчет 1 строки так, спасибо.
Насчет очистки - в общем, в некоторых функциях она нужна и присутствует и выполняется так, к примеру:

For i = 1 To (Worksheets.Count - 1)
        Set Sh = Worksheets(i)
        rownum = Row_Get(Sh)
        colnum = Col_Get(Sh)
        If (rownum >= 2 And colnum >= 2) Then
            Set TRange = Range(Sh.Cells(2, 2), Sh.Cells(rownum, colnum))
        Else
            If (rownum = 1 Or colnum = 1) Then
                Set TRange = Range(Sh.Cells(2, 2), Sh.Cells(2, 2))
            End If
        End If
        
        TRange.ClearContents
        
    Next i

И всплывает ошибка: 1004 Изменить часть объединенной ячейки невозможно. Указывает на строку с TRange.ClearContents.
Возможно, и в каких-то других функциях об. ячейки могут доставить проблемы. Например, у меня был двойной цикл по ячейкам (i,j). А если такой ячейки уже нет из-за объединения, могут возникнуть проблемы тоже.

[motorway]

И еще можно как-то сделать, чтобы данные вставлялись из файла по умолчанию в Общем формате и, может быть, если есть на конце %, то в процентном? А то я попробовал вставку из файла - там куда-то запятые "дюются" и формат становится числовым для некоторых чисел

[motorway]

Еще вопрос: можно ли как-то установить у всех ячеек, присутствующих в строке, цвет, но так, чтобы это не сильно влияло на скорость? Раньше я это делал для каждой ячейки, что могло отнимать время. Здесь же мы сразу массив вставляем. Можно ли у этих ячеек изменить цвет, допустим, на синий?

[SAS888]

Ошибка при очистке объединенных ячеек в Вашем случае будет возникать только в том случае, если в объединении участвуют ячейки либо 1-й строки, либо 1-го столбца. Т.к. ошибка возникает, то это именно так.
Предлагаю макрос, который очистит все ячейки кроме 1-го столбца и 1-й строки. Макрос будет корректно работать, если в каждом листе книги есть хотя бы по 1 значению в 1-й строке и 1-м столбце не считая ячейки "A1". И еще. Не совсем понял, какие значения возвращают Ваши функции Row_Get(Sh) и Col_Get(Sh). Можно ли удалять данные из ячеек за пределами возвращаемых функциями значений? Так или иначе, попробуйте следующий код:

Sub RangeClear()
    Dim ws As Worksheet, c As Range, r As Range, arrC(), arrR()
    For Each ws In Sheets
        Set c = Intersect(ws.UsedRange, ws.Columns(1)): arrC = c.Value
        Set r = Intersect(ws.UsedRange, ws.Rows(1)): arrR = r.Value
        ws.Cells.ClearContents
        c.Value = arrC: r.Value = arrR
    Next
End Sub

Если требуется, добавьте дополнительные проверки.

чтобы данные вставлялись из файла по умолчанию в Общем формате и, может быть, если есть на конце %, то в процентном? А то я попробовал вставку из файла - там куда-то запятые "дюются" и формат становится числовым для некоторых чисел

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

можно ли как-то установить у всех ячеек, присутствующих в строке, цвет, но так, чтобы это не сильно влияло на скорость?

Нет. Нельзя. Цвет ячейки - это одно из свойств ячейки, которое можно установить только при непосредственном обращении. Можно, например, формировать диапазон ячеек листа, который затем окрашивать, но, так или иначе, работа с ячейками листа существенно "тормозит" (хотите - попробуем).

[motorway]

Row_Get(Sh) и Col_Get(Sh) возвращают последнюю заполненную строку и столбец на листе, так что там должно всё удаляться.
Насчет форматов пока что небольшая пауза, если понадобится, напишу еще. Смысл в том, чтобы при присвоении ячейке значения оно было в том виде, которое передается, а не менялось. Иногда в принципе может потребоваться и другой вариант.
С цветом - хуже, потом тоже попробую.
Ваш код выдает ошибки, может, я что-то не то делаю? Object variable or with block variable not set. Либо Type mismatch. В общем, пока что я с объединенными ячейками справился, просто убрав их. Пока что проблема не так актуальна

[motorway]

Вот попробовал изменить цвет у 20000 ячеек:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("U1").Value = Time
For i = 1 To 1000
For j = 1 To 20
Cells(i, j).Font.Color = RGB(255, 51, 0)
Next
Next
Range("U2").Value = Time
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Срабатывает за 1 секунду. Так что не верьте тем, кто говорит, что в Швейцарии плохая погода Вроде бы не так долго делается. Или тормоза начинаются в случае списка ячеек?