Excel、最初のセルの値に基づいて1つのセルを他の特定のセルに分割する - Excel、VBA、置換、分割、行

元のセルの最初のデータに基づいて、データを含むセルを他のセルに分割することはできません。元のセルのデータは、次のようになります（すべて同じセル内）。

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

今度は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

それが選択肢かどうかわからない？

回答：

回答№1は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

---