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

Question

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

如果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。