开发Excel宏：按关键词maturity拆分文本至右侧单元格

刚好遇到过类似的需求，给你写了个针对性的VBA宏，完美解决这个问题——不用纠结分列的局限性，精准定位maturity来拆分内容。

完整宏代码 #

Sub SplitMaturityToNextCell()
    Dim targetRange As Range
    Dim cell As Range
    Dim maturityPos As Integer
    
    ' 设置你要处理的单元格范围，这里默认是当前工作表A列的已使用区域，可按需修改
    Set targetRange = ThisWorkbook.ActiveSheet.UsedRange.Columns("A")
    
    ' 遍历每个目标单元格
    For Each cell In targetRange
        ' 查找"maturity"的起始位置（不区分大小写）
        maturityPos = InStr(1, cell.Value, "maturity", vbTextCompare)
        
        If maturityPos > 0 Then
            ' 将"maturity"及右侧文本写入相邻单元格（右边一列）
            cell.Offset(0, 1).Value = Mid(cell.Value, maturityPos)
            ' 原单元格保留"maturity"左侧的内容
            cell.Value = Left(cell.Value, maturityPos - 1)
            ' 清理原单元格末尾可能多余的空格
            cell.Value = Trim(cell.Value)
        End If
    Next cell
    
    MsgBox "处理完成！", vbInformation
End Sub

代码逻辑说明 #

• 范围设置：默认处理当前工作表A列的已使用区域，你可以改成Range("A1:A100")这类固定范围，适配你的数据位置。
• 关键词定位：用InStr函数精准查找maturity的位置，vbTextCompare确保不区分大小写（如果需要严格区分，替换为vbBinaryCompare即可）。
• 内容拆分：找到关键词后，用Mid提取右侧内容到相邻单元格，用Left保留左侧内容，最后用Trim清理原单元格末尾的多余空格。
• 容错处理：没有maturity关键词的单元格会直接跳过，不会产生错误。

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」。
3. 将上面的代码粘贴到模块窗口中。
4. 返回Excel界面，按下Alt + F8，选择SplitMaturityToNextCell宏，点击「执行」即可。

效果示例 #

以你提供的第二条数据为例：

• 原单元格内容：2/ Worst Of Put xyz xy, TSLA UQ, KK BK maturity 20Nov2021, 100% strike, size €.5M (€quanto), BID
• 运行宏后：
  • 原单元格：2/ Worst Of Put xyz xy, TSLA UQ, KK BK
  • 右侧单元格：maturity 20Nov2021, 100% strike, size €.5M (€quanto), BID

内容的提问来源于stack exchange，提问作者Ragnar