Excel中，根据第一个单元格的值将一个单元格拆分为其他特定单元格

我不想基于原始单元格中的第一个数据将包含数据的单元格拆分为其他单元格。原始单元格中的数据如下所示（都在同一单元格中）：

它应该用“，”分开，我发现我可以用一个脚本：

Private Sub CommandButton1_Click()
Dim X As Variant
X = Split(Range("A1").Value, ",")
Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
End Sub

结果是这样的：

Field95-4
Field97-4
Field98-0
Field100-2
Field103-0
Field105-3
Field107-4
Field109-4
Field110-2
Field111-0
Field112-0
Field113-192
Field114-87
Field115-0
Field116-0
Field117-60

现在，它应该查找包含fieldnumber的单元格：

有一个单元格包含文本：Field95，还有一个字段包含Field97等等。然后我想用结果替换文本：Field95应该替换为4，Field97应该替换为4。等等

这应该是最终的结果

我知道这要求很高，但我想我们试了很多，但我无法让它发挥作用

我期待着你的回答。提前谢谢

更新：

这是我上传的excel文件，所以你可以看到我的问题是关于什么的。

更新2：

也许这个，再加上一个IF语句可以用

Sub UpdateWhole()
With ActiveSheet.UsedRange
.Replace "A1", "System", xlWhole
.Replace "A2", "System", xlWhole
.Replace "A3", "System", xlWhole
.Replace "B1", "ACC", xlWhole
.Replace "B2", "ACC", xlWhole
End With
End Sub

我不知道这是不是一种选择？

怎么样：

Sub RedHawk()
    Dim X As Variant
    X = Split(Range("A1").Value, ",")
    Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
    For i = LBound(X) + 1 To UBound(X) + 1
        Cells(i, 1).Value = Split(Cells(i, 1).Value, "-")(1)
    Next i
End Sub

---

有点用。问题是，它应该在工作表中“搜索”包含Field95的单元格，然后将其替换为值4。包含Field95的单元格可以放置在列中的任何行中。你明白了吗？我想我们真的很接近！嗨，加里，你对搜索这张表有什么建议吗？

Sub RedHawk()
    Dim X As Variant
    X = Split(Range("A1").Value, ",")
    Range("A1").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
    For i = LBound(X) + 1 To UBound(X) + 1
        Cells(i, 1).Value = Split(Cells(i, 1).Value, "-")(1)
    Next i
End Sub