请帮忙优化代码，弹出带选择的对话框，可以选择拆分指定列和邮件地址指定列

当涉及到弹出对话框并选择拆分和邮件地址的列时，一种常见的方法是使用用户窗体(UserForm)来实现。下面是一个示例，演示如何使用VBA和Excel来创建一个简单的用户窗体，并在窗体中选择拆分和邮件地址的列：

1. 在Excel中按下 `ALT + F11` 打开 VBA 编辑器。
2. 在 VBA 编辑器中，插入一个新的用户窗体。右键点击项目资源管理器(左上角的窗口)，选择 "插入" > "用户窗体"。
3. 在用户窗体设计器中，添加两个下拉列表框(DropDownList)，一个用于选择拆分的列，另一个用于选择邮件地址的列。您还可以添加一个按钮(Button)用于触发拆分和发送邮件的操作。
4. 在用户窗体代码模块中，添加以下代码：

Private Sub UserForm_Initialize()
    ' 初始化下拉列表框
    Dim lastColumn As Long
    Dim headerRange As Range
    Dim column As Range
    
    ' 获取表格的标题行范围
    Set headerRange = ThisWorkbook.Sheets("Sheet1").Rows(1) ' 修改为您的源工作表名称
    
    ' 遍历标题行的所有列
    For Each column In headerRange.Cells
        ' 将列名添加到下拉列表框
        Me.ComboBoxSplitColumn.AddItem column.Value
        Me.ComboBoxEmailColumn.AddItem column.Value
    Next column
End Sub

Private Sub ButtonSubmit_Click()
    ' 获取选择的拆分和邮件地址的列
    Dim splitColumn As String
    Dim emailColumn As String
    
    splitColumn = Me.ComboBoxSplitColumn.Value
    emailColumn = Me.ComboBoxEmailColumn.Value
    
    ' 调用拆分和发送邮件的函数，传递选择的列作为参数
    SplitAndSendEmail splitColumn, emailColumn
    
    ' 关闭用户窗体
    Unload Me
End Sub

5. 在 VBA 编辑器中，插入一个新的模块(Module)。
6. 在模块中，添加以下代码来执行拆分和发送邮件的操作：

Sub SplitAndSendEmail(splitColumn As String, emailColumn As String)
    Dim srcWorkbook As Workbook
    Dim srcWorksheet As Worksheet
    Dim destWorkbook As Workbook
    Dim destWorksheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 打开源工作簿和目标工作簿
    Set srcWorkbook = ThisWorkbook
    Set srcWorksheet = srcWorkbook.Sheets("Sheet1") ' 修改为您的源工作表名称
    
    Set destWorkbook = Workbooks.Add ' 创建一个新的目标工作簿
    Set destWorksheet = destWorkbook.Sheets(1)
    
    ' 拷贝源工作表标题行到目标工作表
    srcWorksheet.Rows(1).Copy destWorksheet.Rows(1)
    
    ' 获取源工作表最后一行
    lastRow = srcWorksheet.Cells(srcWorksheet.Rows.Count, splitColumn).End(xlUp).Row
    
    ' 遍历源工作表数据
    For i = 2 To lastRow ' 从第2行开始，跳过标题行
        
        ' 获取拆分列的值
        Dim splitValue As String
        splitValue = srcWorksheet.Cells(i, splitColumn).Value
        
        ' 在目标工作簿中创建新的工作表，并命名为拆分列的值
        destWorkbook.Sheets.Add(After:=destWorkbook.Sheets(destWorkbook.Sheets.Count)).Name = splitValue
        
        ' 将相应的行复制到对应的工作表
        srcWorksheet.Rows(i).Copy destWorkbook.Sheets(splitValue).Rows(destWorkbook.Sheets(splitValue).Cells(destWorkbook.Sheets(splitValue).Rows.Count, "B").End(xlUp).Row + 1)
        
    Next i
    
    ' 发送邮件
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 遍历目标工作簿中的工作表，发送邮件
    For Each destWorksheet In destWorkbook.Sheets
        
        ' 获取邮件主题和内容
        Dim subject As String
        Dim content As String
        
        subject = destWorksheet.Range(emailColumn & "1").Value ' 获取工作表指定列的A1单元格内容
        content = destWorksheet.Range(emailColumn & "2").Value ' 获取工作表指定列的A2单元格内容
        
        ' 创建新邮件
        Set outlookMail = outlookApp.CreateItem(0)
        
        ' 设置邮件主题和内容
        With outlookMail
            .Subject = subject
            .Body = content
            .Display ' 如果要直接发送，请使用 .Send
        End With
        
    Next destWorksheet
    
    ' 释放对象
    Set srcWorksheet = Nothing
    Set srcWorkbook = Nothing
    Set destWorksheet = Nothing
    Set destWorkbook = Nothing
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

7. 您可以通过在Excel中插入一个按钮，并将其链接到用户窗体，来触发该功能。在Excel中，打开"开发者"选项卡，然后点击"插入" > "按钮"，将按钮放置在适当的位置上。然后，右键点击按钮，选择"属性"，在"单击"事件中选择 "宏"，并选择 `ButtonSubmit_Click` 方法。

这样，当您点击该按钮时，用户窗体将弹出，您可以选择拆分和邮件地址的列，并触发拆分和发送邮件的操作。

请注意，以上代码仅作为示例提供，并且可能需要根据您的具体需求进行调整和修改。