Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 139 След.
Пропала Тема в курилке "ДР (ex HB)", тема
 
Не нашёл тему "ДР (ex HB)" вчера ещё была  :(
Изменено: Msi2102 - 01.08.2025 15:16:21
Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений., Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений.
 
Цитата
ПавелW написал:
нетю в 2016 (у меня по крайней мере)
Да согласен это было по подписке.
Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений., Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений.
 
Цитата
bigorq написал:
ОБЪЕДИНИТЬ появилась в 2019
Да но не 2021. Поэтому у меня есть ещё СЦЕП, если не ошибаюсь она появилась в 2016, хотя это не точно
Изменено: Msi2102 - 31.07.2025 13:58:02
ВПР по частичному совпадению текста, Сопоставление данных
 
Цитата
олег написал:
немного не то, что хотелось. Нужно было ID из первой таблицы внести в столбик id во второй таблице, учитывая, что адреса там написаны по другому.
Я бы на Вашем месте на спешил с выводами. Основная проблема это то, что написаны по разному. Сто процентов определить правильность выбора это очень сложно, нужно обговаривать кучу условий. Файл я приложил как пример, как бы это могло выглядеть, в настройках можно уменьшить или увеличить точность выбора, как это сделать в ссылках выше. Ещё можно отфильтровать, отсортировать, удалить дубликаты, как говорится любой каприз. Можно написать макрос, но как я уже говорил необходимо учесть много нюансов, постом это всё протестировать, найти ошибки их исправить, мне лень этим заниматься, но думаю и там без ручной работы не обойтись, у Вас есть задвоенные ID, например: Москва г, Вернадского пр-кт, 105, к 4 имеет два ID: МСК5996 и МСК3648, также г Москва, ул 6-я Радиальная, д 3 к 8 имеет два ID: МСК5358 и МСК3122 и т.д.
Изменено: Msi2102 - 31.07.2025 14:04:45
Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений., Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений.
 
Цитата
Sanja написал:
Sanja  написал: Для 2021+
У меня 2019 всё ок, думаю в 2016 тоже должен заработать
Дублирование ячейки на заданное количество с другой ячейки
 
Цитата
darkonok написал:
я выполнил за пару кликов
А с первого раза макрос не сработал?
Дублирование ячейки на заданное количество с другой ячейки
 
Цитата
Sanja написал:
Только вниз протянуть не получится
Что бы не протягивать, массивная:
Код
=ФИЛЬТР.XML(("<j><i>"&СЦЕП(ПОВТОР(B2:B4&"</i><i>";C2:C4))&"</i></j>");"//i[node()]")
Изменено: Msi2102 - 30.07.2025 10:25:22
Дублирование ячейки на заданное количество с другой ячейки
 
Макросом:
Код
Sub Макрос1()
    Dim arr_1, arr_2, n As Integer, m As Integer, k As Integer, lr As Integer
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    ReDim arr_1(1 To WorksheetFunction.Sum(Range("C2:C" & lr)), 1 To 1)
    arr_2 = Range("B2:C" & lr)
    m = 1
    For n = 1 To UBound(arr_2)
        For k = 1 To arr_2(n, 2)
            arr_1(m, 1) = arr_2(n, 1)
            m = m + 1
        Next
    Next
    [g2].Resize(UBound(arr_1), 1) = arr_1
End Sub
Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений., Вывод содержимого ячейки через поиск части текста в диапазоне, используя порядок вхождений.
 
или так:
Код
=ФИЛЬТР.XML("<l><i>"&ОБЪЕДИНИТЬ("</i><i>";1;Лист2!B2:E10)&"</i></l>";"//i[contains(., '.')]")

можно так:
Код
=ФИЛЬТР.XML("<j>"&СЦЕП("<i>"&Лист2!B2:E10&"</i>")&"</j>";"//i[contains(., '.')]")

Если нужна последовательность по столбцам, то так:
Код
=ФИЛЬТР.XML("<l><i>"&ОБЪЕДИНИТЬ("</i><i>";1;ТРАНСП(Лист2!B2:E10))&"</i></l>";"//i[contains(., '.')]")

или так:
Код
=ФИЛЬТР.XML("<j>"&СЦЕП("<i>"&ТРАНСП(Лист2!B2:E10)&"</i>")&"</j>";"//i[contains(., '.')]")
ВПР по частичному совпадению текста, Сопоставление данных
 
Что-то наподобие PQ запроса:
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[Адрес]],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Адрес", type text}}),
    #"Объединенные запросы" = Table.FuzzyNestedJoin(#"Измененный тип", {"Адрес"}, Таблица2, {"Адрес"}, "Таблица2", JoinKind.FullOuter, [IgnoreCase=true, IgnoreSpace=true, NumberOfMatches=5, Threshold=0.95]),
    #"Развернутый элемент Таблица2" = Table.ExpandTableColumn(#"Объединенные запросы", "Таблица2", {"Адрес", "ID"}, {"Таблица2.Адрес", "Таблица2.ID"})
in
    #"Развернутый элемент Таблица2"

Пустые если не нужны, то удалите сами, про настройки в ссылках выше
Изменено: Msi2102 - 29.07.2025 15:06:57
ВПР по частичному совпадению текста, Сопоставление данных
 
ТУТ, ТУТ, ТУТ, ТУТ
Не пропадают 0, 000
 
Или так:
Код
=ЕСЛИ(ОКРУГЛ(A1-B1-C1-D1;2)=0;"";A1-B1-C1-D1)

Можете почитать ТУТ
Получить наименование контрагента из выгрузки 1С
 
Если и этих нет, то проще всего вставьте в соседнюю ячейку
Код
=ПОДСТАВИТЬ(A3;СИМВОЛ(10);"#")

скопировать и вставить значения, или просто найти и заменить ПЕРЕНОС СТРОКИ на любой символ, типа "#", и далее ТЕКСТ ПО СТОЛБЦАМ по этому символу
Изменено: Msi2102 - 29.07.2025 13:18:45
Получить наименование контрагента из выгрузки 1С
 
Цитата
Skea написал:
в 2010
Не помню, какие функции там были, попробуйте так
Код
=ЗАМЕНИТЬ(ЛЕВСИМВ(A3;НАЙТИ("#";ПОДСТАВИТЬ(A3;СИМВОЛ(10);"#";2))-1);1;6;"")

или так
Код
=ПСТР(ЛЕВСИМВ(A3;НАЙТИ("#";ПОДСТАВИТЬ(A3;СИМВОЛ(10);"#";2))-1);6;9999)
Изменено: Msi2102 - 29.07.2025 12:09:51
формирование графика на основании дат ремонта
 
Не долго думая
Код
=ЕСЛИОШИБКА(ИНДЕКС($B$3:$B$10;СУММПРОИЗВ(($A$3:$A$10=$I12)*($C$3:$C$10<=J$11)*($F$3:$F$10+($F$3:$F$10="")*СЕГОДНЯ()>=J$11)*(СТРОКА($A$3:$A$10)-2))*($I12<>""));"")
Получить наименование контрагента из выгрузки 1С
 
Можно так, если правильно понял
Код
=ФИЛЬТР.XML(ПОДСТАВИТЬ(ЗАМЕНИТЬ(A3;1;5;"<t><s>");СИМВОЛ(10);"</s><s>")&"</s></t>";"//s[2]")

Название темы:
Получить наименование контрагента из выгрузки 1С
Изменено: Msi2102 - 29.07.2025 11:39:30 (Изменил формулу)
Перенос значения ячейки с надстрочными символами из Excel в Word
 
Цитата
kuraga97 написал:
и в начало содержимого требуется добавить набор символов (пусть будет "1. ").
Или в Ворд вставьте "1" а только потом копируйте ячейку
Объединить два столбца в один в нужном порядке, Объединить два столбца( темы и подтемы) в один. У каждой темы свои уникальные подтемы, подробная инфа ниже
 
Бонусом нумерация
Код
Sub Макрос1()
    Dim arr_1, arr_2, n As Integer, m As Integer
    Set sd = CreateObject("Scripting.Dictionary")
    arr_1 = Range("A2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
    m = 0
    For n = 1 To UBound(arr_1)
        If Not sd.Exists(arr_1(n, 1)) Then Set sd(arr_1(n, 1)) = CreateObject("Scripting.Dictionary"): m = m + 1
        If Not sd(arr_1(n, 1)).Exists(arr_1(n, 2)) Then sd(arr_1(n, 1)).Add arr_1(n, 2), arr_1(n, 2): m = m + 1
    Next
    ReDim arr_2(1 To m, 1 To 2)
    n = 1:    k = 0:    j = 0
    For Each y In sd
        arr_2(n, 2) = y
        k = k + 1
        j = 0
        arr_2(n, 1) = k
        n = n + 1
        For Each x In sd(y)
            arr_2(n, 2) = x
            j = j + 1
            arr_2(n, 1) = k & "." & j
            n = n + 1
        Next
    Next
    [d2].Resize(m, 2) = arr_2
End Sub
Объединить два столбца в один в нужном порядке, Объединить два столбца( темы и подтемы) в один. У каждой темы свои уникальные подтемы, подробная инфа ниже
 
Макросом:
Код
Sub Макрос1()
    Dim arr_1, arr_2, n As Integer, m As Integer
    Set sd = CreateObject("Scripting.Dictionary")
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    arr_1 = Range("A2:B" & lr).Value
    m = 0
    For n = 1 To UBound(arr_1)
        If Not sd.Exists(arr_1(n, 1)) Then Set sd(arr_1(n, 1)) = CreateObject("Scripting.Dictionary"): m = m + 1
        If Not sd(arr_1(n, 1)).Exists(arr_1(n, 2)) Then sd(arr_1(n, 1)).Add arr_1(n, 2), arr_1(n, 2): m = m + 1
    Next
    ReDim arr_2(1 To m, 1 To 1)
    n = 1
    For Each y In sd
        arr_2(n, 1) = y
        n = n + 1
        For Each x In sd(y)
            arr_2(n, 1) = x
            n = n + 1
        Next
    Next
    [d2].Resize(m, 1) = arr_2
End Sub
Объединить два столбца в один в нужном порядке, Объединить два столбца( темы и подтемы) в один. У каждой темы свои уникальные подтемы, подробная инфа ниже
 
Можно PQ
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Сгруппированные строки" = Table.Group(Источник, {"Тема"}, {{"Итог", each {_[Тема]{0}} & _[Подтема]}}),
    #"Развернутый элемент Итог" = Table.ExpandListColumn(#"Сгруппированные строки", "Итог"),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Развернутый элемент Итог",{"Тема"})
in
    #"Удаленные столбцы
Изменено: Msi2102 - 28.07.2025 10:30:31
Microsoft Office обнаружил возможное нарушение безопасности. Корпорация Майкрософт заблокировала запуск макросов, так как источник этого файла не является доверенным
 
Сделайте скрин, что у Вас включено в окне:
Параметры Excel --> Центр управления безопасностью --> Параметры управления безопасностью ... --> Параметры макросов
Сумма за выбранный период + доп.параметры, Прошу помочь с формулой
 
ПавелW, а СМЕЩ() не начнет тормозить?
Разделение ячейки по столбцам
 
Цитата
Денис Ильин написал:
слов на "ов" и "ова"
эта тема не раз уже обсуждалась, есть ещё окончания "ин", "ина", "ич" и т.д., а ещё бывают приставки типа "кызы", "улы" и т.п., а также может встречаться двойное отчество  :D
Изменено: Msi2102 - 25.07.2025 13:07:55
Выделение диапазона ячеек макросом
 
Цитата
МатросНаЗебре написал:
Последнее слово за модераторами)
А смысл уже модераторам подключаться, ответ уже получен  :D
Оценить результат по нескольким параметрам, Помогите с формулами с последовательными параметрами
 
Можно так, если правильно понял
Изменено: Msi2102 - 25.07.2025 09:21:30
Сопоставление списков по рандомным ключам
 
Цитата
zelek26 написал:
К сожалению эксель 13й,
был бы хотя бы 16 или 19
Макрос для общего свода данных в нужные колонки
 
И ещё куча вопросов:
1. В исходных данных, в шапках, будут стоять наименования "НАБОР 1", "НАБОР 2" и т.д.?
2. Наборы всегда будут идти через столбец?
3. После последнего набора будут какие-либо данные?
4. В наборах могут быть пустые строки?
Изменено: Msi2102 - 24.07.2025 10:37:31
Вытащить текст между двумя символами
 
Цитата
Hugo написал:
текстразд(), текстдо(), текспосле()
Везет, у меня ещё 2019, там такой красоты нет :(
Макрос для общего свода данных в нужные колонки
 
Я правильно понял, что в столбцах AA, AB, AC результат который должен быть  в столбцах G, H, I. Иными словами нужно все наборы собрать один под другим?
Вытащить текст между двумя символами
 
Можно так (массивная)
Код
=ОБЪЕДИНИТЬ(" ";1;ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(A1;" ";"</s><s>")&"</s></t>";"//s[position()>="&A4&" and position()<="&B4&"]"))
Изменено: Msi2102 - 24.07.2025 09:17:05
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 139 След.
Наверх