Excel - Skrypt przeszukujący arkusz w poszukiwaniu komórki zawierającej określony tekst i zastępujący tekst określoną wartością

Chcę podzielić komórkę z danymi na inne komórki na podstawie danych w oryginalnej komórce. Dane z oryginalnej komórki wyglądają tak (cała zawartość w jednej komórce):

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

Należy go podzielić za pomocą „,” jako separatora. Dowiedziałem się, że mogę to zrobić za pomocą skryptu:

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

Wynik jest następujący:

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

Każda wartość jest pojedynczym tokenem zawierającym dwie części podzielone łącznikiem; oryginalna zawartość komórki i jej wartość zastępcza. Skrypt powinien szukać komórki zawierającej pierwszą część tokena, część „numer pola”.

Na przykład istnieje komórka zawierająca tekst „Field95” i komórka z tekstem „Field97” itp. Następnie chcę zastąpić pierwszą część tokena drugą częścią. Tak więc dla „Field95-4” należy znaleźć komórkę z zawartością „Field95” i zastąpić ją tekstem „4”. Komórkę o treści „Field97” należy zastąpić „4”. itp.

To jest plik programu Excel, który przesłałem, abyś mógł zobaczyć, o co chodzi w moim pytaniu. Zawiera dane. połączyć

Wiem, że dużo o to pytam, ale dużo próbowaliśmy i nie mogę zmusić go do działania.

Nie mogę się doczekać twoich odpowiedzi. Z góry dziękuję!

Zakładając, że Twoje wartości są w jednym zakresie, a zakres wyszukiwania i zamiany nie obejmuje tego zakresu , coś takiego może działać (dostosuj zakresy, wypróbuj kopię danych) -

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

Sub test2()
Application.ScreenUpdating = False
Dim strReplace As String
Dim strSearch As String
Dim i As Integer
Dim j As Integer

'Loop through cells
For Each c In Range("A2:A17")
    'Select non-blanks
    If c.Value <> "" Then
        On Error Resume Next
        'Get length of cell
        j = Len(c)
        'Find first delimiter and store position
        i = Application.WorksheetFunction.Search("-", c.Value)
        'Get strings!
        strSearch = Left(c, i - 1)
        strReplace = Right(c, j - i)
        'Find and Replace
        Range("c2:c121").Cells.Replace What:=strSearch, Replacement:=strReplace, LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    End If
 Next c

Application.ScreenUpdating = True
End Sub