Поэтому я создал калькулятор тарифов, который позволяет пользователю вводить ответы на вопросы, относящиеся к оценщику ("r_user_interface").
Эти ответы связаны с таблицей, в которой есть различные вычисления, которые дают окончательный результат в ячейке с именем ("v_premium")
Проблема в том, что теперь я хочу установить выбор по умолчанию, чтобы сравнить скорости по всем почтовым индексам, поэтому я создал транспонированную версию «r_user_interface» под названием «r_default_choices».
Затем я создал таблицу, которая содержит все 1106 почтовых индексов, а также заголовки, относящиеся к вопросам, задаваемым в пользовательском интерфейсе.
Макрос затем копирует «r_default_choices» в диапазон таблицы, содержащей почтовые индексы.
Теперь я хочу перебрать каждую строку в таблице с почтовыми индексами и вариантами выбора по умолчанию, вставить ее в «r_user_interface», чтобы получить соответствующее значение «v_premium», и вставить ее в конец строки.
Когда я запускал приведенный ниже код в первый раз, он работал, хотя и медленно. Однако теперь он не копирует значения v_premium.
Sub cop_paste_values()
Dim rng As Range
Dim user_rng As Range
Dim row As Range
On Error Resume Next
Worksheets("Batch rater").Range("r_default_choices").Copy
Worksheets("Batch rater").Range("t_default_choices").PasteSpecial Paste:=xlPasteValues
Set user_rng = Worksheets("User Interface").Range("r_user_interface")
Set rng = Range("t_default_choices_with_zip")
i = 23
While i <= 1106
For Each row In rng.Rows
row.Copy
user_rng.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Worksheets("Batch rater").cell(i, 43).Value = Worksheets("Rater").Range("v_premium").Value
i = i + 1
Next
Wend
Application.CutCopyMode = False
End Sub
Мысли