VBA如何提取特定字符串的一段并重新组合

在VBA中，你可以使用`Mid$` 函数或者 `Split` 函数来提取特定字符串的一部分并重新组合。以下是这两个常用方法的例子：

### 1. 使用 `Mid$` 函数
`Mid$` 函数用于从字符串中提取指定长度的部分。例如，如果你想提取从第3个字符开始到第7个字符的子串：

Dim originalString As String
originalString = "Hello, World!"
Dim extractedSubstring As String

extractedSubstring = Mid$(originalString, 3, 4) ' 提取从位置3开始的4个字符

' 输出结果: "llo,"

这里第一个参数是原字符串，第二个参数是从哪一位开始提取，第三个参数是提取多少个字符。

### 2. 使用 `Split` 函数
`Split` 函数将字符串分割成数组，然后你可以选择所需的元素进行组合。例如，如果你想要按逗号分隔提取各个部分：

Dim originalString As String
originalString = "Apple,Banana,Cherry"
Dim delimiter() As Variant
Dim newStrings() As String

delimiter = Split(originalString, ",") ' 按照","分割字符串

' 现在 delimiter 数组包含了 ["Apple", "Banana", "Cherry"]
For i = 0 To UBound(delimiter)
    newStrings(i) = delimiter(i) ' 把每个部分添加到新数组中
Next i

' 结合数组重新形成一个新的字符串
Dim combinedString As String
combinedString = Join(newStrings, ",") ' 使用逗号连接数组元素

' 输出结果: "Apple,Banana,Cherry"