Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 193 След.
Разделение и выбор данных без повторений
 
irina2, выделять? зачем? просто нужно запускать

можно формулами конечно...но с дополнительными столбцом
Не бойтесь совершенства. Вам его не достичь.
Как извлечь данные из ячейки по строкам
 
FrOleg80, а вы сами  
Цитата
FrOleg80 написал:
е могли бы применить эти формулы в прикреплённом файле.  
и показать его
Не бойтесь совершенства. Вам его не достичь.
Как извлечь данные из ячейки по строкам
 
FrOleg80,  после устранения замечания покажите в файле формулы - куда вы их вставили
Не бойтесь совершенства. Вам его не достичь.
Как извлечь данные из ячейки по строкам
 
FrOleg80,  а лучше сюда заглянуть https://www.planetaexcel.ru/techniques/7/4844/

для М
Код
=СЖПРОБЕЛЫ(ПСТР(A2;ПОИСК(":";A2;1)+4;(ПОИСК("VS";A2;1)-ПОИСК(":";A2;1)-4)))
для N
Код
=ПСТР(A2;2;ПОИСК("]";A2;1)-2)
для O
Код
=СЖПРОБЕЛЫ(ПСТР(A2;ПОИСК(":";A2;1)+4;(ПОИСК("VS";A2;1)-ПОИСК(":";A2;1)-4)))
для P
Код
=СЖПРОБЕЛЫ(ПСТР(ПСТР(A2;ПОИСК(" vs ";A2;1);ДЛСТР(A2)-ПОИСК(" vs ";A2;1));5;ПОИСК("[";ПСТР(A2;ПОИСК(" vs ";A2;1);ДЛСТР(A2)-ПОИСК(" vs ";A2;1));1)-6))
Изменено: Mershik - 25 окт 2020 13:16:02
Не бойтесь совершенства. Вам его не достичь.
Как работает функция Просмотр с вектром поиска 1/(условие)
 
Цитата
Hugo написал:
вернёт результат и для гриш, и для гришац...
не понял...кто вернет?
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
 КАК ВСТАВИТЬ ГОТОВЫЙ МАКРОС В РАБОЧУЮ КНИГУ?
КАК ЗАПУСТИТЬ МАКРОС В EXCEL РАЗНЫМИ СПОСОБАМИ
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
irina2,
Код
Sub dff()
Dim i As Long, lr As Long, col As New Collection, arr
With Worksheets("БАЗА ШАБЛОН")
lr = Cells(Rows.Count, 4).End(xlUp).Row
For i = 380 To lr
    On Error Resume Next
    col.Add Left(Cells(i, 4), InStr(1, Cells(i, 4), ",")), CStr(Left(Cells(i, 4), InStr(1, Cells(i, 4), ",")))
Next i
ReDim arr(col.Count, 0)
For i = 1 To col.Count
    arr(i - 1, 0) = col(i)
Next i
Range("F380").Resize(UBound(arr)) = arr
End With
End Sub
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
irina2, макрос подойдет?
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
irina2, оно описано) но куда выводить  и  в каком виде мне лично не понятно
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
Андрей VG, приветствую) ну это не описание задачи как по мне) вот после 7 № п/п что делать?)) там закончились цифФферки)

ГРЕШУ))))
Описание нашел
в диапазоне D389:D407

но остался вопрос почему Вы irina2) а пишите как мужчина)
Изменено: Mershik - 25 окт 2020 11:40:54
Не бойтесь совершенства. Вам его не достичь.
Разделение и выбор данных без повторений
 
irina2, описание должно быть тут...в тексте, и в файле его тоже нет.
один из формульных вариантов решения https://www.planetaexcel.ru/techniques/2/81/
можно макросом 0 но только после описания  
Изменено: Mershik - 25 окт 2020 11:31:06
Не бойтесь совершенства. Вам его не достичь.
как получить последнее значение по критериям
 
Дамир Иванов, почему вы поиском не пользуетесь? в гугл вбиваешь прям ваше "последнее значение по критериям"....
Код
=ПРОСМОТР(2;1/(E2=$A$2:$A$6);$B$2:$B$6)
Изменено: Mershik - 25 окт 2020 00:10:54
Не бойтесь совершенства. Вам его не достичь.
Сформировать уникальный список товара и подсчитать кол-во
 
Андрей, если правильно понял
Код
Sub dsd()
Dim i As Long, lr As Long, k As Long, col As New Collection, P As Worksheet, S As Worksheet, arr
Set P = Worksheets("Поступления"): Set S = Worksheets("Склад")
lr = P.Cells(Rows.Count, 7).End(xlUp).Row
    For i = 10 To lr
        On Error Resume Next
        If P.Cells(i, 7) <> "" Then
            col.Add P.Cells(i, 7).Value, CStr(P.Cells(i, 7).Value)
        End If
    Next i
ReDim arr(col.Count, 1)
For i = 1 To col.Count
    arr(i - 1, 0) = col(i)
    arr(i - 1, 1) = Application.WorksheetFunction.SumIf(P.Range(P.Cells(10, 7), P.Cells(lr, 7)), col(i), P.Range(P.Cells(10, 11), P.Cells(lr, 11)))
Next i
S.Range("B4:C4").Resize(UBound(arr)) = arr
End Sub
Изменено: Mershik - 24 окт 2020 17:28:19
Не бойтесь совершенства. Вам его не достичь.
Скрытие/отображеие строк в таблице в зависимости от значений двух ячеек
 
plank1433, +- так ...
Код
Sub Овал1_Щелчок()
Dim lr As Long, i As Long, cell As Range, cell2 As Range
Application.ScreenUpdating = False
Rows("4:1000").EntireRow.Hidden = False
lr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 4 To lr
    If Cells(i, 2) <> [B1] And Cells(i, 2) <> [B2] Then
        If cell Is Nothing Then
            Set cell = Cells(i, 2)
        Else
            Set cell = Union(cell, Cells(i, 2))
        End If
    End If
Next i
If Not cell Is Nothing Then cell.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Изменено: Mershik - 24 окт 2020 17:03:23
Не бойтесь совершенства. Вам его не достичь.
Вставка информации с одного листа на другой, Вставка информации с одного листа на другой
 
Nick Vector,
Код
Sub dsd()
Dim sh As Worksheet, result As Worksheet, lr As Long, i As Long, shapka
shapka = Array("ID товара", "ID товара у продавца", "Название товара")
Set sh = Worksheets("Лист1"): Set result = Worksheets("Лист2")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
result.Range("A:C").Clear
k = 1
For i = 2 To lr
    For Z = 1 To Len(sh.Cells(i, 3))
        If Mid(sh.Cells(i, 3), Z, 1) = Chr(34) Then
            If x = 0 Then
                x = Z
            Else
                x2 = Z
                s = Application.WorksheetFunction.CountIf(sh.Columns(3), Mid(sh.Cells(i, 3), 1, x2) & "*") - 1
                result.Range("A" & k & ":C" & k) = shapka
                sh.Range(sh.Cells(i, 1), sh.Cells(i + s, 3)).Copy Destination:=result.Cells(k + 1, 1)
                x = 0: k = result.Cells(Rows.Count, 1).End(xlUp).Row + 2: i = i + s
                Exit For
            End If
        End If
    Next Z
Next i
End Sub
Изменено: Mershik - 23 окт 2020 15:47:23
Не бойтесь совершенства. Вам его не достичь.
Вставка информации с одного листа на другой, Вставка информации с одного листа на другой
 
Nick Vector, разиберитесь в "СЕБЕ" и приведите пример...
Цитата
Nick Vector написал:
всегда по 3 строки?
Цитата
Nick Vector написал:
идут по 3 шт.
Цитата
DemonAMT написал:
ам просто надо все строки разбить кратно трем и подставить заголовок. Думаю волшебные макросы с этим справятся.
Цитата
Nick Vector написал:
ну или так, спасибо за уточнение
Изменено: Mershik - 23 окт 2020 14:06:05
Не бойтесь совершенства. Вам его не достичь.
Автоматическая нумерация в хаотическом порядке, Как сделать автоматическую нумерация в хаотическом порядке
 
Екатерина Накаяма, это не пример открою вам секрет.. здесь файлы должны быть в формате ексель
Не бойтесь совершенства. Вам его не достичь.
Вставка информации с одного листа на другой, Вставка информации с одного листа на другой
 
если по 3 строки
Код
Sub dsd()
Dim sh As Worksheet, result As Worksheet, lr As Long, i As Long, shapka
shapka = Array("ID товара", "ID товара у продавца", "Название товара")
Set sh = Worksheets("Лист1"): Set result = Worksheets("Лист2")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
K = 1
For i = 2 To lr Step 3
    result.Range("A" & K & ":C" & K) = shapka
    sh.Range(sh.Cells(i, 1), sh.Cells(i + 2, 3)).Copy Destination:=result.Cells(K + 1, 1)
    K = K + 5
Next i
End Sub


Изменено: Mershik - 23 окт 2020 13:57:57
Не бойтесь совершенства. Вам его не достичь.
Вставка информации с одного листа на другой, Вставка информации с одного листа на другой
 
Nick Vector, чет смотрю не пойму - сгруппировать по параметру (Размер) ....но там нет нигде такого параметра, в моем понимание это одинаковый размер должен быть вместе...опишите словами задачу пожалуйста, всегда по 3 строки? и всегда идет "003" "AM PM " и т.д. в кавычках?
Изменено: Mershik - 23 окт 2020 13:29:43
Не бойтесь совершенства. Вам его не достичь.
В таблице найти одинаковые значения
 
Кристина Тарасова, количество повторений
Не бойтесь совершенства. Вам его не достичь.
В таблице найти одинаковые значения
 
Кристина Тарасова, количество повторений
Не бойтесь совершенства. Вам его не достичь.
Об использовании функции ЕСЛИМН в расчётом поле сводной таблицы, В обычной таблице функция работает, при попытке ввести формулу с вычисляемом поле сводной таблицы, Excel выдаёт ошибку
 
hudoi, в вычисляемых полях если не ошибаюсь практически никакие формулы нельзя использовать кроме как математические действия (+ - * /)
Не бойтесь совершенства. Вам его не достичь.
В таблице найти одинаковые значения
 
Кристина Тарасова, добрый день, вот вы какую помощь ожидаете? совет? или практическое решение? - файла-примера согласно правилам нет, а там интересно написано...
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
   2.4. Не прикладывайте файлы-примеры с персональными данными, конфиденциальной информацией, коммерческой или государственной тайной! Яндекс и Google не спят - проиндексируют ваши данные и привет - они попадут в открытый доступ. И даже удаление темы потом не поможет.
Не бойтесь совершенства. Вам его не достичь.
Подставить значение по трем критериям, одно из которых "уникально"
 
buchlotnik, хватит уже ) тут с трудом уговорил на работе поставить 2016 )))

еще вариант
Код
=ЕСЛИОШИБКА(ИНДЕКС(ерпн!$B$2:$B$20;АГРЕГАТ(15;6;СТРОКА(ерпн!$A$1:$A$20)/(ерпн!$C$2:$C$20=A2)/(B2=ерпн!$E$2:$E$20)/(ерпн!$M$2:$M$20=C2);СЧЁТЕСЛИМН($A$1:$A2;$A2;$B$1:$B2;$B2;$C$1:$C2;$C2)));"")
Изменено: Mershik - 23 окт 2020 12:14:06
Не бойтесь совершенства. Вам его не достичь.
Выделение строк подходящих под критерии
 
Zaker1g, вы посмотрели макрос в #22
Не бойтесь совершенства. Вам его не достичь.
Как правильно сделать группировку по строкам?
 
Ольга, а обновить нельзя сводную после того как внесли новые значения
Не бойтесь совершенства. Вам его не достичь.
Выделение строк подходящих под критерии
 
Zaker1g, я понял) я думал максимально нужно другое) сейчас исправлю -  я же правильно что во второй части таблицы нужно получить максимальное значение из столбца  "Добыча нефти за год, т"?
Код
Sub dsds()
Dim sh As Worksheet, sh2 As Worksheet, i As Long, lr As Long, col As New Collection, cell As Range, cell2 As Range
Set sh = Worksheets("База скважин"): Set sh2 = Worksheets("Требуемая форма")
sh2.Range("A3:E10000").Clear: sh2.Range("G3:J10000").Clear
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Z = 3
For i = 2 To lr
    On Error Resume Next
    If sh.Cells(i, 1) <> "" Then col.Add sh.Cells(i, 1).Value, CStr(sh.Cells(i, 1).Value)
Next i
For i = 1 To col.Count
    x = Application.WorksheetFunction.Max(sh.Columns(2))
    x2 = Application.WorksheetFunction.Min(sh.Columns(2))
    sh2.Cells(2 + i, 1) = col(i)
    For k = 2 To lr
        If col(i) = sh.Cells(k, 1) Then
            If sh.Cells(k, 2) <= x Then x3 = k: x = sh.Cells(k, 2)
            
            If sh.Cells(k, 4) >= x2 Then x4 = k: x2 = sh.Cells(k, 4)
        End If
    Next k
        sh.Range(sh.Cells(x3, 2), sh.Cells(x3, 5)).Copy Destination:=sh2.Cells(Z, 2)
        sh.Range(sh.Cells(x4, 2), sh.Cells(x4, 5)).Copy Destination:=sh2.Cells(Z, 7)
        Z = Z + 1
Next i
End Sub
Изменено: Mershik - 22 окт 2020 21:50:54
Не бойтесь совершенства. Вам его не достичь.
Выделение строк подходящих под критерии
 
Zaker1g, а у меня кажется все норм....
Не бойтесь совершенства. Вам его не достичь.
Перенос текстовых и цифровых данных с разбивкой по ячейкам без пробелов
 
Долго будете ждать помощь без фала-примера
Не бойтесь совершенства. Вам его не достичь.
Выделение строк подходящих под критерии
 
Цитата
Zaker1g написал:
представленный год работы скважины.
а нужно иначе?)
я просто с этой логикой и делал...заменил макрос
Код
Sub dsds()
Dim sh As Worksheet, sh2 As Worksheet, i As Long, lr As Long, col As New Collection, cell As Range, cell2 As Range
Set sh = Worksheets("База скважин"): Set sh2 = Worksheets("Требуемая форма")
sh2.Range("A3:E10000").Clear: sh2.Range("G3:J10000").Clear

lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Z = 3
For i = 2 To lr
    On Error Resume Next
    If sh.Cells(i, 1) <> "" Then col.Add sh.Cells(i, 1).Value, CStr(sh.Cells(i, 1).Value)
Next i
For i = 1 To col.Count
    x = 99999999
    x2 = 0
    sh2.Cells(2 + i, 1) = col(i)
    For k = 2 To lr
        If col(i) = sh.Cells(k, 1) Then
        If sh.Cells(k, 2) < x Then
            x = k
        End If
        If sh.Cells(k, 5) > x2 Then
            x2 = k
        End If
        End If
    Next k
        sh.Range(sh.Cells(x, 2), sh.Cells(x, 5)).Copy Destination:=sh2.Cells(Z, 2)
        sh.Range(sh.Cells(x2, 2), sh.Cells(x2, 5)).Copy Destination:=sh2.Cells(Z, 7)
        Z = Z + 1
Next i
End Sub

Изменено: Mershik - 22 окт 2020 17:50:37
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 193 След.
Наверх