VBa. Заменить данные из массива

Question

У меня есть массив, как этот Dim RG4() As String - Имя массива

0 (XX-AA-2345) 
1 (XX-DA-2454) 
2 (XX-CD-9476) 
3 (XX-AA-4711) 
4 ... 

И я хочу, чтобы заменить beggning всего массива «XX-DA-» За что-то стандартное, как для exaple «XX-AA- (числа)» во всех них.

Я провел некоторое исследование, и я не смог найти ничего, что могло бы здесь работать.

Answer 1

Sub replaceDATA() 
For Each item In UrArray 
    item = Replace(item, Left(item, 6), "Your expected string") 
Next 
End Sub 

Answer 2

Выберите ваши клетки и запустить:

Sub Lastra() 
    Dim r As Range 
    Set r = Selection 
    r.Replace what:="XX-DA", replacement:="XX-AA" 
End Sub 

EDIT # 1:

Для массива VBA, вы можете использовать цикл:

Sub qwerty() 
    Dim RG4(0 To 3), i As Long 

    RG4(0) = "0 (XX-AA-2345)" 
    RG4(1) = "1 (XX-DA-2454)" 
    RG4(2) = "2 (XX-CD-9476)" 
    RG4(3) = "3 (XX-AA-4711)" 

    For i = 0 To 3 
     RG4(i) = Replace(RG4(i), "XX-DA", "XX-AA") 
    Next i 
End Sub 

Answer 3

For Each Thing in MyArray 
    Thing = Replace(thing, "XX", "WhatEverYouWant", 1, 1) 
Next 

Вы также можете использовать Mid, Left, Right и строку конкатенации (&).

Альтернатива замене - это RegExp.

См помочь https://www.microsoft.com/en-au/download/details.aspx?id=2764