Для каждой команды, чтобы применить пользовательские стили

Question

мне нужна ваша помощь со следующим кодом:

1. Назначение: Применить пользовательские стили, имена которых перечислены в столбце С, в колонке Е, чтобы показать, как они выглядят.
2. Диапазон C14:C46 содержит список стилей, которые заданы в книге.
3. Диапазон E14:E46 должен содержать пример стиля, то есть как выглядит соответствующий стиль.
4. код, который я разработал это: Range("E14").Style = Range("C14").Value
5. Следовательно, я считаю, что For Each команда может повторить этот код для диапазона E14:E46, но я не привык работать с ним.

Пример:

Answer 1

Попробуйте это:

For i = 14 To 46 
     Range("E" & i).Style = Range("C" & i).Value 
Next i