Daulet.tech

С доп столбиками, если вопрос актуален

В отпуске

Да, можно.

Все 3 варианта формул дадут одинаковые результаты

Результат 1 или 0

=1*(A1>0)
=--(A1>0)
=ЕСЛИ(A1>0;1;0)

Здравствуйте!

 

 

=1*(A1>0) ... A1 стоит значение 50 000, то ответ будет 1

формула условная. ИСТИНА равен 1, ЛОЖЬ 0

Формулу так можете написать

=ЕСЛИ(A1>0;1;0)

Функцией РАЗНДАТ()

=A1*-4+90

A1 температура

Здравствуйте, купили кошку на против Сайрана, не спросили что за порода. Есть ли знатоки кошек, что за порода?

Сейчас как происходит - я вытаскиваю эту портянку, в ней может быть более 100 тыс. строк, причесываю ее, затем делаю сводную, и из сводной вытаскиваю данные в итоговый отчет, в котором листов может быть 20-40-60. В целом все автоматически, но время на эту работу тоже уходит

 

Если с 100 тыс. строк на итоговую сделать?

С Оракл не сталкивался, а с mysql можно, вроде доп компонент надо устанавливать

Суть не понял, если формула что то надо, то лучше макросом

с ДВССЫЛ(), массивная формула, долго отрабатывает

=ИНДЕКС(ДВССЫЛ($B5&"!E:T");ПОИСКПОЗ($B$2&"|"&$C5;ДВССЫЛ($B5&"!B:B")&"|"&ДВССЫЛ($B5&"!c:c");0);СТОЛБЕЦ()-4)

без ДВССЫЛ(), массивная формула

=ВЫБОР(ПОИСКПОЗ($B5;{"КРУПНЫЕ";"МЕЛКИЕ"};0);ИНДЕКС(КРУПНЫЕ!$E:$T;ПОИСКПОЗ($B$2&"|"&$C5;КРУПНЫЕ!$B:$B&"|"&КРУПНЫЕ!$C:$C;0);СТОЛБЕЦ()-4);ИНДЕКС(МЕЛКИЕ!$E:$T;ПОИСКПОЗ($B$2&"|"&$C5;МЕЛКИЕ!$B:$B&"|"&МЕЛКИЕ!$C:$C;0);СТОЛБЕЦ()-4))

Приветствую всех!  Давно я не заходила в эту тему ))) 

Назрели два глобальных вопроса с которыми я просто не в состоянии справиться. Может быть вы что-нибудь дельное посоветуете? 

1 Вопрос 

Есть два столбца с текстовыми данными. В первом одни названия компаний, во втором такие же компании (возможно другие) но с другими названиями. Задача - выявить совпадения из столбца по как можно более большему количеству слов. Например в столбце А новая база данных, в которой есть и текущие и новые поставщики, в столбце С только текущие. Вот как понять каких нужно добавлять,а какие уже есть. Общего признака в виде кода, БИН и т.д. нет, только название. Я нашла один макрос, который показывает примерно что нужно, но он не работает с большим объемом (100 000 строк) и не совсем что-нужно. 

Вот такой макрос   

Tips_Macro_ComparePart.rar

 

Вот пример что и как:

Пример с поставщиками.rar

 

Слов в названии может быть очень много, от 1 до 20, конечно я причесываю списки и стараюсь упростить, но как сделать это сравнение пока не понимаю. 

Sub Test1()
    Dim i&, yes, arr1, arr2, c
    Dim tm!: tm = Timer
    
    arr1 = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    arr2 = Range("C2:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
    ReDim c(1 To UBound(arr1), 1 To 1)
    
    With CreateObject("Scripting.Dictionary")
        For i = LBound(arr1) To UBound(arr1)
            For Each yes In Split(arr1(i, 1), " ")
                .Item(yes) = i
            Next
        Next
        
        For i = LBound(arr2) To UBound(arr2)
            For Each yes In Split(arr2(i, 1), " ")
                If .Exists(yes) Then
                    c(i, 1) = c(i, 1) & " " & yes
                End If
            Next
        c(i, 1) = Mid(c(i, 1), 2)
        Next
        
        [f2].Resize(i - 1, 1).Value = c
    End With
    MsgBox Timer - tm & " сек."
End Sub

Попробуйте

=СУММ(($B$4:$B$15=$B20)*($C$4:$C$15=$C20)*($D$2:$X$2=D$19)*$D$4:$X$15)/7

Массивная формула CTRL+SHIFT+ENTER {}

Sub Test()
    Dim FSO As Object
    Dim MyPath As String, arrstr
    Dim ii&, i&, iFolder, ts
    Application.ScreenUpdating = False
    Set FSO = CreateObject("Scripting.FileSystemObject")
    MyPath = ThisWorkbook.Path & "\777.txt" 'путь к файлу
        Set ts = FSO.OpenTextFile(MyPath, 1) 'открываем текстовый файл
        arrstr = Split(ts.ReadAll, vbCrLf) 'заносим в массив
        ts.Close 'закрываем текстовый файл
        ii = 2 'выгружаем со 2-ой строчки
        For i = 0 To UBound(arrstr) 'цикл
            If Len(arrstr(i)) Then 'если ...
                Cells(ii, 1) = Split(arrstr(i), ";")(0) 'Split - разделитель
                Cells(ii, 2) = Split(arrstr(i), ";")(1)
                Cells(ii, 3) = Split(arrstr(i), ";")(2)
                ii = ii + 1 'далее строчки
            End If
        Next
    Application.ScreenUpdating = True
End Sub

зы. кстати Петров2 у вас неверно считает

 

=СЦЕПИТЬ("ИТОГИ "; ПРОПИСН(ТЕКСТ(A1;"[$-FC19] ММММ ГГГГ")); " ГОДА")

Воспользуйтесь функциями ВПР(), ИНДЕКС()+ПОИСКПОЗ()