如何在EXCEL中创建虚拟值并替换原始数据

Question

我有类似上面的数据。我想编写一个vba代码来对从B2到J11的单元格进行逻辑测试。

如有B2至J11> 0正面的，那么原来的值将成为1， 否则变成0

如果你能做到这一点只需在Excel中，也让我知道。我尝试了IF函数，它只能用于一个单元格。

Answer 1

您无法编写一个公式来更改单元格。这将需要VBA。

这是我的第一VBA的帖子，所以我愿意从专家的任何指点：

Sub Replace() 
    For Each c In Selection 
    If c.Value > 0 Then 
     c.Value = 1 
    ElseIf c.Value < 0 Then 
     c.Value = 0 
    End If 
    Next 
End Sub 

您还可以使用搜索更改为0和1 /替换。

突出显示的数据，那么：

• 查找/替换-*为0。
• 搜索/替换*.*对于1。