对于应用自定义样式的每条指令

For each instruction to apply custom styles

我需要您帮助我编写以下代码:

  1. 目的:应用C列中列出的自定义样式,在E列中显示它们的外观。
  2. 范围 C14:C46 包含工作簿中设置的样式列表。
  3. 范围 E14:E46 应包含样式示例,即相应样式的外观。
  4. 我开发的代码是:Range("E14").Style = Range("C14").Value
  5. 因此,我相信 For Each 指令可以在 E14:E46 范围内复制此代码,但我不习惯使用它。

样本:

试试这个:

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