如果要将C列内容与B列内容合并，并将C列内容放到B列内容的末尾的下一段（即换行显示），可以通过以下步骤实现：

步骤1：打开VBA编辑器

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

2. 在左侧项目窗口中，找到你的工作簿，右键选择 Insert > Module 插入一个新模块。

步骤2：编写宏代码

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

Sub MergeColumnsWithNewLine()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim i As Long

    ' 设置要操作的工作表

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

    ' 获取C列的最后一行

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

    ' 循环遍历每一行

    For i = 1 To lastRow

        ' 如果B列和C列都有内容

        If ws.Cells(i, "B").Value <> "" And ws.Cells(i, "C").Value <> "" Then

            ' 将C列内容添加到B列内容的下一段（换行）

            ws.Cells(i, "B").Value = ws.Cells(i, "B").Value & vbCrLf & ws.Cells(i, "C").Value

        ElseIf ws.Cells(i, "B").Value = "" Then

            ' 如果B列为空，直接将C列内容放入B列

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

        End If

        ' 清空C列内容

        ws.Cells(i, "C").Value = ""

    Next i

End Sub

步骤3：运行宏

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

2. 选择 MergeColumnsWithNewLine 宏，点击 Run 运行。

代码说明

• vbCrLf：表示换行符（回车换行），用于将C列内容添加到B列内容的下一段。

• ws.Cells(i, "B").Value & vbCrLf & ws.Cells(i, "C").Value：将B列内容与C列内容合并，并在两者之间添加换行符。

• ws.Cells(i, "C").Value = ""：清空C列内容。

注意事项

1. 确保工作表名称正确，或根据实际情况调整。

2. 如果B列或C列内容为空，代码会跳过合并操作或直接填充内容。

3. 运行前建议备份数据，以防出错。

示例

假设B列和C列内容如下：

运行宏后，结果如下：

C列内容被合并到B列，并在B列内容下方换行显示。