Excel，根據第一個單元格的值將一個單元格拆分為其他特定的單元格

Question

我不會根據原始單元格中的第一個數據將包含數據的單元格拆分為其他單元格。 來自原始單元格的數據如下所示（都在同一單元格中）：

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

應該用“，”分隔，我發現可以使用腳本來做到這一點：

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

現在，它應該查找包含字段編號的單元格：

有一個包含文本的單元格：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

我不知道這是一個選擇嗎？

Answer 1

怎么樣：

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