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

Страницы: 1
Поиск повторяющихся строк и добавления значения в найденных строках
 
Цитата
yozhik написал:
с доп столбцом

Формула конечно очень "злая")..
Все верно!
Спасибо большое!
Поиск повторяющихся строк и добавления значения в найденных строках
 
Цитата
yozhik написал:
в Вашем же примере в поле VALID_from даты не равны,
не досмотрела, в первой части примера - равны...но вообще да, поиск по одинаковым Hotel / Room / Accomodation / meal / valid_from
Поиск повторяющихся строк и добавления значения в найденных строках
 
Добрый день!

Помогите, пожалуйста, решить объемный вопрос:

есть таблица ~ 600к строк...в этой таблице есть одинаковые строки (все колонки одинаковые кроме одной - price type), соответственно,
необходимо найти строки, где отличие только в колонке price type, и по тем строкам, где найдено отличие только в колонке price type - в колонке room добавить к значению "_1" ... "_4" к каждой такой найденной повторяющийся строке, где отличие только в price type...

Для наглядности, приложила пример.
Макрос: вставка формул/ значений по определенной логике, В таблице необходимо добавить определенные значения/ формулы в строки согласно логике
 
Цитата
VideoAlex написал:
короче если диапазонов больше двух то начинаются проблемы?
Алекс, да - основной момент этот.

что касается "вдруг" - я в том смысле - что не смертельно, могу и руками добить потом этот момент...но если не сложно - то да, вместо free что б оно тоже брало цену - там поставила 0-4y € 37.00 (то есть формат соблюден) вместо 0-4y Free, - скрипт не сплюсовал стоимость.

Но, согласна можно и через массовую замену free на € 0.00. Что б было изначально.

А что касается "не форматированные как 000.00" - 100 евро я поставила для наглядности, что б проще было смотреть что посчитало (т к плюсовало большое целое число), а так формат будет такой же - 100.00.
Макрос: вставка формул/ значений по определенной логике, В таблице необходимо добавить определенные значения/ формулы в строки согласно логике
 
Добрый вечер!

Да, практически оно!
Единственное - две ошибки есть в проставлении значения, изложила в файле что б наглядней было...можно, если не сложно подправить это зло?
Изменено: Алина - 16.11.2016 00:49:25
Макрос: вставка формул/ значений по определенной логике, В таблице необходимо добавить определенные значения/ формулы в строки согласно логике
 
Та не хотела наглеть..был изначальный план - часть сделать макросом, что попроще, а часть руками)

Вся логика - описана в последнем вложенном файле - что должно получится в добавленных пустых строках..
Единственное, были сомнения - где постить..но смотрю - в Работе - посложнее задачи идут..
Макрос: вставка формул/ значений по определенной логике, В таблице необходимо добавить определенные значения/ формулы в строки согласно логике
 
Добрый вечер!

Была уже получена помощь от Казанский и JayBhagavan по макросу: вставка пустых строк согласно логике, за что очень благодарна:
Код
Sub Alina()
Dim i&, s$
  For i = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
    s = Cells(i, "E")
    If Len(s) Then Rows(i + 1).Resize(1 + Len(s) - Len(Replace(s, ",", ""))).Insert
  Next
End Sub

Или
Код
Option Explicit
 
Sub insert_rows_after_conditions()
    Dim rngCol As Range
    Dim sTmp As String
    Dim lTmp As Long
    Dim i As Long
     
    Const sKEY_PHRASE As String = "*free*"
    Const sTARGET_DELIMETR As String = ","
    Const sTARGET_COLUMN As String = "E"
    Const lROW_START As Long = 2
     
    With ActiveSheet
        Set rngCol = .Range(sTARGET_COLUMN & lROW_START & ":" & sTARGET_COLUMN & _
            .Cells(.Rows.Count, sTARGET_COLUMN).End(xlUp).Row)
        For i = rngCol.Rows.Count To 1 Step -1
            sTmp = rngCol.Rows(i).Value
            If sTmp Like sKEY_PHRASE Then
                lTmp = Len(sTmp) - Len(Replace(sTmp, sTARGET_DELIMETR, "")) + 1
                rngCol.Rows(i).Offset(1).Resize(lTmp).EntireRow.Insert xlDown
            End If
        Next i
    End With
End Sub

300 тыс мышкой позади…но еще впереди столько же, скажите еще пару манипуляций сделать нужно по этому файлу - описала в приложенном файле. Фактически нужно заполнить теперь пустые строки согласно изложенной логики – в приложенном файле.

Посмотрите, пожалуйста, пройдет как подарок на 8-е марта + бонус к карме?) Или постить в разделе Работа?
Макрос: вставка пустых строк по условию, Необходимо вставить пустые строки после строк с определенным значением
 
Фантастика!
Сразу вариант на погуглить, чтоб разобраться и вариант, чтоб сразу разобраться)
Спасибо большое!
Четыре дня в кабинете будет тихо без кликов мышки по 300тыс строкам))

F5 - выделить пустые - = - вверх - ctrl+enter девиз вообще не наш) дальше уже проверенным методом, хоть и займет пару дней, "разбивки текста по столбцам" и пару тройку сложнейших условий "если").
Макрос: вставка пустых строк по условию, Необходимо вставить пустые строки после строк с определенным значением
 
Замечания устранены..
Макрос: вставка пустых строк по условию, Необходимо вставить пустые строки после строк с определенным значением
 
Добрый вечер!

Просмотрела весь форум..была очень близка к решению вопроса сама, но не сложилось)...
Нашла следующий код:
Код
      Sub StrokaAfterCHILD()
      Dim i As Range
          
          For Each i In Selection
          If i = "0-3y free" Then i.Offset(1, 0).EntireRow.Insert xlDown

      Next
      End Sub
Данный код вставляет пустую строку, после строки, где в ячейке есть железно фраза "0-3y free" (либо другая конкретная фраза, указанная в коде)..

А мне необходимо, в идеале:
после строки, где в ячейке есть:
ОДНА запятая - вставляло 2 пустых строки,
где ДВЕ запятых - вставляло 3 пустых строки,
а где есть любой текст но НЕТ запятых - то 1 пустая строка.

Если это сложно, то подскажите, пожалуйста, как прописать в макросе что выше, не "железно" значение, а СОДЕРЖИТ... не If i = "0-3y free", а i "содержит free".
Так же, для наглядности прилагаю часть рабочего файла.
Буду признательна за помощь!

PS Три S чтоб сто% уникальный с первого раза)
Изменено: Алина - 14.11.2016 23:45:13
Страницы: 1
Наверх