сортировка в сводной таблице

[mistx]

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

Dim i As Long

Благодарю, даже не обратил внимание на Integer

1. заметил, что Vb не любит много переносов _
пишит too many continuations
лекарство есть?
можно ли условия поиска для case is вложить в переменную?

2. также хотелось, реализовать автоматический импорт файла txt и
выполнения макроса после этого.

[EducatedFool]

заметил, что Vb не любит много переносов _
пишит too many continuations
лекарство есть?
можно ли условия поиска для case is вложить в переменную?

А сколько Вы поставили переносов?

В любом случае, можно записать код иначе.
Если бы Вы привели пример кода, уже получили бы готовое решение.

[mistx]

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

А сколько Вы поставили переносов?

В любом случае, можно записать код иначе.
Если бы Вы привели пример кода, уже получили бы готовое решение.

организации привожу в кратком виде.
они импортируется вместе с ИНН и другими данными.
то есть "монтажзавод ИНН 3453634564 КПП 345634563456 ЛС 097869485769" и.т.д.
организаций может быть в каждом условии около 25-50

на 21 переносе получил too many continuations
Sub net()
Dim i As Long
For i = 2 To 38454
Select Case Cells(i, 1)
Case Is = "Монтажзавод", _
"'энергосервис", _
"'сибхимонтаж", _
......
.....
.....
"'эльдорадо"
Cells(i, 17) = "за услуги"
End Select
Next i
End Sub

[EducatedFool]

Вот несколько вариантов записи:

Sub net()
    Dim i As Long
    For i = 2 To 38454

        Select Case Cells(i, 1)
            Case "Монтажзавод", "энергосервис", "сибхимонтаж", "эльдорадо": Cells(i, 17) = "за услуги"
        End Select

        Select Case Cells(i, 1)
            Case "Монтажзавод", "энергосервис": Cells(i, 17) = "за услуги"
            Case "сибхимонтаж", "эльдорадо": Cells(i, 17) = "за услуги"
        End Select

        Select Case Cells(i, 1)
            Case "Монтажзавод", "энергосервис"
                Cells(i, 17) = "за услуги"
            Case "сибхимонтаж", _
                 "эльдорадо"
                Cells(i, 17) = "за услуги"
        End Select
    Next i
End Sub

Переносы в данном случае абсолютно не нужны (тем более 20 штук)

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

[mistx]

Спасибо за быстрый ответ.
могу ли я создать несколько Case? не отразится это на работе в целом?
например
Case "Монтажзавод": Cells(i, 17) = "за услуги"
Case "энергосервис": Cells(i, 17) = "за услуги"
Case "сибхимонтаж": Cells(i, 17) = "за услуги"
....
...

у меня одна организация имеет следующий вид
"Школа N 13, ИНН 456456765, л/с 56756756756 в УФК по Свердловской области (Администрация г. Екатеринбург)"

[EducatedFool]

могу ли я создать несколько Case? не отразится это на работе в целом?

Конечно, создавайте их сколько угодно...

Для VBA запись

Select Case Cells(i, 1)
            Case "Монтажзавод", "энергосервис", "сибхимонтаж", "эльдорадо": Cells(i, 17) = "за услуги"
        End Select

равносильна записи

Select Case Cells(i, 1)
    Case "Монтажзавод": Cells(i, 17) = "за услуги"
    Case "энергосервис": Cells(i, 17) = "за услуги"
    Case "сибхимонтаж": Cells(i, 17) = "за услуги"
    Case "эльдорадо": Cells(i, 17) = "за услуги"
    Case "что-то другое", "ещё что-то": Cells(i, 17) = "за спасибо"
End Select

Для увеличения скорости работы (хотя и так всё работает моментально) старайтесь помещать наиболее вероятные значения в начало конструкции Select Case ... End Select
То есть, если вероятность встретить в первой ячейке слово Монтажзавод намного выше, чем какое-либо другое слово, ставьте первой проверку Case "Монтажзавод" (после первого совпадения остальные значения не проверяются)

Полагаю, Ваш код работает достаточно медленно из-за перебора десятков тысяч ячеек:

    For i = 2 To 38454
        Select Case Cells(i, 1)
        ' ...
        End Select
    Next i

Заметно сократить время работы макроса (в сотни раз) можно, изначально считывая диапазон ячеек в массив, и анализируя уже значения массива.

[mistx]

никак не могу разобраться с кавычками помогите плиз
выражение уж очень длинное

МОУ "ГИМНАЗИЯ 22", ИНН 456456456, Л/С 45645645 В УФК ПО свердл.ОБЛ.(АДМИНИСТРАЦИЯ Г.Екатеринбурга)

Case "МОУ" & Chr(34) & "ГИМНАЗИЯ 22" & Chr(34)
дальше не могу понять, как быть с запятой

[mchip]

Попробуй так:
"МОУ " & Chr(34) & "ГИМНАЗИЯ 22" & Chr(34) & ", ИНН 456456456, Л/С 45645645 В УФК ПО свердл.ОБЛ.(АДМИНИСТРАЦИЯ Г.Екатеринбурга)"

[mistx]

иногда бывает все так просто.
спасибо всем за помощь!!!