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

时间:2015-01-22 00:51:38

标签: excel vba

我需要您的帮助以下代码:

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

1 个答案:

答案 0 :(得分:0)

试试这个:

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