EXCEL VBA 选择性粘贴时保留红色字体的公式。如图说明，谢谢大家

Question

EXCEL VBA 选择性粘贴时保留红色字体的公式。如图说明，谢谢大家

Answer 1

做个循环，逐个判断单元格的字体颜色，红色无动作，不是红色就复制数值。

比如，A1单元格
cells(1,1).Font.ColorIndex=3，就是等于鲜红色

你自己建立一个按钮，按钮代码如下，然后选中你要处理的数据区，按下按钮即可，我已测试可行。
Private Sub CommandButton1_Click()

For Each c In Selection
If c.Font.ColorIndex <> 3 Then
c.Value = c.Value
End If
Next c

End Sub

如果无法实现你的功能，那你需要测试一下你的红色是不是3，做个按钮测试一下即可
msgbox selection.Font.ColorIndex

Answer 2

选择性粘贴有好多种选项的.如果你要保留公式和红色字体,就选择公式和数字格式,
如果要粘贴为值,就选择值和数字格式就行了.本回答被网友采纳

Answer 3

选择性粘贴，选中格式然后确定就OK 了追问

全部选择性粘贴红色的公式就没了，但 我的黑字体也有公式

追答

红色字体在条件格式里面可以设置的，应该是你的那个值在范围内会自动显示为红色

追问

你没看明白，呵呵