VBA。替换数组中的数据

Question

我有一个像这样的数组Dim RG4（）As String - 数组的名称

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 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 2

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

Answer 3

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