Получить определенный шаблон для каждой ячейки столбца

Question

У меня есть этот файл Excel:

Я хотел бы восстановить для первого столбца часть содержимого каждой ячейки , Тем не менее, ячейка имеет вид:

sentence [A/sentence] [B/sentence] [C/sentence] sentence

Я хотел бы иметь только шаблоны между [].

У меня есть этот код:

Sub groupByTypo2()
    Dim rng As Range, c As Range
    Dim dict As Object, dict2 As Object, dict3 As Object, col As Collection
    Dim dictFonctionnel As Object, dictTechnique As Object, dictSecurite As Object
    Dim v, w, k
    Dim sKey As String, S As String
    Dim I As Long

    'get the input range for the labels
    With ActiveSheet
        Set rng = .Range(.Range("C1"), .Cells(.Rows.Count, 3).End(xlUp))
    End With

    For Each c In rng.Cells
        v = Trim(c.Value)
        Debug.Print "valeur de v : " & v

         Z = Split(Trim(c.Offset(0, -2).Value))
            For Each w In Z
            Debug.Print "valeur de w : " & w

            Next w
    Next c

End Sub

И этот результат в результате:

valeur de v : Fonctionnel
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 1]
valeur de w : [B/sentence
valeur de w : 2]
valeur de w : [C/sentence
valeur de w : 3]
valeur de w : sentence
valeur de v : Fonctionnel
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 4]
valeur de w : [B/sentence
valeur de w : 5]
valeur de w : [C/sentence
valeur de w : 6]
valeur de w : sentence
valeur de v : Securite
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 7]
valeur de w : [B/sentence
valeur de w : 8]
valeur de w : [C/sentence
valeur de w : 9]
valeur de w : sentence
valeur de v : Fonctionnel
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 10]
valeur de w : [B/sentence
valeur de w : 11]
valeur de w : [C/sentence
valeur de w : 12]
valeur de w : sentence
valeur de v : Technique
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 13]
valeur de w : [B/sentence
valeur de w : 14]
valeur de w : [C/sentence
valeur de w : 15]
valeur de w : sentence
valeur de v : Securite
valeur de w : sentence
valeur de w : [A/sentence
valeur de w : 16]
valeur de w : [B/sentence
valeur de w : 17]
valeur de w : [C/sentence
valeur de w : 18]
valeur de w : sentence

Но я хочу иметь:

valeur de v : Fonctionnel
valeur de w : [A/sentence 1]
valeur de w : [B/sentence 2]
valeur de w : [C/sentence 3]
valeur de v : Fonctionnel
valeur de w : [A/sentence 4]
valeur de w : [B/sentence 5]
valeur de w : [C/sentence 6]
valeur de v : Securite
valeur de w : [A/sentence 7]
valeur de w : [B/sentence 8]
valeur de w : [C/sentence 9]
valeur de v : Fonctionnel
valeur de w : [A/sentence 10]
valeur de w : [B/sentence 11]
valeur de w : [C/sentence 12]
valeur de v : Technique
valeur de w : [A/sentence 13]
valeur de w : [B/sentence 14]
valeur de w : [C/sentence 15]
valeur de v : Securite
valeur de w : [A/sentence 16]
valeur de w : [B/sentence 17]
valeur de w : [C/sentence 18]

Я думаю, что проблема исходит из этой строки:

Z = Split(Trim(c.Offset(0, -2).Value))

Но я не знаю, как решить.

Спасибо за вашу помощь!

Answer 1

Не уверен, правильно ли я ответил на ваши комментарии, но это может сработать для вас. Я сделал поддельный набор данных:

Код, который я использовал:

Sub test()
Dim MiMatriz As Variant
Dim i As Long
Dim ZZ As Long
MiMatriz = Range("A3:A8").Value

For i = 1 To UBound(MiMatriz) Step 1
    For ZZ = 0 To 3 Step 1
        If ZZ > 0 Then
            Debug.Print "[" & Trim(Split(Split(MiMatriz(i, 1), "[")(ZZ), "]")(0)) & "]"
        Else
            Debug.Print Trim(Split(Split(MiMatriz(i, 1), "[")(ZZ), "]")(0))
        End If
    Next ZZ
Next i

Erase MiMatriz

End Sub

Вывод, который я получаю:

Fonctionnel
[A/sentence 1]
[B/sentence 2]
[C/sentence 3]
Fonctionnel
[A/sentence 4]
[B/sentence 5]
[C/sentence 6]
Securite
[A/sentence 7]
[B/sentence 8]
[C/sentence 9]
Fonctionnel
[A/sentence 10]
[B/sentence 11]
[C/sentence 12]
Technique
[A/sentence 13]
[B/sentence 14]
[C/sentence 15]
Securite
[A/sentence 16]
[B/sentence 17]
[C/sentence 18]

В любом случае, я думаю, было бы полезно, если бы вы могли опубликовать пример реальных данных (ваши данные).

Надеюсь, это поможет.

ОБНОВЛЕНИЕ: Похоже, что OP нужен только текст в скобках, поэтому нам нужно адаптировать ZZ L oop:

Sub test()
Dim MiMatriz As Variant
Dim i As Long
Dim ZZ As Long
MiMatriz = Range("A3:A8").Value

For i = 1 To UBound(MiMatriz) Step 1
    For ZZ = 1 To 3 Step 1
        Debug.Print "[" & Trim(Split(Split(MiMatriz(i, 1), "[")(ZZ), "]")(0)) & "]"
    Next ZZ
Next i

Erase MiMatriz

End Sub

Вывод этого обновленного кода:

[A/sentence 1]
[B/sentence 2]
[C/sentence 3]
[A/sentence 4]
[B/sentence 5]
[C/sentence 6]
[A/sentence 7]
[B/sentence 8]
[C/sentence 9]
[A/sentence 10]
[B/sentence 11]
[C/sentence 12]
[A/sentence 13]
[B/sentence 14]
[C/sentence 15]
[A/sentence 16]
[B/sentence 17]
[C/sentence 18]