Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Перемножить два листа
 
Подскажите как перемножить два листа.
Есть таблица в list, там необходимо размножить те строки в которых столбец I имеет значение "Все"
Туда подставить значения из листа "Cities", учитывая значения столбца J в "list".

Если глянуть пример, что во вложении, то будет более понятно что необходимо.
 
Код
Sub fff()
    Dim step&, i&
    Dim iCell As Range, fRng As Range
    
    Sheets("Result").[A1].CurrentRegion.Columns(1).Resize(Sheets("Result").[A1].CurrentRegion.Rows.Count, 15).Clear
    
    step = 1
    For Each iCell In Sheets("List").[A1].CurrentRegion.Columns(1).Cells
        If LCase(iCell.Offset(0, 8)) = "все" Then
            Set fRng = Sheets("Cities").[A1].EntireRow.Find(What:=iCell.Offset(0, 9), LookIn:=xlValues, lookAt:=xlWhole)
            If Not fRng Is Nothing Then
                i = 1
                Do While fRng.Offset(i, 0) <> ""
                    iCell.Resize(1, 15).Copy Sheets("Result").[A1].Offset(step - 1, 0)
                    Sheets("Result").[A1].Offset(step - 1, 8) = fRng.Offset(i, 0)
                    i = i + 1
                    step = step + 1
                Loop
            Else
                iCell.Resize(1, 15).Copy Sheets("Result").[A1].Offset(step - 1, 0)
                step = step + 1
            End If
        Else
            iCell.Resize(1, 15).Copy Sheets("Result").[A1].Offset(step - 1, 0)
            step = step + 1
        End If
    Next
End Sub
Учимся сами и помогаем другим...
 
Огромное спасибо. Все работает идеально.
 
Перемножить... Размножить... У автора эти слова - синонимы?
 
Да ладно вам, что к словам придираться.
Пытался по понятней объяснить, чего мне надо...согласен, что вышло не очень.
Главное помогли с решением.
 
 
Для форума главное, чтобы тему можно было найти поиском. Из названия темы можно понять, что Вам нужно перемножать значения двух листов. Похоже, не так.
Можете предложить название, раскрывающее суть задачи?. Напишите в сообщении, модераторы переименуют.
Страницы: 1
Читают тему (гостей: 1)