Excel 如果单元格仅包含特定信息而不包含其他信息

如果单元格只包含代码中写入的信息，是否可以编写一个公式，只给出答案

代码如下：

Set ws = ThisWorkbook.Sheets("Sheet1")

Dim rcell As Range, rng As Range
Set rng = ws.Range("G2:G" & ws.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible)
For Each rcell In rng.Cells

Group = ""
G1 = 0
G2 = 0

valuesA = Split(Range(rcell.Address), ",")

For Each Value In valuesA

Select Case Value
    Case "2528", "2529", "2530", "2531", "2532", "2533", "2534", "2535", "2536", "2537"
    G1 = G1 + 1

    Case "2549", "2550", "2551", "2553", "2555", "2556", "2557", "2558", "2561", "2567"
    G2 = G2 + 1
End Select

Next

If rng.Value = G1 Or rng.Value = G2 And InStr(1, rng.Value, "601"  Then
rcell.Offset(, 4).Value = ""
Else: rcell.Offset(, 4).Value = "601"
End If

我使用了这个代码，如果它包含组中的一个代码，它会将601添加到第四个单元格中但是如果单元格包含除这些代码以外的任何代码，则不应在第4个单元格中添加601。我尝试了这个论坛中给出的另一个公式，它删除了不在给定组中的代码，但也不起作用

更新

例如：

单元格G2=111601252825332552

---

因为111在单元格中，601必须保留。111是其中一个数字，但像这样的数字大约有1000个，比如14,39,63。如果不包含这些数字，则必须删除601。我希望我能解释清楚。

当你提到公式时，你大概是指代码？不能将多单元格范围与单个值进行比较，必须循环使用它。您发布的代码似乎与您的问题关系不太密切。可能最好显示一些示例数据、示例输出以及良好的解释。更准确地说，您的代码不符合您在描述中所说的“将601添加到第四个单元格，如果它包含组中的一个代码”@SJR我编辑了我的问题以澄清情况。我希望你能帮助我。你发布的代码与你的问题有什么关系？