Excel 2003的VBA公式根据字体颜色粘贴特殊值

Question

我正在尝试使用VBA创建一个宏，当调用时，将扫描工作表中所有填充的单元格，如果单元格字体颜色为紫色（13），它将复制该单元格，并且特殊粘贴回来数字并将字体颜色变为黑色。我已经对它进行了一些实验，但是我已经掌握了，所以如果你有任何推荐的页面来学习vba，我也会很感激。

Answer 1

您只需做一些事情并使用宏录制器录制它们并查看结果即可完成所有这些操作。 这不是你应该这样做的方式，而是一个简单的例子

Sub setPurpleValues()
 Dim myStr As String
 For Each cell In Range("A2:Z100")
  If cell.Font.ColorIndex = 13 Then myStr = cell.Value Else myStr = "No"
'MsgBox (myStr)
  If myStr <> "No" Then
   cell.Value = myStr
   cell.Font.ColorIndex = 1
  End If
 Next cell
End Sub