Excel嵌套IF函数，3例

Question

我有一列 A，其中包含以下任一值:

DATEnone
nonenone
noneTIME
DATETIME

我想编写一个基本上可以做到这一点的函数:

if A1 is "DATEnone" or A1 is DATETIME:
 A1 = "D"
elif A1 is "noneTIME":
 A1 = "T"
else:
 A1 = "S"

如何在 excel 单元格函数中做到这一点？

Answer 1

将此代码复制粘贴到新模块中，然后按 F5 运行宏。

Sub Main()
Application.ScreenUpdating = False
    Dim c As Range
    For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If StrComp("DATEnone", c, 1) = 0 Or StrComp("DATETIME", c, 1) = 0 Then
            c = "D"
        ElseIf StrComp("noneTime", c, 1) = 0 Then
            c = "T"
        Else
            c = "S"
        End If
    Next c
Application.ScreenUpdating = True
End Sub

此代码迭代列 A 并根据您指定的条件替换内容。

如果你只想要一个函数，那么坚持这个公式

=IF(OR(A1="DATEnone", A1="DATETIME"),"D", IF(A1="noneTime","T","S"))

在单元格 B1 中并将其向下拖动到 B 列