在单元格的一部分中更改特定字符

我想更改文本中的特定内容，因此需要找到所有的“;” 字符并将其更改为“ $”，但前提是它们在方括号中。

因此，可能有少数情况：

示例1文字（可以；不可以）；好的应该是：文本（可以，$可以，不可以）；好

示例2文字（可以；不可以）；好的（tekst;）好的应该是：文本（可以，$可以，不能）；好的（tekst $）好的

示例3文字（可以；（可以；）不可以）；应该是：text（没关系，$（$）没关系）；

所以我从替换字符串代码开始，但是问题是我的代码现在即使在“）”之后也替换了字符，我不想要那样。

我应该以某种方式计算需要更改的字符串并设置开始位置并仅更改它们吗？但是然后的问题是，如果我们有更多的括号，它将无法正常工作。

最好的方法是什么？

Sub Removetext()
s = Range("A1").Value

Dim start As Integer
Dim end1 As Integer
start = InStr(1, s, "(")
end1 = InStr(1, s, ")")

s = Left(s, start - 1) & Replace(s, ";", "$", start)

End Sub