要将Excel中D列的内容插入到同行B列单元格内容的第一段之后、第二段之前，可以使用VBA宏实现。以下是具体步骤：

步骤1：打开VBA编辑器

1. 打开Excel文件。

2. 按 Alt + F11 打开VBA编辑器。

3. 在VBA编辑器中，点击 Insert > Module 插入一个新模块。

步骤2：编写VBA代码

在新模块中输入以下代码：

Sub InsertDintoB()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    Dim bText As String

    Dim dText As String

    Dim firstParagraphEnd As Long

    Dim secondParagraphStart As Long

    ' 设置要操作的工作表

    Set ws = ThisWorkbook.Sheets("Sheet1") ' 将 "Sheet1" 替换为你的工作表名称

    ' 获取D列的最后一行

    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

    ' 遍历每一行

    For i = 1 To lastRow

        ' 获取B列和D列的文本

        bText = ws.Cells(i, "B").Value

        dText = ws.Cells(i, "D").Value

        ' 查找第一段和第二段的分隔位置

        firstParagraphEnd = InStr(bText, vbCrLf) ' 查找第一个换行符

        secondParagraphStart = InStr(firstParagraphEnd + 1, bText, vbCrLf) ' 查找第二个换行符

        ' 如果找到第一段和第二段

        If firstParagraphEnd > 0 And secondParagraphStart > 0 Then

            ' 在第一段之后、第二段之前插入D列内容

            ws.Cells(i, "B").Value = Left(bText, firstParagraphEnd) & dText & Mid(bText, secondParagraphStart)

        End If

    Next i

End Sub

步骤3：运行宏

1. 按 Alt + F8 打开宏对话框。

2. 选择 InsertDintoB 宏，点击 Run。

代码说明

• ws.Cells(i, "B").Value：获取B列的单元格内容。

• ws.Cells(i, "D").Value：获取D列的单元格内容。

• InStr：查找换行符的位置，确定段落分隔。

• Left、Mid：用于截取和拼接字符串。

注意事项

• 确保B列内容包含至少两个段落（即至少一个换行符）。

• 如果工作表名称不是 Sheet1，请修改代码中的 Sheets("Sheet1") 为实际名称。

运行后，D列的内容将被插入到B列的第一段之后、第二段之前。