Добавить в строку, подстроки, определённое количество раз

@pluprod · Регистрация: 19.06.2013

Author24 — интернет-сервис помощи студентам

Всем привет, помогите дописать участок кода, необходимо добавить в подстроку определённое количество раз, при этом каждая подстрока разная

Visual Basic

If Range("J" & i + 1).MergeArea.Cells.Count >= 2 Then
            
            addOrValue = "OR {" & report_id & " | c01 | All rows | " & field_2 & " } = """ & Range("L" & i + Range("J" & i + 1).MergeArea.Cells.Count).Value & """"
            resFormula = "IF {" & report_id & " | c01 | All rows | " & field_1 & " } = """ & field_1_value & """ then {" & report_id & " | c01 | All rows | " & field_2 & " } = """ & field_2_value & """ " & addOrValue & " else TRUE"
            i = i + 1
        Else

Необходимо добавлять подстроку addOrValue столько раз, сколько будет смёрженных ячееке -1, например если 2 ячейки смёржены то должны добавить один OR чтоб сравнить данные в соответсвующем столбце, если 5 смёрженны то 4 OR чтоб пройтись во всем данным. Количество смёрженных заранее неизвестно.
в addOrValue приходять данные каждый раз разные а именно отличается Range("L" & i + Range("J" & i + 1).MergeArea.Cells.Count. То есть для смёрженных ячеек в столбце J мы должны перебрать в resFormula все значения столбца L. как-то так....

@KoGG · 12.11.2015, 11:50

Может быть, как то так:

Visual Basic

If Range("J" & i + 1).MergeArea.Cells.Count >= 2 Then
    addOrValue = ""
    For k = 0 To Range("J" & i + 1).MergeArea.Cells.Count - 1
        addOrValue = addOrValue & " OR {" & report_id & " | c01 | All rows | " & field_2 & " } = """ & Range("L" & i + k + Range("J" & i + k + 1).MergeArea.Cells.Count).Value & """"
    Next k
    'Убран пробел в """ " & addOrValue & "
    resFormula = "IF {" & report_id & " | c01 | All rows | " & field_1 & " } = """ & field_1_value & """ then {" & report_id & " | c01 | All rows | " & field_2 & " } = """ & field_2_value & """" & addOrValue & " else TRUE"
    i = i + 1
Else

	12.11.2015, 11:50

Опции темы