VBa。從一個數組

Question

我有這樣暗淡RG4（）作爲字符串數組替換數據 - 數組

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

的名字，我想更換整個陣列「XX-DA-」爲beggning在所有這些標準中都有像「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 

編輯＃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和字符串連接（&）。

Replace的替代方法是RegExp。

參見幫助https://www.microsoft.com/en-au/download/details.aspx?id=2764