问题有点棘手，大腿在哪里

同问

推荐VBA.

写段代码就搞定。

这个很好玩么?
office 365版本或者最新WPS直接用textjoin函数
其他版本要么用VBA自定义函数，要么用辅助列，我都懒得再写一次。

这个问题有很多解决方案，除了不常用的vba和公式，常用的透视表，sql拼接，响应吧主号召，用excel 2016的新工具 PQ来演示一下！PQ的好处是一次连接，随时可改！

查找 ;
替换成 强制回车 输入方法(ctrl+enter)
两列同时复制到word，然后从word复制粘贴回表格

'源数据[a:b]列，从第二行开始，输出[d:e]列
Option Explicit
Sub test()
　Dim arr, i, n, brr, t, j
　arr = Range("a2:b" & Cells(Rows.Count, "b").End(xlUp).Row)
　ReDim brr(1 To Rows.Count, 1 To 2)
　For i = 1 To UBound(arr, 1)
　　If InStr(arr(i, 2), ";") Then
　　　t = Split(arr(i, 2), ";")
　　　For j = 0 To UBound(t)
　　　　n = n + 1: brr(n, 1) = arr(i, 1): brr(n, 2) = t(j)
　　　Next
　　Else
　　　n = n + 1: brr(n, 1) = arr(i, 1): brr(n, 2) = arr(i, 2)
　　End If
　Next
　With [d1]
　　.Resize(Rows.Count, 2).ClearContents
　　.Offset(1).Resize(n, 2) = brr
　　.Resize(, 2) = Split("标识 栗子")
　End With
End Sub