用于解析多行选项卡式文本框的excel VBA宏

Sub ParseMultiLineTextBox()
    Dim ws As Worksheet
    Dim tb As OLEObject
    Dim tbText As String
    Dim tbLines() As String
    Dim i As Integer
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 遍历每个选项卡中的文本框
    For Each tb In ws.OLEObjects
        If TypeName(tb.Object) = "TextBox" Then
            ' 获取文本框内容
            tbText = tb.Object.Value
            
            ' 将文本框内容按换行符分割成多行
            tbLines = Split(tbText, vbCrLf)
            
            ' 遍历每行内容并进行处理
            For i = LBound(tbLines) To UBound(tbLines)
                ' 在这里可以进行进一步的处理，例如输出到调试窗口
                Debug.Print tbLines(i)
            Next i
        End If
    Next tb
End Sub