Excel嵌套IFfunction3例

我有一个列A，它包含以下任一值：

DATEnone nonenone noneTIME DATETIME 

我想写一个基本上这样的function：

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

我怎样才能做到这一点在Excel单元格function？

Answer 1

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

 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上进行迭代，并根据您指定的条件replace内容。

---

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

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

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