VBA Excel —根据单元格值插入符号

Question

我需要使用完全陌生的Excel。 我正在寻找一种VBA解决方案以加快日常工作。 这是我的情况：我需要检查C列具有负，正和神经网络值的单元格，然后将sysmbols插入到B列的相应单元格中。

例如，如果C4具有正值（2,345），则B4应使用＆u＆作为符号。 如果C5具有负值（-12.98），则B5应该以＆d＆作为符号。 并且，如果C6的网络值为（0.000），则应以＆n＆作为符号插入B6 。

空的B列已经存在，并且值都在C列中。

Answer 1

正如Kyle所说，您所需要做的就是一个简单的（嵌套的）if公式：

=IF(C1<0;"&d&";IF(C1>0;"&u&";"&n&"))

格式非常简单，if包含三个由分号分隔的部分。 第一个是逻辑测试，您要测试的内容，在这种情况下，如果C1中的值小于（或大于）0，第二个是您想要的单元格中的值（如果测试中的语句为true），并且如果是假的，最后要输入什么。

在这种情况下，我们再次测试C1是否不小于0，以查看其是否大于零，这就是为什么第一个内部有另一个if语句的原因。

要将公式应用于整个列，只需将其整个复制下来，它所引用的单元格将自动更新。

Answer 2

试试看：

Sub WhatEver()
    Dim C As Range
    Set C = Intersect(ActiveSheet.UsedRange, Range("C:C"))
    For Each cc In C
        ccv = cc.Value
        If ccv <> "" Then
            If ccv = 0 Then
                cc.Offset(0, -1).Value = "&n&"
            ElseIf ccv > 0 Then
                cc.Offset(0, -1).Value = "&u&"
            Else
                cc.Offset(0, -1).Value = "&d&"
            End If
        End If
    Next cc
End Sub