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列

Excel嵌套IF函数，3例

1 个答案: