arrays - 查找并替换数组的值，VBA

Question

假设我有一个像这样的数组:

Dim Arr() As Variant
arr(0)= "Text<&>data"
arr(1)= "<&>recombining"
arr(2)= "that libraries<&>"
arr(3)= "<&>professional<&>user "

我想在值内搜索并找到所有 <&>然后将它们替换为 and .

我的努力.find没有成功。 :(

Answer 1

您可以避免循环使用 Join() 将数组转换为字符串，进行替换，最后使用 Split() 将其返回为数组(未测试):

Dim Arr As Variant
Arr = Array("Text<&>data", _
            "<&>recombining", _
            "that libraries<&>", _
            "<&>professional<&>user ")

Arr = Split(Replace$(Join(Arr, "|"), "<&>", "and"), "|")