Вставка данных и копирование результата на другой лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка данных и копирование результата на другой лист (Формулы/Formulas)

titov

Дата: Среда, 26.09.2018, 11:08 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
На листе "основа" находится формула где можно менять переменные параметры
На листе "результаты" нужно копировать строчку с получившимся результатом. Каждый результат на следующей строчке.
Далее по результатам можно проводить аналитику, поэтому нужен весь последовательный перебор значений.

Подскажите, пожалуйста, как ПРАВИЛЬНО вставлять диапазон значений, чтобы на другом листе копировались результаты.
Пока я делаю методом перебора:
- поменял значение
- копировать строчку
- открыть лист Результаты
- вставить и так каждую итерацию (от 2000 до 8000 вариантов).

Заранее Огромная благодарность всем откликнувшимся.

К сообщению приложен файл: __260918.xls (61.5 Kb)

Ответить

_Boroda_

Дата: Среда, 26.09.2018, 13:38 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Вам нужна кнопка добавления и макрос. Примерно вот такой
[vba]

Код

Sub Kopir()
    With Sheets("результаты")
        n_ = .Cells(.Rows.Count, 1).End(3).Row - 1
        ar = .Cells(2, 1).Resize(n_, 4)
        t_ = "Такие параметры уже есть. Все равно добавить строку?"
        Set slov = CreateObject("Scripting.Dictionary")
        With slov
            For i = 1 To n_
                k_ = ar(i, 1) & "_" & ar(i, 2) & "_" & ar(i, 3) & "_" & ar(i, 4)
                .Item(k_) = i
            Next i
            z_ = Cells(2, 1) & "_" & Cells(2, 2) & "_" & Cells(2, 3) & "_" & Cells(2, 4)
            If .Exists(z_) Then
                If MsgBox(t_, vbYesNo) <> 6 Then
                    Exit Sub
                End If
            End If
        End With
        .Cells(n_ + 2, 1).Resize(1, 14) = Cells(2, 1).Resize(1, 14).Value
    End With
End Sub

[/vba]

К сообщению приложен файл: _260918_2.xlsm (30.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Страница 1 из 1
1