if-countif超过7

我有一个Excel文件的小问题。 我使用下面的公式来达到以下目的：

如果所选单元格包含另一个值（string），则该函数将返回一个值。 这工作完美。 但我有20如果/ countif添加，它不工作，因为我不能得到7 …任何想法很容易解决这个问题？ 我也给你在Excel代码下的VBA代码…

非常感谢您的帮助

=SI(NB.SI([@[ENTRY_LABEL]];"*MAZ*");"MAZ";SI(NB.SI([@[ENTRY_LABEL]];"*MGN*");"MGN";SI(NB.SI([@[ENTRY_LABEL]];"*Magnitude*");"MGN";SI(NB.SI([@[ENTRY_LABEL]];"*AJU*");"AJU";SI(NB.SI([@[ENTRY_LABEL]];"*Reclas*");"Reclass";""))))) 

VBA代码：

 Range(ActiveCell, ActiveCell.End(xlDown)).SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=IF(COUNTIF(Tableau4[[#This Row],[ENTRY_LABEL]],""*MAZ*""),""MAZ"",IF(COUNTIF(Tableau4[[#This Row],[ENTRY_LABEL]],""*MGN*""),""MGN"",IF(COUNTIF(Tableau4[[#This Row],[ENTRY_LABEL]],""*Magnitude*""),""MGN"",IF(COUNTIF(Tableau4[[#This Row],[ENTRY_LABEL]],""*AJU*""),""AJU"",IF(COUNTIF(Tableau4[[#This Row],[ENTRY_LABEL]],""*Reclas*""),""Reclass"","""")))))" 

Answer 1

在这种情况下，您可以使用VBA公式。 只需在模块级别的Visual Basic编辑器中编写如下内容：

 Public Function many_ifs(my_cell As Range) As String Select Case my_cell.Value Case 1 many_ifs = "one" Case 2 many_ifs = "two" Case 3 many_ifs = "three" Case 4 many_ifs = "four" Case Else: many_ifs = "Unknown" End Select End Function 

然后从Excel中调用它作为一个正常的公式，如下所示：

以下是如何开始使用VBA： https ： //msdn.microsoft.com/en-us/library/office/ee814737(v= office.14) .aspx

Answer 2

我终于用这个，它的工作原理。

 Public Function cat1_0lia(my_cell As Range) As String Dim result As String Select Case True Case my_cell.Value Like "*MAZ*": result = "MAZ" Case my_cell.Value Like "*Maz*": result = "MAZ" Case my_cell.Value Like "*maz*": result = "MAZ" Case my_cell.Value Like "*Mis à 0*": result = "MAZ" Case my_cell.Value Like "*Mgn*": result = "MGN" Case my_cell.Value Like "*MGN*": result = "MGN" Case my_cell.Value Like "*Magnitude*": result = "MGN" Case my_cell.Value Like "*AJU*": result = "AJU" Case my_cell.Value Like "*Aju*": result = "AJU" Case my_cell.Value Like "*aju*": result = "AJU" Case my_cell.Value Like "*RECLASS*": result = "RECLASS" Case my_cell.Value Like "*Reclass*": result = "RECLASS" Case my_cell.Value Like "*reclass*": result = "RECLASS" Case Else: result = "" End Select cat1_0lia = result End Function